Hilfe für Makro: Zelle kopieren "wenn"
07.08.2013 21:30:34
Mareike
ich habe ein bestehendes Makro aus dem Forum versucht umzuschreiben, damit folgendes passieren soll.
Wert1 aus Tabelle1, Spalte B soll verglichen werden mit Wert2 aus Tabelle2, SpalteA.
Gibt es den Wert1 in Tabelle2, dann soll der Wert1 aus SpalteB in die SpalteA der selben Zeile kopiert werden.
Mein bisheriges Makro kann aber nur Wert1 von B nach A kopieren, wenn Wert2 in Tabelle 2 in der selben Zeile steht wie Wert1. Wie kann ich das umschreiben, damit obiges Szenario funktioniert.
Freue mich über Hilfe. Danke Mareike
Mein Makro lautet momentan:
Sub Kopieren()
Dim rng As Range
For Each rng In Sheets("Tabelle1").Range(Cells(11, 2), Cells(Rows.Count, 2).End(xlUp))
If Sheets("Tabelle1").Cells(rng.Row, 2) = Sheets("Tabelle2").Cells(rng.Row, 1) Then
Sheets("Tabelle1").Cells(rng.Row, 2).Copy _
Destination:=Sheets("Tabelle1").Cells(rng.Row, 1)
End If
Next rng
End Sub