in einer längeren Tabelle lösche ich die gesamten Zeilen, bei denen in Spalte 3 ein "C" steht oder in Spalte 12 der Wert "0".
Dies mache ich mit folgendem Makro:
While Worksheets("woche_c").Cells(i, 2) ""
If Worksheets("woche_c").Cells(i, 3) "C" Or _
Worksheets("woche_c").Cells(i, 12) = "0" Then
Cells(i, 3).EntireRow.Select
Selection.Delete
i = i - 1
End If
i = i + 1
Wend
Da es sich um eine große Tabelle handelt, läuft das Makro recht lange.
Gibt es einen schnelleren Weg?
Danke & Gruß
Tim