|
Hallo,
bin neu auf dem VBA Gebiet und hab ein Problem. Mein Sub macht genau das gegenteil von dem was ich brauche...
Mein Skript soll eine Zimmerliste erstellen. In Spalte A gibt es die Zimmernummern von 101-435, aber auch Pseudo-Zimmernummern wie: B03, B10, ZB01, C01 etc. Wenn in eine Zelle in Spalte a ein Pseudozimmer steht, soll die gesamte Spalte gelöscht werden. Mit meinem unten stehenden Ansatz löscht er aber genau das Gegenteil, die richtigen Zimmernummern...
Dim lngZeile As Long
For lngZeile = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count) To 2 Step -1
If InStr(UCase(Cells(lngZeile, 5)), "B") = 0 Then
If InStr(UCase(Cells(lngZeile, 5)), "C") = 0 Then
If InStr(UCase(Cells(lngZeile, 5)), "ZB") = 0 Then
Cells(lngZeile, 1).EntireRow.Delete
End If
End If
End If
Next lngZeile
|