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

Forumthread: leere zeilen einfügen nach jeder gefüllten zeile

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
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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 Explicit

Public 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 = True
End Sub

Gruß
Nepumuk
Excel & VBA – Beispiele
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige