brauche mal wieder etwas Hilfe von euch.
Ich schaffe es aktuell nicht eine Fehlermeldung (via msgBox) auszugeben wenn meine Listbox bzw. meine Suche keine Treffer findet.
For Each rngCell In Bereich
If rngCell.EntireRow.Hidden = False Then
With SSD_Suchen.ListBox1
.AddItem rngCell.Value
.List(.ListCount - 1, 1) = rngCell.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 3).Value
End With
End If
Next rngCell
Hier müsste ich irgendwie einbauen das wenn rngCell = "" ist dann msgBox ... ich bin einfach noch zu schlecht.Danke für eure Hilfe.
Gruß
Sven