Office: Zeilen unter bestimmten Bedingungen löschen

Hallo zusammen,

ich habe eine recht große Menge Tabellen zu bearbeiten, wobei die durchzuführende Aktion immer die gleiche ist: Und zwar muss ich alle Zeilen aus diversen Tabellen löschen (Aufbau der Tabellen ist stets gleich), die in zwei bestimmten Spalten einen in dieser Hinsicht eindeutigen Wert aufweisen.

In Pseudocode würde das wohl so aussehen:

Nimm Tabelle
FOR jede Zeile:
IF Spalte E = "entfällt" UND
Spalte F = "entfällt"
THEN lösche diese Zeile
ENDIF
ENDFOR

Kann man so etwas einigermaßen geschickt in ein Makro packen, so dass es auf mehrere Dateien anzuwenden ist, ohne dass größere Anpassungen für jede Datei notwendig sind?

Auf jeden Fall schon mal Danke für jede Hilfe ...

 

Hallo!

So sähe der "echte" Code aus (ungetestet):

Code:

Sub xyz()
Dim Blatt As Worksheet, Zeile As Long, Letzte As Long
Blatt = Sheets("DeinBlattname") 'hier anpassen
With Blatt
Letzte = .Range("E65536").End(xlUp).Row 'bestimmt die letzte Zeile in Spalte E
For Zeile = Letzte To 1 Step -1 'läuft von der letzten Zeile bis zu Zeile 1
If .Cells(Zeile, 5) = "entfällt" And .Cells(Zeile, 6) = "entfällt" Then .Rows(Zeile).Delete
Next Zeile
End With
End Sub