ich möchte per Autofill alle Formeln der zweiten Zeile auf den Rest der Tabelle, d.h. bis zu letzten Zeile der Spalte A übertragen. Zeile 1 enthält Überschriften und Autofilter.
Leider erhalte ich in der fett markierten Zeile folgende Fehlermeldung
Laufzeitfehler 1004
Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen"
Was muss ich machen, um den Code lauffähig zu bekommen ?
Besten Dank für Eure Hilfe
Mexsalem
Sub Test_Formel_aus_Referenzzeile_kopieren()
' soll gewährleisten, dass alle Formeln der Referenzzeile gelten :
Dim LoI As Long
Dim I As Integer
LoI = Range("A65536").End(xlUp).Row ' Letzte Zeile in Spalte A bestimmen
For I = 1 To 256 ' von Spalte A bis IV
If Cells(2, I).HasFormula Then ' Wenn eine Formel in Zeile 2 vorhanden ist
Range(Cells(2, I)).AutoFill Destination:=Range(Cells(2, I), Cells(LoI, I))
End If
Next I
MsgBox "Done"
End Sub