Betrifft: Zellen autmatisch einfügen
von: Andreas E
Geschrieben am: 28.10.2008 12:37:02
Hallo!
Kann Excel in eine bestehende Tabelle automatisch nach jeder Zeile 8 weitere einfügen? Ohne dass ich selbst per hand jede Zeile einzeln anklicken muss?
Danke für Antwort!
Betrifft: AW: Zellen autmatisch einfügen
von: rofu
Geschrieben am: 28.10.2008 13:15:22
hallo,
welcher gedanke steckt dahinter?
wenn so: zeile 1 8 zeilen einfügen
zeile 2 8 zeilen einfügen usw.. ENDE NIE
oder meinst du, dass wenn du eine zelle anklickst 8 zeilen eingefügt werden?
bitte meldung
gruß
rofu
Betrifft: AW: Zellen autmatisch einfügen
von: Andreas E
Geschrieben am: 28.10.2008 13:32:11
Also ich habe ca. 600 Zeilen mit Werten, da ich nun aber die Datn von mehreren Excel Tabellen zusammentragen möchte, würde unter jede Zeile die schon vorhanden ist, mind. 7 weitere dazukommen. dann die nächste alte und wieder sieben neue... bis alle welche dazubekommen haben. mir wird schon der Finger ganz heiß ;-)
Danke!
Betrifft: AW: Zellen autmatisch einfügen
von: Rudi Maintaire
Geschrieben am: 28.10.2008 14:09:21
Hallo,
Sub tt() Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 Range(Rows(i + 1), Rows(i + 8)).EntireRow.Insert Next Application.ScreenUpdating = True End Sub
Gruß
Rudi
Betrifft: AW: Zellen autmatisch einfügen
von: Andreas E
Geschrieben am: 28.10.2008 17:37:38
Vielen, vielen Dank!!