Username

[philli87]

Guten Morgen,
ich habe eine Art Vorplanung mit Makros unter Excel geschrieben. Jetzt habe ich diese Datei in LibreOffice geöffnet und dort funktionieren die Makros nicht wie gewohnt. Im Besonderen geht es um die Ausgabe des angemeldeten Users.

Code: Alles auswählen

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim RaBereich As Range
    Dim RaZelle As Range
    Set RaBereich = Range("Q5:Q11, Q14:Q21, Q24:Q36, Q50:Q56, Q59:Q66, Q69:Q81, Q95:Q101, Q104:Q111, Q114:Q126")
    Set RaBereich = Intersect(RaBereich, Range(Target.Address))
    If Not RaBereich Is Nothing Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        For Each RaZelle In RaBereich
            If RaZelle = "" Then
                RaZelle.Offset(0, 1).ClearContents
                RaZelle.Offset(0, 2).ClearContents
            ElseIf RaZelle.Offset(0, 1) = "" Then
                RaZelle.Offset(0, 1) = Now()
                RaZelle.Offset(0, 2) = Application.Username
            End If
        Next RaZelle
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
    Set RaBereich = Nothing
End Sub

Wenn ich das Makro unter LibreOffice ausführe, dann erhalte ich zu "Application.Username" einen Laufzeitfehler 423. Ich weiß jedoch nicht warum. Wenn ich die Datei unter dem gleichen Betriebssystem (Mac OS X) öffne läuft alles einwandfrei.

Ich hoffe ihr könnt mir weiterhelfen?!

Grüße

[karolus]

Hallo

versuchs mit

Code: Alles auswählen

thisComponent.DocumentProperties.Author

Auf Dauer solltest du komplett in LO-basic schreiben oder gleich in einer Sprache die nicht nur noch im Refugium M$-/Libre-/apache-Office überlebt - sondern auch in der "realen" Softwarewelt.
Bei LO / AOO ist eine komplette Pythonumgebung dabei ( mit Ausnahme einer eingebauten IDE für Python, aber etwas analoges zur Basic-IDE braucht eh kein Mensch )

Karolus