ich möchte mehrere Tabellenblätter auf eine Spalte hin abgleichen. Ich habe in einer Tabelle eine Spalte mit Nummern, die ich in allen Tabellenblättern abfragen möchte und diese Zeilen automatisch löschen möchte.
Solche Werte zum Beispiel. Alle Werte sind in Spalte 1 in allen Tabellenblättern
L5367057500200
L5367057600200
Jetzt sitze ich gerade davor und frage mich ob ich für jede Tabelle einen neuen Code schreiben muss, in dem ich die Tabellen Spalten anspreche.
Beispielsweise so:
ZeileMax = .UsedRange.Rows.Count
for Zeile = Zeilemax to 2 Step - 1
if worksheets("MSN239UAE01").Cells(Zeile ,1) = Worksheets("C-FAUF").Cells(1,n) then
.Rows(Zeile).Delete
end if
next Zeile
Oder gibt es da eine elegantere Lösung? Ich möchte der Arbeitsmappe in zukunft auch noch weitere Tabellen hinzufügen, dann müsste ich ja ständig den Code anpassen?Stehe da noch auf den Schlauch. Vielen lieben Dank für eure Ideen
Viele Grüße
Christian