AW: MsgBox beim öffnen der Datei
08.05.2024 16:05:31
UweD
So, auf der Mitte stehst du jetzt schon mal.
muss in den Codebereich von "DieseArbetsmappe"
Private Sub Workbook_Open()
Dim TB As Worksheet, Sp As Integer, Benutzer As String
Set TB = Sheets("Tabelle1")
Sp = 10 'Spalte J
Benutzer = Environ("Username")
Select Case Benutzer
Case "MeierT", "MerkelA"
'Pfüfen Spalte auf Eintrag
If WorksheetFunction.CountA(TB.Columns(Sp)) > 1 Then ' 1 = Überschrift
MsgBox "Hallo " & Benutzer & ", lösche bitte die Daten in Spalte: " & Columns(10).Address(0, 0)
Exit Sub
End If
Case Else
UserForm1.Show
End Select
End Sub
LG UweD