Sub Uebertragen()
Dim Tab1, Tab2, Zelle, Suchzelle As Range
Hallo,
brauche mal wieder eure Hilfe!
Ich habe in der Tabelle1 in C2 den aktuellen Monat z.B. Januar, die berechneten Werte sind in _
C5:C18.
Diese Werte sollen in Tabelle2 übertragen werden, wenn in der Spaltenüberschrift C4:N4 Januar _
Februar usw. steht.
Also unterhalb von den Spaltenüberschriften
Habe schon was ausprobiert,funktioniert leider nicht.
Währe dankbar für eine Lösung!
Set Tab1 = Worksheets("Tabelle1").Range("C2").Value
Set Tab2 = Worksheets("Tabelle2").Range("C4").Value
For Each Zelle In Tab1
If Zelle = "" Then Exit For
For Each Suchzelle In Tab2
If Suchzelle = "" Then Exit For
If Suchzelle = Zelle Then
Zelle.Offset(0, 1) = Suchzelle.Offset(0, 1)
Exit For
End If
Next Suchzelle
Next Zelle
End Sub