Herbers Excel/VBA-Archiv

Zellen autmatisch einfügen | Herbers Excel-Forum

• Zellen autmatisch einfügen von Andreas E vom 28.10.2008 12:37:02
• AW: Zellen autmatisch einfügen - von rofu am 28.10.2008 13:15:22
  • AW: Zellen autmatisch einfügen - von Andreas E am 28.10.2008 13:32:11
    • AW: Zellen autmatisch einfügen - von Rudi Maintaire am 28.10.2008 14:09:21
      • AW: Zellen autmatisch einfügen - von Andreas E am 28.10.2008 17:37:38

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!!

Beiträge aus den Excel-Beispielen zum Thema "Zellen autmatisch einfügen"