Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Vergleichen und löschen

Forumthread: Vergleichen und löschen

Vergleichen und löschen
Claus
Hallo Leute,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige