Guten Tag,
ich benötige eine VBA Code der folgendes macht:
Lösche mir alle Zeilen, die in Spalte S den Wert 0 enthalten. Ich möchte dies über VBA umsetzen, habe bislang nur folgendes hinbekommen:
Public Sub Zellenlöschen()
Dim löschen%
For löschen = 1 To Cells(Rows.Count, 34).End(xlUp).Row Step 1
If Cells(löschen, 19).Value = 0# Then
Rows(löschen).Select
With Selection.ClearContents
End With
End If
Next löschen
End Sub
Damit werden mir aber nur die Werte in den Zeilen gelöscht. Ich möchte aber die gesamte Zeile löschen. Kann mir jemand unter Vorgabe meines Codes weiterhelfen?
|