weiß jemand, wie man Zeilen per VBA-Code löschen kann ?
Bei mir sollen alle Zeilen im Tabellenblatt "liste_2" im Bereich von C5:C100 gelöscht werden,
wenn der Zellinhalt nicht "x" ist !
erik
Sub loescheZeile()
Dim lRow As Long
With Sheets("liste_2")
For lRow = 100 To 5 Step -1
If .Cells(lRow, 3) <> "x" Then
.Rows(lRow).Delete
End If
Next
End With
End Sub
Sub Delete_Row()
Dim i As integer
For i = 100 to 5 Step -1
If cells(i,3) = "x" Then Rows(i).Delete xlshiftUp
next i
End Sub