Re: [de-users] Calc: Makro-Laufzeitfehler

Hei Boris,

bau mal ne wait() Funktion ins Makro ein. Benutzerdefinierte Funktionen 
werden sehr früh aufgelöst, kann sein, dass manche Dokumentobjekte zu 
dem Zeitpunkt noch nicht verfügbar sind.

Ich würde mal mit   wait(1000)  nach der Zeile    oSheet = 
ThisComponent()  beginnen und austesten, evt. dann den Wert reduzieren.

VG

Thomas


Am 03.06.2021 um 14:14 schrieb Boris Kirkorowicz:
> Hallo,
> um das Speicherdatum automatisiert in eine Zelle zu bekommen, habe ich
> folgendes Makro (nicht von mir, sondern gefunden gekriegt) in mein
> Calc-Dokument eingebaut:
>
> > REM  *****  BASIC  *****
> >
> > Function ChangedOn() As Date
> >
> >         Dim oSheet As Object
> >         Dim ChgDate As Variant
> >         
> >         oSheet = ThisComponent()
> >         
> >         ChgDate = oSheet.DocumentProperties.ModificationDate
> >
> > '       ChgDate ist leer, wenn das Dokument noch nie gespeichert wurde. In diesem Fall CreationDate 
> > nutzen
> >
> >         If ChgDate.Year = 0 Then
> >                 ChgDate = oSheet.DocumentProperties.CreationDate
> >         End If
> >         
> >         ChangedOn = DateSerial(ChgDate.Year, ChgDate.Month, ChgDate.Day)
> >         
> > End Function
> Dieses Makro nutze ich, indem ich es in der gewünschten Zelle mit
> =CHANGEDON()
> aufrufe.
>
>
> Beim Öffnen des Tabellendokuments begegnet mir die Meldung:
>
> > BASIC-Laufzeitfehler.
> > Eigenschaft oder Methode nicht gefunden: DocumentProperties.
> Nach manuellem Aktualisieren mit [Strg]+[Shift]+[F9] ist allerdings das
> Speicherdatum in der Zelle korrekt. Für die Funktion scheint es nicht
> direkt schädlich zu sein, aber es stört natürlich, wenn man erst einmal
> zwei Fenster (die Meldung und das Makro-Fenster) schließen muss, bevor
> man arbeiten kann, und es macht keinen guten Eindruck, wenn man die
> Tabelle weiterreicht.
>
> Was bedeutet diese Meldung?
> Wie lässt sich das abstellen?
--
M.I.C. Consulting
Riederbergstr. 92
65195 Wiesbaden
Tel. 0611 - 188 53 39
Fax: 0611 - 188 53 40
http://www.mic-consulting.de
e-Mail: info@mic-consulting.de


--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy