Warum
20.08.2003 14:31:49
Pius
Habe folgendes Problem
Der unten aufgeführte Code funktioniert in meiner Umgebung.
Starte ich das File auf einem anderen PC bekomme ich eine Fehlermeldung
Projekt oder Biliothek nicht gefunden
Der Debuger springt dann auf username = Space$(256)
Nun habe ich die ganze Funktion bereits in einer anderen Datei verwendet wo das ganze aber problemlos funktioniert. Die beiden File liegen irgendow auf dem Server in verschieden Ordnern.
Ich habe in beiden Files Verweise eingebaut
kann mir jemad helfen Danke
CODE:
Private Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
Private Function rgbGetUserName() As String
Dim username As String
username = Space$(256)
If GetUserName(username, Len(username)) Then
rgbGetUserName = Left(username, InStr(username, Chr$(0)) - 1)
End If
End Function
Sub USER()
Range("B57").Value = rgbGetUserName()
End Sub
Sub Kopf_BeiKlick()
UserForm_Kopf1.Show
UserForm_Kopf1.TextBox1.Value = ActiveSheet.Range("c1").Value
UserForm_Kopf1.TextBox2.Value = ActiveSheet.Range("d1").Value
UserForm_Kopf1.TextBox3.Value = ActiveSheet.Range("e1").Value
UserForm_Kopf1.TextBox4.Value = ActiveSheet.Range("f1").Value
UserForm_Kopf1.TextBox5.Value = ActiveSheet.Range("b2").Value
End Sub