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

Forumthread: vergleichen zweier Tabellen nach wertx

vergleichen zweier Tabellen nach wertx
12.07.2004 18:46:27
Florian
Hallo!
Ich habe eine Tabelle, wo in Tabelle1 die Spalten B und C mit dr Tabelle2 Spalte B und C verglichen werden sollen und wenn es den eintrag in Tabelle2 gibt, dann soll mir das Makro den Wert von Tabelle2 (Spalte D) nach Tabelle1 in Spalte D kopieren.
Danke
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: vergleichen zweier Tabellen nach wertx
Beni
Hallo Florian,
Gruss Beni

Sub Daten_übertragen()
Sheets("Tabelle1").Select
For I = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Wert = Cells(I, 2)
With Sheets("Tabelle2").Columns("B")
Set c = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
If Cells(I, 3) = c(1, 2) Then
Cells(I, 4) = c(1, 3)
Else
tmp = c.Row
For b = 1 To Columns(2).Rows.Count
Set c = .FindNext(After:=c)
If Not c Is Nothing Then
If Cells(I, 3) = c(1, 2) Then
Cells(I, 4) = c(1, 3)
Exit For
End If
If tmp = c.Row Then Exit For
End If
Next b
End If
End If
End With
Next I
End Sub

Anzeige
AW: vergleichen zweier Tabellen nach wertx
Florian
Hallo Benni
Deine Formel hat funktioniert
Herzlichen Dank
Gruß Florian
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige