Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
380to384
380to384
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige