AutoFill nach Schleife
19.12.2007 11:40:01
pbm
folgedendes Problem:
Ich möchte in Spalte A schauen, ob die Zelle gefüllt ist und dann den Bereich G bis I mittels AutoFill nach unten kopieren. Habe folgenden Ansatz:
Dim i As Integer
Range("G1").Select 'Auswahl der Startzelle
ActiveCell.Offset(1, 0).Select 'Zeile unter Startzeile selektieren
Range(Selection, Selection.End(xlToRight)).Copy
If Not (Sheets("RA").Cells(i + 1, 1) = "") Then
ActiveCell.Offset(1, 0).AutoFill Destination:=Range("G2:I65536")
End If
Next i
Excel soll also ab A2 schauen, ob ein Wert vorhanden ist und dann nach unten kopieren.
Bin echt am verzweifeln, das kann doch nicht so schwer sein.
Danke Euch,
Phil