MsgBox erweitern
19.12.2015 21:35:24
Erwin
mit nachfolgendem Marko wird eine MsgBox befüllt, wenn in Spalte A bestimmte falsche Nummernschilder enthalten sind:
Sub Nummernschilder()
txt_dummy = "In den nachfolgenden Zeilen sind falsche Nummernschilder enthalten: "
Set ws = ActiveSheet
letzteZeile = ws.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For zeile = 7 To letzteZeile
If ws.Cells(zeile, 1) "PA" _
And ws.Cells(zeile, 1) "FRG" _
And ws.Cells(zeile, 1) "CHA" _
And ws.Cells(zeile, 1) "LA" _
And ws.Cells(zeile, 1) "" Then
txt_dummy = txt_dummy & zeile & ", "
ws.Range(Cells(zeile, 1), Cells(zeile, 26)).Interior.Color = 49407 'Zeile markieren
End If
Next zeile
MsgBox txt_dummy & Chr(10) & "Die Zeilen wurden orange markiert.", vbInformation, "Fehlerzeilen" _
End Sub
Wenn jetzt aber keine falschen Nummernschilder in Spalte A sind, kommt trotzdem eine verkorkste Meldung.Ich möchte gerne, dass dann keine Fehlermeldung kommt.
Danke im Voraus - Erwin