Vergleichen und löschen
Claus
ich möchte zwei Tabellenblätter vergleichen. Wenn irgendwo auf Tabellenblatt1 in Spalte A (Range("A:A")) der gleiche Wert steht, wie der auf Tabellenblatt2, Cells (1,x), dann soll die Zelle Cells(1,x) auf Tabellenblatt2 gelöscht werden....aber irgendwas ist da noch falsch. "Typen unverträglich" lautet die Fehlermeldung, die ich bei druck auf den Button erhalte...
Private Sub Start_Click()
x = 2
Do Until Application.WorksheetFunction.CountBlank(Worksheets("Tabelle2").Rows(x)) = 256
x = x + 1
If Worksheets("Tabelle2").Cells(1, x) = Worksheets("Tabelle1").Range("A:A") Then
Worksheets("Tabelle2").Cells(1, x).Delete
End If
Loop
Danke für jede Hilfe, Claus
Anzeige