ich möchte den Zellbereich AN37:AN48 kopieren und in den Bereich AK37:AK48 kopieren und das Vorhandene soll überschrieben werden und daher habe ich dieses Makro aufgezeichnet:
Sub Gradtagszahlen()
' Gradtagszahlen Makro
' Originalzahlen wiederherstellen
Range("AN37:AN48").Select
Selection.Copy
Range("AK37").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("H10").Select
End Sub
In dem Bereich stehen Zahlen aber in Zelle AN38 die Formel =WENN(REST(AL34;4)=0;29;28). Sie berücksichtigt bei Eingabe der Jahreszahl in AL34 die Schaltjahrtage beim Februar.Die Formel wird beim Starten des Makros mit übertragen, aber sie funktioniert nicht.
Habe ich was falsch gemacht?
Gruß
mike49