Username
Verfasst: Sa 31. Mai 2014, 11:21
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.
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
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 SubIch hoffe ihr könnt mir weiterhelfen?!
Grüße