' **********************************************************************
' 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
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