wenn du an passender Stelle in deiner Tabelle ine Legende platzierst
Bei 33 Spalten x 152 Zeilen hast du 5016 Zellen, die du mit rechter Maustaste bearbeiten müsstest ;-)
Private Sub worksheet_change(ByVal target As Range)
If Not Intersect(Range("C3:AG154"), target) Is Nothing Then
Application.EnableEvents = False
Select Case target
Case "za"
With target
.AddComment
.Comment.Visible = False
.Comment.Text Text:="User:" & Chr(10) & "Eingabe ist ZA"
End With
Case "U"
With target
.AddComment
.Comment.Visible = False
.Comment.Text Text:="User:" & Chr(10) & "Eingabe ist ZA"
End With
Case "ta"
With target
.AddComment
.Comment.Visible = False
.Comment.Text Text:="User:" & Chr(10) & "Eingabe ist ZA"
End With
Case Else
target.ClearComments
End Select
Application.EnableEvents = True
End If
End Sub
Private Sub worksheet_change(ByVal target As Range)