Sub mit Argumenten aufrufen
05.04.2022 14:02:44
Marc
ich habe eine große Excel-Liste und möchte nur die Inhalte gemäß einer Parameterabfrage bei Start des Makros behalten.
Bisher habe ich ein Modul und hier eine SUB die eben diese Liste prüft und alle relevanten Zeilen löscht:
Sub Makro1()
Dim sht As Worksheet
Dim LastRow As Long, Zeile As Long
Set sht = Sheets("Tabelle1")
LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
For Zeile = LastRow To 2 Step -1
If InStr(sht.Cells(Zeile, 5).Value, "03.2022") = 0 Then
sht.Rows(Zeile).Delete Shift:=xlUp
End If
Next Zeile
End Sub
Was mache ich falsch? Danke vorab.
Anzeige