Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

VBA Mehrere Werte ersetzen

Forumthread: VBA Mehrere Werte ersetzen

VBA Mehrere Werte ersetzen
17.08.2016 16:22:56
Sarah
Hallo,
ich habe zwei Tabellen, wobei ich bei einer Werte durch Inhalt der zweiten Tabelle ersetzen möchte. Aber erstmal zum Aufbau..
Die Zeilen von Tabelle 1 sehen wie folgt aus:
Person A ; Person B ; Person C
Person D ; Person A ; Person E
Person B ; Person E ; Person F
Bei Tabelle 2 sieht Spalte A so aus:
Person A
Person B
Person C
Person D
Person E
Person F
und die dazugehörige Spalte B von Tabelle 2 so:
person-a@mail.de
person-b@mail.de
person-c@mail.de
person-d@mail.de
person-e@mail.de
person-f@mail.de
Ich möchte nun die IDs aus Tabelle 1 (Person A, ..) durch die dazugehörigen E-Mail Adressen von Tabelle 2 ersetzen. Kann ich das Ganze per VBA lösen?
In jedem Fall vielen Dank!
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Mehrere Werte ersetzen
17.08.2016 16:33:12
Daniel
Hi
per VBA im Prinzip so:
With Sheets("Tabelle2")
for each Zelle in .Range(.Cells(1, 1), .Cells(1, 1).End(xldown))
Sheets("Tabelle1").Cells.Replace Zelle.Value, Zelle.Offset(0, 1).Value, xlwhole
Next
End with
Gruß Daniel
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige