Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Hier kommt der Name der anderen Tabelle herein
Const c_tabelle = Tabelle2
'Elemente der Meldung festlegen
Dim Titel, Mldg, Stil, Antwort
->Titel definieren
Titel = xxx_Meldungstitel
->Text definieren
Mldg = xxx_Blabla & Chr(10) & _
xxx_Blabla & Chr(10) & _
xxx_Blabla & Chr(10) & _
xxx_Bla
->Schaltflächen definieren
->(vbDefaultButton1 heißt, daß Ja aktiviert ist)
->(vbDefaultButton2 heißt, daß Nein aktiviert ist)
Stil = vbYesNo + vbCritical + vbDefaultButton1
'wenn in C3 was geändert wird
If Target.Column = 3 And Target.Row = 3 Then
->Wenn C3 ein x steht dann wird diese Schlaufe ausgeführt
If Range(C3) = x Then
->Meldung anzeigen.
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then->ab jetzt wird Ja ausgeführt
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
->Wenn es diese Zelle (C3) war, dann dann müssen die anderen Schleifen nicht mehr durchlaufen werden.
->Deshalb soll von hier direkt ans Ende gegangen werden.
GoTo EndeÄpfel
End If
End If
End If
'wenn in C4 was geändert wird
If Target.Column = 3 And Target.Row = 4 Then
If Range(C4) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C5 was geändert wird
If Target.Column = 3 And Target.Row = 5 Then
If Range(C5) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C6 was geändert wird
If Target.Column = 3 And Target.Row = 6 Then
If Range(C6) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C7 was geändert wird
If Target.Column = 3 And Target.Row = 7 Then
If Range(C7) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C8 was geändert wird
If Target.Column = 3 And Target.Row = 8 Then
If Range(C8) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C9 was geändert wird
If Target.Column = 3 And Target.Row = 9 Then
If Range(C9) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C10 was geändert wird
If Target.Column = 3 And Target.Row = 10 Then
If Range(C10) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C11 was geändert wird
If Target.Column = 3 And Target.Row = 11 Then
If Range(C11) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C12 was geändert wird
If Target.Column = 3 And Target.Row = 12 Then
If Range(C12) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C13 was geändert wird
If Target.Column = 3 And Target.Row = 13 Then
If Range(C13) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C14 was geändert wird
If Target.Column = 3 And Target.Row = 14 Then
If Range(C14) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
'wenn in C15 was geändert wird
If Target.Column = 3 And Target.Row = 15 Then
If Range(C15) = x Then
Antwort = MsgBox(Mldg, Stil, Titel)
If Antwort = vbYes Then
Sheets(c_tabelle).Select
Worksheets(c_tabelle).Range(C5).Select
GoTo EndeÄpfel
End If
End If
End If
EndeÄpfel:
End Sub