Auto Fill
25.08.2003 13:20:57
Eddi
im Forum erhielt ich dieses wirklich tolle Makro, das bestimmte Bereiche meiner letzten Zeile mit den Vorgänger-Werten auffüllt.
'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
Allerdings stürzt das Makro ab (Laufzeitfehler) wenn nichts aufzufüllen ist. Ich bräuchte also noch eine Befehlszeile, wenn nichts aufzufüllen, dann mache gar nichts. Ein weiteres Problem ist, wenn eine Spalte zwischen C und S vom Benutzer vergessen wurde (Rest wird vom Makro eingetragen). Hier sollte ein Dialogfeld erscheinen: Überprüfen sie ihre Einträge, o.ä.. Auch hier stürztz das Makro bisher ab.
Kann mir jemand helfen ???
Gruß
Eddi