Seltsam !
25.08.2003 15:24:00
Eddi
Mein Auto Fill-Makro:
'Spalten A und B sowie T bis AH auffüllen
Dim laR1 As Long, laR2 As Long, laR3 As Long, i As Long
laR1 = Cells(Rows.Count, 1).End(xlUp).Row
laR2 = Cells(Rows.Count, 2).End(xlUp).Row
laR3 = Cells(Rows.Count, 3).End(xlUp).Row
For i = laR1 + 1 To laR3
Cells(i, 1).Value = Cells(i - 1, 1).Value + 1
Next i
Range("B" & laR2).AutoFill _
Destination:=Range("B" & laR2 & ":B" & laR3), Type:=xlFillDefault
Range("T" & laR2 & ":AH" & laR2).AutoFill _
Destination:=Range("T" & laR2 & ":AH" & laR3), Type:=xlFillDefault
End Sub
funktionierte als Makro einwandfrei. Nun habe ich es mit einer Befehlschaltfläche (also Button) verknüpft und plötzlich geht es nicht mehr (Laufzeitfehler 1004 die AutoFill Methode des Rangeobjektes ist fehlerhaft).
Das will mir nun überhaupt nicht einleuchten ...
Gruß
Eddie