ich würde gerne über mehrere Tabellenbätter hinweg bestimmte Zeilen löschen lassen.
Konkret sieht es so aus: Ich habe mehrere Tabellenblätter (z.B. Deluxe, Super, Classic).
Eine Schleife soll diese 3 Blätter durchgehen und nachschauen ob jeweils in Spalte A der Name des Tabellenblatt enthalten ist.
Dabei soll das ganze Blatt mit einer weiteren Schleife durchgangen werden, um so ab der 2. Zeile jede Zeile durchzugehen.
Ist das Blatt durchlaufen, soll die erste Schleife zum nächsten Blatt gehen.
Mein bisheriger Versuch schaut so aus:
Sub loeschen()
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Cells(i, 1) "Deluxe" Then Rows(i).Delete
Next i
Application.ScreenUpdating = True
End Sub
Er löscht also innerhalb eines Blattes alles, wenn in Spalte A nicht "Deluxe" vorhanden ist.
Was ich noch nicht hinbekomme, ist die Schleife das er danach in die anderen Blätter "Super" und "Classic" geht und dann dort entsprechend die Zeilen löscht, die eben nicht "Super" bzw. "Classic" enthalten.
Ich muss also das "Deluxe" in meinem Code noch zu einer Variabeln machen...
Das ist mir bewusst, aber ich habe keine vernünftige Lösung dafür ;-)
Hoffe ihr könnt mir helfen - vielen Dank für die Mühe schon vorab!
Viele Grüße
Bastian