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

Forumthread: VBA um Werte innerhalb zweier Spalten abzugleichen

VBA um Werte innerhalb zweier Spalten abzugleichen
19.11.2014 20:01:45
JuriR
Hallo,
ich hoffe jemand kennt eine VBA Lösung für den folgenden Fall:
Ich habe ein Tabellenblatt namens "Keywords" dort befinden sich ab A2 eine Auflistung an Keywords. Zu jedem Keyword gibt es drei entsprechende Werte, die sich in B2, C2 und D2 befinden.
Ich würde jetzt gerne in einem weiteren Tabellenblatt namens "neue Keywords" ab A2 neue keywords einfügen mit den entsprechenden Werten in B2, C2 und D2.
Jetzt soll ein VBA in "neue Keywords" alle Keywörter finden die in "Keywords" bereits auftauchen und diese im Tabellenblatt "neue Keywords" löschen mit den dazugehörigen Werten.
Wäre super, wenn jemand da eine Lösung parat hat.

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA um Werte innerhalb zweier Spalten abzugleichen
19.11.2014 23:07:54
Christian
Hallo,
bin selber am warten auf eine Antwort, also kein Spezialist. Aber versuche doch mal folgendes Makro
Es gibt sicher schönere und einfachere Lösungen, aber die sollte auch zum Ziel führen.
Gruss Chrigu
Hier noch eine Datei:
https://www.herber.de/bbs/user/93892.xlsm
Option Explicit
Sub Keyword()
Dim z As Integer  'Zeilennummer Blatt Keywords
Dim Word As String
Dim z2 As Integer  'Zeilennummer Blatt neue Keywords
Dim Blatt As Worksheet
Dim BlattNeu As Worksheet
Dim Zeilemax As Integer
Set Blatt = Sheets("keywords")
Set BlattNeu = Sheets("neue Keywords")
'altes keyword einlesen
z = 2
Do Until Cells(z, "A").Value = ""
Word = Blatt.Cells(z, "a").Value
Zeilemax = Blatt.UsedRange.Rows.Count
'keywörter abgleichen und wenn gleich, zellen a-d löschen
With BlattNeu
For z2 = 2 To Zeilemax
If .Cells(z2, "a").Value = Word Then
.Cells(z2, "a").Select
Selection.EntireRow.Delete
z2 = z2 + 1
Else
z2 = z2 + 1
End If
Next
End With
z = z + 1
Loop
End Sub

Anzeige
AW: VBA um Werte innerhalb zweier Spalten abzugleichen
20.11.2014 12:49:49
JuriR
danke, werde es ausprobieren!

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