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

Vergleichen und ersetzen

Forumthread: Vergleichen und ersetzen

Vergleichen und ersetzen
12.02.2004 14:57:49
Franz
Hallo zusammen,
hab grad ein Brett vor'm Kopf!
Die Werte in Spalte A der Tabelle1 sollen mit den Werten der Spalte A in Tabelle2 verglichen werden. Bei Übereinstimmung der Werte soll der Wert in Spalte A der Tabelle1 durch den Werte der Spalte B in Tabelle2 ersetzt werden.
Bsp:
Tabelle1 Spalte A Zeile 1 = 150
Tabelle2 Spalte A Zeile 10= 150
Tabelle2 Spalte B Zeile 10= 400
Als Ergebnis des Bsp. muss dann in Tabelle 1 A1 der Werte 400 stehen!
Wie muss hierfür der VBA Code lauten!
Gruß
Franz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Vergleichen und ersetzen
12.02.2004 18:03:07
th.heinrich
hallo Franz,
warum VBA ?
=WENN(A1=B1;B1;"")
gruss thomas
AW: Vergleichen und ersetzen
12.02.2004 19:00:15
PeterW
Hallo Franz,
kann es mehrere Übereinstimmungen in Spalte A geben? Falls nicht wäre ein möglicher Weg (da ungetestet keine Gewähr)
Dim lgTab1 as Long
Dim lgTab2 as Long
Dim sh1 as Sheet
Dim sh2 as Sheet
Set sh1 = Sheets("Tabelle1")
Set sh2 = Sheets("Tabelle2")
For lgTab1 = sh1.Range("A65536").End(xlUp).row
For lgTab2 = sh2.Range("A65536").End(xlUp).row
If sh1.Cells(lgTab1, 1) = sh2.Cells(lgTab2, 1) Then
sh1.Cells(lgTab1, 2) = sh2.Cells(lgTab2, 2)
Exit For
End If
Next
Next
Gruß
Peter
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