ich verstehe nicht, warum das nicht funktioniert... Ich möchte gerne alle Zeilen, in der in der Spalte B NICHT der Wert 123456789 steht, löschen.
Dafür habe ich folgendes geschrieben:
Sub Zeilen_loeschen()
Dim i As Long
Dim letztezeile As Long
Sheets("Artikel").Select
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To letztezeile
If Range("B" & i).Value "123456789" Then
ActiveSheet.Rows(i & ":" & i).Delete
End If
Next
End Sub
Er löscht auch irgendwas, aber der Geier weiß was und warum....Hier ist die Datei:
https://www.herber.de/bbs/user/137973.xlsm
Danke für einmal vom Schlauch heben...
LG
Marc