Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
912to916
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

zeilen einfügen

zeilen einfügen
04.10.2007 11:34:12
Arend
Liebe Experten,
wie löse ich folgende Aufgaben:
In der Spalte A stehen einige Werte (z.B. a2:A500). Jetzt suche ich ein Makro, dass ab Zeile zwei beginnend automatisch zu jedem Wert eine definierte Anzahl (z.B 25) von Zeilen einfügt.
Wie kann ich das lösen?
herzlichen Dank im Vorraus
arend

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: zeilen einfügen
04.10.2007 11:39:00
Thorsten
Hallo
dim ende as integer
ende = Range(A2).End(xlUp).Rows
for i=2 to ende
Range("A"&i).value = Range("A"&i).value + 25
next i
so ungefähr müsste es heissen, ich habe den code nicht getestet.
:-)

AW: zeilen einfügen: vollkommen falsch
04.10.2007 11:45:54
Rudi
Hallo,
er will nicht addieren sondern Zeilen einfügen.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: zeilen einfügen
04.10.2007 11:42:00
ChrisL
Hallo
Oder so...

Sub t()
Dim iZeile As Long
Dim AnzahlZeilenEinfuegen As Integer
AnzahlZeilenEinfuegen = 25
For iZeile = Range("a65536").End(xlUp).Row To 2 Step -1
Range(Cells(iZeile, 1), Cells(iZeile + AnzahlZeilenEinfuegen - 1, 1)).Insert Shift:=xlDown
Next iZeile
End Sub


Gruss
Chris

Anzeige
Anzahl Zeilen per VBA einfügen
04.10.2007 11:57:00
NoNet
Hallo Arend,
kopiere folgendes Makro in ein Modul im VBA-Editor und starte es :


Sub ZeilenEinfuegen()
    Dim Zeile
    For Zeile = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        Rows(Zeile).Resize(3).Insert '3 = Anzahl der einzufügenden Zeilen
    Next
End Sub
Gruß, NoNet
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige