User Name
10.04.2003 16:06:29
ThomasS
ich benutze das folgende Makro , um den User Namen auszulesen und in eine Zelle zu schreiben.
Private Sub Workbook_Open()
Dim Buffer As String * 100
Dim BuffLen As Long, Benutzer
BuffLen = 100
GetUserName Buffer, BuffLen
Benutzer = Left(Buffer, BuffLen - 1)
Range("d91") = Benutzer
End Sub
Wie muss ich das Makro ändern, damit der User Name auch auf allen anderen sheets (nicht nur dem Start Sheet) in die Zelle D91 geschrieben wird?
Vielen Dank!!!!