Hallo Forum,
ich benötie mal Eure Hilfe bei folgenden (für mich) nicht zu bewerkstelligendem Problem...
In die ein Richtung klappt es mit folgendem Code:
Erläuterung: Suche den Wert im aus Tabelle DP Zelle C1 in der Tabelle Januar und füge die Werte aus Tabelle DP C12:AG14 in Tabelle Januar ein wo Wert gefunden.
Sub DP_Monat_Jan()
Set Zelle = Sheets("Januar").Columns(1).Find(what:=Sheets("DP").Range("C1").Value)
If Zelle Is Nothing Then
MsgBox ("Name nicht gefunden")
Else
Sheets("DP").Range("C12:AG14").Copy
Zelle.Offset(0, 2).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End If
End Sub
Wie muss ich den Code umstellen, dass folgendes passiert:
Suche den Wert aus Taballe DP Range C1 in Tab Januar, wenn gefunden dann kopiere die Werte aus Zeilen rechts daneben (Offset(0, 2)
in die Tab DP :Range C15:AG18.
Es sind immer drei Zeilen, da es sich bei der Zelle mit dem gefundenen Wert um ein verbundene Zelle über drei Zeilen handelt.
ICh weiß, dass verbundene Zellen ein gräul sind, aber leider geht es nicht anders. :-(
Hoffentlich hat jemand ein Lösung für mich...
Ich bedanke mich für eure Unterstützung.
Gruß Michael
|