Userabfrage manchmal fehlerhaft
18.01.2004 11:43:31
Jens
Eine Frage.
Und zwar starte ich beim öffnen eine Datei eine Benutzer- bzw. User Abfrage mit folgendem Befehl:
Option Explicit
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'/// Befehle für das Auslesen des Users
Private Sub Workbook_Open()
'Auslesen des Benutzernamens
Dim strBenutzer As String
Dim strInitial As String
strBenutzer = UCase(Environ("username"))
Select Case strBenutzer
'/// VKD Süd
Case "MÜLLER"
strInitialen = "mü"
strVollerName = "Müller, Dieter"
Case Else
strInitialen = "fü"
strVollerName = " nicht registr. Nutzer"
End Select
End Sub
Zu Hause auf meinem Rechner läuft das. Spiel ich die Datei auf eine anderen Rechner bekomm ich grundsätzlich erst mal die Fehlermeldung:
Fehler Visal Basic
Fehler im Kompilitieren
Projekt oder Bibliothek nicht gefunden.
Als fehlerhaft wird die der Namen Environ angezeigt.
Starte ich die Datei auf dem neuen Rechner ein paar mal neu (Manchmal bis zu 20 x) oder schiebe die VBA Codes ein bisschen hin und er, aktzeptiert er plötzlich irgendwann den Namen Environ und alles läuft bestens.
Kann mir jemand eventuell sagen woran das liegt.
Zu Hause winXP u. OfficeXP
Läuft nicht sobald ich den Rechner wechsel oder Betriebssystem. ZB. Win2000 und Office 97.
Danke für die Hilfe
Gruß Jens