Mein Problem ist das ich ein bestehendes Makro erweitern will um einen Bezug aus anderen Zeilen. Der funktioniert soweit auch, allerdings wird mir immer die Formel mit in das andere Arbeitsblatt kopiert und da der Wert der kopiert wird sich auch ändert kann ich den so nicht gebrauchen sondern nur den aktuell errechneten Wert und nicht die Formel.
Wie kann ich die letzten Zeilen der If Anweisung so ändern das er nur die Werte, aber nicht die Formel kopiert/einfügt?
Hier mal der Code. Es geht mir um den Wert der Zellen A37:B37
Public Sub Datenübernahme()
Dim strCell As String
Dim addZiel As String
Dim addZiel2 As String
Dim bezTabelle As String, eingTabelle As String
bezTabelle = "Bezugstabellen"
eingTabelle = "Eingabeformular"
If Worksheets(eingTabelle).Range("B3").Value = Worksheets(bezTabelle).Range("C3").Value _
Then
strCell = Worksheets("Berechnung_19OG0").Range("A65000").End(xlUp).Address
addZiel = Worksheets("Berechnung_19OG0").Range(strCell).Offset(1, 0).Address
Worksheets("Eingabeformular").Range("A3:E3").Copy Worksheets("Berechnung_19OG0").Range( _
addZiel)
addZiel2 = Worksheets("Berechnung_19OG0").Range(strCell).Offset(1, 5).Address
Worksheets("Eingabeformular").Range("A37:B37").Copy Worksheets("Berechnung_19OG0").Range( _
addZiel2)
End If
MsgBox "Daten kopiert"
End Sub