Mit VBA Makro Zeilen löschen, wenn in Spalte 5 Wertebereich zwischen 800 ist

Computer: Software & Programmierung Office Software
#1

Hallo lieber VBA Könner,

ich möchte aus Exceltabellenblatt in Spalte 5 alle Werte 800 aus dem Tabellenblatt löschen. Befindet sich in Spalte 5 entsprechender Wert, dann gesammte Zeile löschen.
Habe schon einiges versucht wie:
If Cells(zei, 5) 800 Then Cells(zei, 1).EntireRow.Delete
Doch nicht so einfach.
Für Hilfe bin ich dankbar.Folgendes Makro funktioniert, aber nur alle

#2

Habe schon einiges versucht wie:
If Cells(zei, 5) 800 Then Cells(zei,
1).EntireRow.Delete
Doch nicht so einfach.
Für Hilfe bin ich dankbar.Folgendes Makro funktioniert, aber
nur alle

Option Explicit

Sub Makro1()
Dim Zei As Long
Worksheets(„Tabelle1“).Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = „Inhaltsverzeichnis“
Zei = Cells(Rows.Count, „A“).End(xlUp).Row
Range(„X1“).Value = 1
Range(„X1“).Copy
Range(„E1:E“ & Zei).PasteSpecial Paste:=xlAll, Operation:=xlMultiply
Range(„X1“).ClearContents
For Zei = Zei To 1 Step -1
If Cells(Zei, 5).Value 800 Then Cells(Zei, 1).EntireRow.Delete
Next Zei
End Sub

Gruß
Reinhard

#3

Hallo Reinhard,
wieder mal vielen Dank für deine Hilfe.
Funktioniert, nochmal danke.
Noch ne Frage: für was bekommt die Zelle X1 den Wert 1 und wird kopiert?
Viele Grüße
os2