Re: [de-users] Calc: Zellinhalte löschen bei geschützter Tabelle

Hallo

Der folgende Code gespeichert in einer Datei im Pfad:

<dein_benutzerverzeichnis>/Scripts/python/<irgendein_name>.py

wird alle Zellbereiche mit der Zellvorlage "input" im aktuell 
selektierten (einzelnen)Bereich "leeren".

*x- - - - - - - - - - - - - > Schnipp < - - - - - - - - - - - -x*

def main():
    doc = XSCRIPTCONTEXT.getDocument()
    selection = doc.CurrentSelection
    for cellrange in iterate(selection.getUniqueCellFormatRanges()):
        if cellrange.CellStyle == 'input':
            cellrange.clearContents(15)

def iterate(enumerable):
    enum = enumerable.createEnumeration()
    while enum.hasMoreElements():
        yield enum.nextElement()

*x- - - - - - - - - - - - - > Schnipp < - - - - - - - - - - - -x*



Am 13.01.2016 um 18:06 schrieb Franklin Schiftan:
> Hallo miteinander,
>
> am 13.01.2016 um 09:40 Uhr schrieb Werner Tietz <werner-tietz@arcor.de>
>
> > Hallo
> >
> > @Franklin
> > Wenn du schon VBA Gedichte ablieferst, solltest du auch die initiale
> > Zeile mitliefern:
> >
> > *x- - - - - - - - - - - - - > Schnipp < - - - - - - - - - - - -x*
> > Option VBAsupport 1
> >
> > ...
> > *x- - - - - - - - - - - - - > Schnipp < - - - - - - - - - - - -x*
>
> Hey, super, mit dieser vorangestellten Zeile funktioniert der
> Excel-Code tatsächlich auch in LibO - sofern in diesem Fall hier der
> Excel-Code im aktuellen Arbeitsblatt gespeichert ist.
>
> Weiß jemand evtl., was man wo und wie hier am Code vielleicht noch
> ergänzen oder ändern müsste, damit er auch läuft, wenn er nicht in
> der aktuellen Arbeitsmappe, sondern unter 'Meine Makros'
> abgespeichert wird?
>
> Ansonsten bleibt er halt bei der Zeile
>
>     For Each zelle In ActiveSheet.UsedRange
>
> erstmal stehen, weil er offensichtlich nicht weiß, was gerade als
> 'ActiveSheet' anzusehen ist.
>
> > Werner


--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? http://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert