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
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 = NothingEnd 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