leere zeilen einfügen nach jeder gefüllten zeile 06.09.2005 07:18:46 mitch Hallo ich habe folgendes Problem. Ich möchte in einem Bereich der mit Daten gefüllt ist zwischen jede gefüllte Zeile eine oder zwei leere Zeilen per VBA einfügen. gruß mitch
AW: leere zeilen einfügen nach jeder gefüllten zeile 06.09.2005 10:17:44 Nepumuk Hallo mitch, eine Zeile: ' **********************************************************************' Modul: Modul5 Typ: Allgemeines Modul' **********************************************************************Option ExplicitPublic Sub prc_Eine_Leerzeile_einfuegen() Dim lngRow As Long Application.ScreenUpdating = False For lngRow = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1 If WorksheetFunction.CountBlank(Rows(lngRow)) < Columns.Count _ And WorksheetFunction.CountBlank(Rows(lngRow - 1)) < Columns.Count _ Then Rows(lngRow).Insert Shift:=xlShiftDown Next Application.ScreenUpdating = TrueEnd Sub Gruß Nepumuk Excel & VBA Beispiele Anzeige