17.08.2022, 10:10
Hallo liebes Forum,
bin gerade dabei, ein Logbuch von einer anderen Arbeitsmappe in eine andere zu integrieren. Leider bin ich nicht der beste in VBA und die Integration verläuft etwas schwierig.
Der Code sieht wie folgt aus:
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function UserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
UserName = Left(Buffer, BuffLen)
UserName = Left(UserName, InStr(UserName, Chr(0)) - 1)
End Function
Auf der Arbeitsmappe funktioniert das Logbuch ohne Probleme.
Danke schonmal im voraus :)
bin gerade dabei, ein Logbuch von einer anderen Arbeitsmappe in eine andere zu integrieren. Leider bin ich nicht der beste in VBA und die Integration verläuft etwas schwierig.
Der Code sieht wie folgt aus:
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Function UserName()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
UserName = Left(Buffer, BuffLen)
UserName = Left(UserName, InStr(UserName, Chr(0)) - 1)
End Function
Auf der Arbeitsmappe funktioniert das Logbuch ohne Probleme.
Danke schonmal im voraus :)