AutoFill
19.12.2007 13:18:00
pbm
noch mal zum AutoFill ;-))
Hab nun folgendes:
Sub auffuellen()
Dim z As Integer
Range("G1").Select 'Auswahl der Startzelle
ActiveCell.Offset(1, 0).Select 'Zeile unter Startzeile selektieren
Range(Selection, Selection.End(xlToRight)).Select 'Kopieren bis Ende Zeile, Befehl Copy' _
_
_
z = Range("A2").End(xlDown).Row Festsstellung wie lang Zeile A
Selection.AutoFill Destination:=Range(Cells(2, 7), Cells(z, 8))
End Sub
Bei der Selection.Autofill sagt er mir "Die AutoFill-Methode des range objektes konnte nicht ausgeführt werden.".
Was ist das los?
Vielen Dank!!!
Phil