MsgBox bei Start einblenden
18.08.2003 09:08:28
GastTim
vielleicht kann mir ja jemand helfen.
Ich möchte gerne beim öffnen der Arbeitsmappe eine MsgBox
in den Vordergrund bringen.
Ich habe es wie folgt geschrieben, bzw. aus Beiträgen übernommen.
Der User Name wird angezeigt, aber die MsgBox erscheint nicht beim Start.
WAS MACHE ICH FALSCH ?
Freue mich über eure Hilfe
Declare Function GetUserName Lib "advapi32.dll" _
Alias "GetUserNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Private Sub Workbook_open()
Dim Buffer As String * 100
Dim BuffLen As Long
BuffLen = 100
GetUserName Buffer, BuffLen
ThisWorkbook.Sheets("Datenerfassung").Range("a1") = Left(Buffer, BuffLen - 1)
MsgBox "Testtext", vbOKOnly, "Begrüssung"
End Sub