Makro verbessern
04.11.2005 09:59:17
achim
Mein Makro macht nicht ganz so wie ich möchte.
Ich möchte 1,2,3,4,5,6,7 usw.
Das Makro macht aber!!! 1,2,3,4,4,4,4,4,4,4,4, usw.
Was ist falsch?
Sub Nummer1Bis4DannAutoFill()
'Makro In DatenAusSheet1 in den Zellen D1 fortlaufend D3 1,2,3,4,..eintragen D1:D4 markieren
'anschließend soviel wie in A gezählt mit AutoFill runterzählen
Sheets("DatenAusSheet1").Activate
Range("D1").Select
ActiveCell.FormulaR1C1 = "1"
Range("D2").Select
ActiveCell.FormulaR1C1 = "2"
Range("D3").Select
ActiveCell.FormulaR1C1 = "3"
Range("D4").Select
ActiveCell.FormulaR1C1 = "4"
Range("D1:D4").Select
With Sheets("DatenAusSheet1")
anzd = .Cells(Rows.Count, 1).End(xlUp).Row
.[D4].AutoFill Destination:=.Range("D4:D" & anzd), Type:=xlFillDefault
End With
End Sub
Danke achim h.