verfaßt von manes , Köln, 04.02.2020, 21:50:05
Hallo
Gut das (vorher) zu wissen.
Vielleicht hilft dieses Makro weiter:
Sub KopiereFormeln()
Dim r_Quelle As Range
Dim r_Ziel As Range
Dim str_Formel As String
Dim int_Zeile As Integer
Set r_Quelle = Range("A4:A32")
Set r_Ziel = Range("J29")
For int_Zeile = 1 To r_Quelle.Rows.Count
str_Formel = r_Quelle.Cells(int_Zeile).Formula
r_Ziel.Cells(int_Zeile).Formula = str_Formel
Next
End Sub
FFPX
Manes
--
Also wenn ich ehrlich sein sollte, müsste ich lügen!
gesamter Thread: