' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C11" Then
If Target = "Nein" Then
MsgBox "Du hast 'Nein' eingegeben!"
End If
End If
End Sub
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim strMsg As String
If Not Intersect(Target(1, 1), Range("C4", "C7:C12")) Is Nothing Then
If Target(1, 1) = "Nein" Then
Select Case Target.Row
Case 4: strMsg = "No No!"
Case 7 To 9: strMsg = "Und nochmal Nein!"
Case 10, 12: strMsg = "Und nun?"
Case Else: strMsg = "Neeeeeeeee!"
End Select
End If
End If
If Len(strMsg) Then MsgBox strMsg
End Sub