Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen einfügen mit VBA-Code

Zeilen einfügen mit VBA-Code
HaKa
Hallo Forum
Ich möchte in einer bestehenden Tabelle, Bereich A3:U150, resp. nach jeder der 147 Zeilen jeweils 10 neue, leere Zeilen einfügen. Wie lautet der Code?
Gruss Heinz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen einfügen mit VBA-Code
06.07.2010 20:53:12
Josef

Hallo Heinz,
vielleicht so?

Sub insertRows()
  Dim rng As Range
  Dim lngRow As Long
  
  On Error GoTo ErrExit
  Application.ScreenUpdating = False
  
  Set rng = Range("A3:U150")
  
  
  For lngRow = rng.Rows.Count - 1 To rng.Row - 1 Step -1
    rng.Rows(lngRow).Resize(10, rng.Columns.Count).Insert xlDown
  Next
  
  ErrExit:
  Application.ScreenUpdating = True
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Zeilen einfügen mit VBA-Code
06.07.2010 21:06:56
HaKa
Hallo Sepp
Vielen Dank, funktioniert super.
Ich wünsche Dir einen schönen Abend.
Gruss Heinz

344 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige