Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten vergleichen & ggf. Zeile löschen

Forumthread: Spalten vergleichen & ggf. Zeile löschen

Spalten vergleichen & ggf. Zeile löschen
06.12.2021 19:00:13
Basti
Hallo Zusammen,
ich komme bei folgendem Punkt im Macro nicht weiter:
In Tabelle1 Spalte B stehen Werte die abgeglichen werden sollen mit Werten in Tabelle2 Spalte B.
Falls ein Wert in Tabelle1 Spalte B in Tabelle2 Spalte B nicht vorkommt dann
soll die gesamte Zeile von Tabelle1 Spalte B gelöscht werden.
Über jegliche Tipps/Unterstützung bin ich dankbar.
Viele Grüße
Basti
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten vergleichen & ggf. Zeile löschen
06.12.2021 19:14:16
{Boris}
Hi,
Tabelle1 und Tabelle2 sind im folgenden Code die Codenamen der Blätter:

Sub weg_damit()
Dim x As Long
With Tabelle1
For x = .Cells(.Rows.Count, 2).End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Tabelle2.Columns(2), .Cells(x, 2)) = 0 Then
.Rows(x).Delete
End If
Next x
End With
End Sub
VG, Boris
Anzeige
AW: Spalten vergleichen & ggf. Zeile löschen
06.12.2021 19:36:39
Basti
Hallo Boris,
wow, funktioniert super! Wie ich es mir vorgestellt habe :)
Vielen Dank & Viele Grüße
Basti

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige