Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.06.2024 10:26:31
25.06.2024 08:19:20
Anzeige
Archiv - Navigation
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen nach unten auffüllen

Zeilen nach unten auffüllen
04.08.2005 12:52:50
ich.die.dine
Hallo Profis,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag
04.08.2005 13:06:33
ich.die.dine
Eigentlich bräuchte ich nur zu wissen, wie man in die nächste Zeile rutscht.
Ähnlich wie
ActiveCell.Next.Select
nur eben mit Reihe. Gibts da was?
Gruß
AW: Nachtrag
04.08.2005 13:09:33
frank
ActiveCell.Offset(1, 0).Select
gruß frank
Danke
04.08.2005 14:19:21
ich.die.dine
super !! danke
genau das, was ich gebraucht hab!
Anzeige

317 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige