Zeilen löschen
13.01.2020 18:50:11
Siggi
erst einmal wünsche ich euch allen ein frohes neues Jahr.
Stehe mal wieder auf den Schlauch.
Möchte gern im Tabellenblatt (Tabelle018) in den Zeilen 35 bis 110 die Zeile löschen,
wenn in der jeweiligen Spalte D eine 0 steht.
Was mache ich falsch ?
Gruß
Siggi
Sub Zeilen_loeschen ()
For zelle = 110 To 35 Step -1
If Tabelle018.Cells(zelle, 4).Value = "0" Then
Rows(zelle).Delete
End If
Next
End Sub
Anzeige