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
IF Environ("Username") = "FANNY" Then
If WorksheetFunction.CountIf(Range("J:J"), ">", Range("K:K"), "=") then
Msgbox "neuer Eintrag"
End if
End if