ich hab untenstehenden VBA Code mal in Hans Archiv gefunden, angepasst und eingesetzt. Funktioniert prima unter Win NT 4. Nun hab ich aber das Problem, dass wir hier in Kürze als Betriebssystem Win 2000 Professional bekommen und der Code somit nicht mehr funktioniert (habs kurz testen können). Er hängt sich bei "Left(Buffer, BuffLen - 1)" schon mal auf. Das Problem besteht nun darin, dass ich zu Hause nicht probieren kann (nutze win 98se). Von daher stehe ich ein wenig auf dem Schlauch.... Kann mir da jemand helfen?
Danke vorab.
Kai
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Sub auto_open()
Dim Buffer As String * 100
Dim BuffLen As Long
Dim userid As String * 20
Dim Zelle1 As Range
BuffLen = 100
GetUserName Buffer, BuffLen
userid = Left(Buffer, BuffLen - 1)
Worksheets("sheet1").Range("A1").Value = userid
Worksheets("sheet1").Visible =
Worksheets(1).Select