Zeilen nach unten auffüllen
04.08.2005 12:52:50
ich.die.dine
ich würde gern eine Zeile mit Formeln nach unten auffüllen. Und zwar jeweils eine andere Anzahl an Zeilen (importabhängig).
So schaut es bisher aus.. Nur weiß ich nicht wie ich sag, daß er jeweils eine Zeile nach unten hüpfen soll, einfügt und dann bei Zeile x damit aufhört...?
Sub Zeilen_auffuellen()
Dim endwert As Integer
Dim counter As Integer
counter = 1
endwert = Range("k2") 'Summe der importierten Felder (das Feld heißt 'Zahl', falls es was hilft)
Range("A2:H2").Select 'Bereich mit der Formel, welche nach unten aufgefüllt werden soll
Selection.Copy
Range("A3").Select
Do Until counter = endwert
Selection.AutoFill Destination:=Range("a3:f" & Range("f65536").End(xlDown).Row), Type:=xlFillDefault
counter = counter + 1
Range("k13").Formula = counter
Loop
End Sub
Ich hoffe Ihr könnt mir irgendwie helfen..
ich.die.dine
Anzeige