habe folgendes Problem, ich habe 2 Tabellen, die wie folgt aussehen
Tabelle Daten:
Name1 Kl1
Name2 Kl2
Name3 Kl3
usw.
Tabelle Temp
Name1
Name2
Name3
usw.
In der Tabelle Daten stehen unter A alle TN-Namen und in B die zugehörigen Klassen.
In der Tabelle Temp stehen nur die Namen , das wäre der Vertgleichswert beider Tabellen.
Das Makro soll nun hergehen und Tabelle Daten und Temp in Spalte A vergleichen, sind Sie gleich soll in Tabelle Temp in Spalte B die Klasse ergänzt werden. Und das solange bis in Tabelle Daten alle Zeilen durchlaufen sind.
Hab es mal so angefangen zu versuchen, bekomme es allerdings nicht wirklich hin.
Dim rng2 As Range
For Each rng2 In Sheets("Daten").Range("A1:B" & Range("A999").End(xlUp).Row)
If Sheets("Daten").Cells(rng2.Row, 1) = Sheets("Temp").Cells(rng2.Row, 1) Then
Sheets("Daten").Cells(rng2.Row, 2).Copy
Sheets("Temp").Cells(rng2.Row, 2).PasteSpecial Paste:=xlPasteValues
End If
Next
Vielen Dank vorab schon für eure Unterstützung
Grüße Ralf