VBA Schleifen Problem
25.09.2015 21:11:21
Günther
Ich habe im meiner Excel-File mehrere If's hintereinander:
Je nachdem welcher heutiger Wochentag mit dem Wochentag aus der Tabelle Detailsauswertung übereinstimmt wird ein bestimmter Code ausgeführt. Zudem habe ich noch weitere Merkmale die passen müssen. Unter anderem muss der Wert in der Zelle N19 aus der Tabelle NS 0 sein.
Mein Problem ist jetzt, dass wenn der Wert nicht auf 0 ist, eine Msgbox erscheinen soll mit: "Wert in Zelle N19 nicht auf 0"
Aber wie mache ich das? Wenn ich hinter jedem IF ein Else ranmache bekomme ich ja spätestens bei dem Code für den Dienstag (Wenn heute Montag ist) den fehler ausgeworfen. (Ich habe den gesamten Code nämlich hinter einem Button hinterlegt. Also alles in einer Sub)
Gibt es eine Funktion, die den Code stoppt, nachdem das passende IF abgearbeitet wurde? Sprich das If für Montag ist korrekt --> Rest des Codes wird nicht mehr abgearbeitet. Weil aktuell passt das If für Montag, aber ich bekomm dann den MsgBox Fehler für Dienstag.
''Code für Montag
If Format(Date, "DDDD") = Sheets("Detailauswertung").Range("Q10") And Sheets("NS").Range("D4") = _
Sheets("Detailauswertung").Range("Q16") And Sheets("Detailauswertung").Range("P10") = "" And Sheets("NS").Range("N19") = 0 Then
.....bestimmter Code
''Code für Dienstag
If Format(Date, "DDDD") = Sheets("Detailauswertung").Range("Q41") And Sheets("NS").Range("D4") = _
Sheets("Detailauswertung").Range("Q47") And Sheets("Detailauswertung").Range("P41") = "" And Sheets("NS").Range("N19") = 0 Then
.... bestimmter code
Grüße Günther