Zahlenreihe
24.10.2016 22:22:41
Sven
Habe ein Problem mit folgendem Code.
Ich füge 2 Zahlen ein ( A1 und B1 ) zb 1 und 5 , und Excel soll mir fortlaufend A1 abwärts dann die restlichen Werte ausfüllen 1-5
Bekomme aber nun oft die Fehlermeldung
Sub fullen()
If IsNumeric(Range("A1")) And IsNumeric(Range("B1")) Then
If Range("B1") > Range("A1") Then
Range("A2") = Range("A1") + 1
Range("A3") = Range("A2") + 1
Range("A1:A3").AutoFill Destination:=Range(Cells(1, 1), Cells(Range("B1").Value - _
_
Range("A1").Value + 1, 1))
End If
End If
End Sub
das dort sich ein Fehler befindet.
Range("A1:A3").AutoFill Destination:=Range(Cells(1, 1), Cells(Range("B1").Value - _
_
Range("A1").Value + 1, 1))
Grüße