Kann man eine MsgBox nur 1x beim Öffnen einer Datei erscheinen lassen?
Ich habe verschiedene User und jeder soll diese Nachricht nur 1x bestätigen und beim nächsten Öffnen nicht wieder sehen.
Danke & Gruß
Nico
Private Sub Workbook_Open()
'Es wird ein Tabellenblatt "User" vorrausgesetzt
On Error GoTo Fehler
Set sh1 = Sheets("User")
LR = sh1.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
UN = Environ("UserName")
MsgBox "Ihr aktueller Anmeldename ist " & UN ' kann weg
If UN = "" Then UN = "Unbekanner Name"
Set c = sh1.Range("a:a").Find(UN, LookIn:=xlValues)
If Not c Is Nothing Then
'Keine MSGBOX
Else
Cells(LR + 1, 1).Value = UN
MsgBox "Du bist das erste mal hier!"
End If
Exit Sub
Fehler:
MsgBox "Blatt 'User' fehlt"
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen