ich benutze diesen Code wenn icheine Formel in eine Spalte bis zur letzten Zeile füllen möchte : ( der funktioniert )
Sub Tag()
Dim iRow As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("F2").Formula = "=TEXT(RC[-2],""TTTT"")"
Range("F2:F" & iRow).FillDown
End Sub
Wenn ich jedoch denselben Code benutze um eine andere Formel in Spalte H zu schreiben bekomm ich eine Fehlermeldung: 400
Sub verweis1()
Dim iRow As Long
iRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("H2").Formula = "=SVERWEIS(F2;Sverweis!$A$1:$D$8;2;FALSCH)"
Range("H2:H" & iRow).FillDown
End Sub
ich habe einen errorhandler eingebaut und der sagt Anwendungs oder Objektdefinierter Fehler.
Ich komme leider nicht weiter.
Wer kennt dieses Problem bzw kann mir bei der Lösung helfen ?