Sub Kopieren()
Dim rng As Range
For Each rng In Sheets("Tabelle1").Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
If Sheets("Tabelle1").Cells(rng.Row, 1) = Sheets("Tabelle2").Cells(rng.Row, 1) Then
Sheets("Tabelle1").Cells(rng.Row, 5).Copy _
Destination:=Sheets("Tabelle2").Cells(rng.Row, 5)
End If
Next rng
End Sub
In diesem Codes werden jedoch nur die Spalten und nicht die Zeilen kopiert. Was noch wichtig zu erwähnen ist, dass in Tabelle 1 und 2 die jeweiligen Bezeichnungen (A1, A2 usw.) in unterschiedlichen Zeilenhöhen sind. In diesem Code geht die Funktion nur auf, wenn die Zellinhalte die gleiche Position haben...
Habt ihr ein paar Ratschläge für mich bzw wisst ihr wie ich das Problem lösen kann? Ich bin neu auf dem VBA-Gebiet und das durchforsten des Internets hat mir leider nicht weiter geholfen.
Ich freue mich auf Eure Ratschläge!