Zeile löschen, wenn Wert nicht vorhanden
20.11.2021 04:21:49
Stephan
ich habe eine Tabelle, in dieser möchte ich, sofern in Spalte B nicht der Monat XY steht alle anderen Zeilen löschen. Dabei habe ich den Monat als Zahlenformat vorliegen, bspw. 01.11.2021. Ich habe mich schon einmal versucht, ohne Erfolg. Freue mich über Unterstützung. Grüße Stephan
Sub Test()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Tabelle_1")
Dim i As Long
Do While ws.Range("A2").Offset(i, 0).Value ""
If Not ws.Range("B2").Offset(i, 0).Value Like "*11*" Then
ws.Range("B2").Offset(i, 0).Delete
End If
i = i + 1
Loop
End Sub