Hallo Fedjo :-)
Dann lieber so .-)
Gruß Nighty
Erstelle im Vbed eine Userform,höhe breite bestimmen
Setze ein Bezeichnungsfeld ein,höhe breite bestimmen
Nun das Makro einsetzen
Vbed>Projectexplorer>Arbeitsmappe
[code]
Private Sub Workbook_Open()
Dim Meldung As String
If InStr(Application.UserName, " ") > 0 Then
Meldung = "Hallo " & Mid(Application.UserName, 1, InStr(Application.UserName, " ") - 1) & " willkommen in Excel"
Else
Meldung = "Hallo " & Application.UserName & " willkommen in Excel"
End If
UserForm1.Label1 = Meldung
UserForm1.Show vbModeless
Application.Wait (Time + TimeSerial(0, 0, 3))
Unload UserForm1
End Sub[/code]
Datei speichern>schliessen>neu öffnen
Es wird nun beim öffnen der Datei 3(im code leicht zu entdecken und zu ändern) Sekunden eine Nachricht eingeblendet