ich brauche ein Makro, dass die Formeln in bestimmten Zellen wiederherstellen kann, wenn sie vom Benutzer überschrieben wurden.
Dazu stehen in einer festgelegten Zeile alle Formeln für die jeweiligen Spalten drin. Die Bezüge sind natürlich nur auf diese Zeile ausgelegt.
Nun möchte ich per Makro eine dieser Formeln in den Detailbereich unterhalb dieser Zeile kopieren. Mit dem nachfolgenden, vereinfachten Code funktioniert das auch prima:
' Range("A1").Select
' Selection.Copy
' Range("A5").Select
' Selection.PasteSpecial Paste:=xlFormulas
Aber dabei hüpft mir die Selection zu arg durch die Gegend, vor allem wenn man das Makro für mehrere Zellen aufruft.
Ein anderer Versuch war, die jeweilige Formula-Eigenschaft zuzuweisen. Allerdings passt Excel dann nicht die Bezüge an, also
Range("A5").formula = Range("A1").formula macht leider aus =B1+F1 nicht =B5+F5.
Wer hat einen Tipp?
Danke und Gruß,
Stephan.