Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 2 Spalten vergleichen - Zeilen löschen

2 Spalten vergleichen - Zeilen löschen
06.04.2016 10:22:41
Markus
Hi Leute.
Ich brauche wieder mal eure Hilfe.
Ich würde gerne Spalte A von Tabelle 1 mit Spalte A von Tabelle 7,8,9 und 10 vergleichen und wenn die Werte ungleich sind in den Tabellen 7,8,9 und 10, dann soll dort jeweils die ganze Zeile gelöscht werden.
Ich schaffe es die zwei Tabellen zu vergleichen aber das mit dem Löschen der ganzen Zeile krieg ich nicht hin, weil ich nicht weiß, was ich in die IF Bedingung tun muss.

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Spalten vergleichen - Zeilen löschen
06.04.2016 12:56:01
ChrisL
Hi Markus
Sub t()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim iBlatt As Byte
Dim iZeile As Long, tempZeile As Variant
Set WS1 = Worksheets("Tabelle1")
For iBlatt = 7 To 10
Set WS2 = Worksheets("Tabelle" & iBlatt)
For iZeile = WS2.Cells(WS2.Rows.Count, 1).End(xlUp).Row To 1 Step -1
tempZeile = Application.Match(WS2.Cells(iZeile, 1), WS1.Columns(1), 0)
If Not IsNumeric(tempZeile) Then WS2.Rows(iZeile).Delete
Next iZeile
Next iBlatt
End Sub

cu
Chris

Anzeige
AW: 2 Spalten vergleichen - Zeilen löschen
06.04.2016 14:33:26
Markus
Danke Chris, das würde es prinzipiell lösen, nur habe ich vergessen anzumerken, dass das Makro nur durchgeführt werden soll, wenn es sich um Nummern haltet. Dieses Makro löscht mir Summen- und Beschriftungszeilen auch weg.
Was müsste ich denn einfügen, damit er nur die Nummern löscht?

Anzeige
AW: 2 Spalten vergleichen - Zeilen löschen
06.04.2016 14:33:51
Markus
Danke Chris, das würde es prinzipiell lösen, nur habe ich vergessen anzumerken, dass das Makro nur durchgeführt werden soll, wenn es sich um Nummern haltet. Dieses Makro löscht mir Summen- und Beschriftungszeilen auch weg.
Was müsste ich denn einfügen, damit er nur die Nummern löscht?

Anzeige
AW: 2 Spalten vergleichen - Zeilen löschen
06.04.2016 14:55:46
ChrisL
Hi Markus
Ungetestet:
If Not IsNumeric(tempZeile) And IsNumeric(WS2.Cells(iZeile, 1)) Then WS2.Rows(iZeile).Delete
cu
Chris

AW: 2 Spalten vergleichen - Zeilen löschen
06.04.2016 16:21:44
Markus
sieht gut aus. dank dir Chris.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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