ich habe eine Schleife, die Zeilen durchläuft und mir bei Abweichungen den Eintrag markieren soll.
Jetzt habe ich zudem eine MsgBox eingesetzt, da die Markierung allein nicht ausreichend ist. Diese Meldung kommt natürlich zu jedem abweichenden Eintrag. Wie kann man erreichen, dass die Meldung nur einmal, am Ende der Schleife auftaucht?
If Not IsNumeric(a) Then
WsQ.Cells(i, 12).Value = WsQ.Cells(i, 12).Value & " nicht gefunden"
WsQ.Cells(i, 12).Interior.ColorIndex = 3
MsgBox "bitte prüfen"