Leere ZEILE in einem markierten Bereich finden

Bild

Betrifft: Leere ZEILE in einem markierten Bereich finden
von: Theo Spangenberger
Geschrieben am: 03.08.2015 15:58:29

Hallo liebes Forum,
ich suche einen Befehl(o.Ä) der mir alle leere ZEILEN in einem von mir markierten Bereich ausgibt.
Hier ein Beispielbild: Userbild
Es sind die Zeilen 1 - 6 markiert.
Jetzt möchte ich alle Zeilennummern die leer sind. Also 2,5 und 6.
Anschließend möchte ich ein Array mit diesen Zeilennummern füllen.
Danke im Vorraus :)

Bild

Betrifft: AW: Leere ZEILE in einem markierten Bereich finden
von: Rudi Maintaire
Geschrieben am: 03.08.2015 16:10:42
Hallo,
z.B.

Sub aaa()
  Dim r As Range, s As String, a
  For Each r In Selection.Rows
    If WorksheetFunction.CountA(r) = 0 Then s = s & "," & r.Row
  Next
  a = Split(Mid(s, 2), ",")
End Sub

Gruß
Rudi

Bild

Betrifft: AW: Leere ZEILE in einem markierten Bereich finden
von: Daniel
Geschrieben am: 03.08.2015 16:15:04
HI

dim arr() as long
dim x as long
dim Zelle as range
x = -1
for each Zelle in Selection.columns(1).SpecialCells(xlcelltypeblanks)
    if worksheetfunction.counta(Intersect(Selection, Zelle.entireRow)) = 0 then
        x = x + 1
        Redim Preserve arr(x)
        arr(x) = Zelle.Column
    end if
next
gruß Daniel

Bild

Betrifft: AW: Leere ZEILE in einem markierten Bereich finden
von: Theo Spangenberger
Geschrieben am: 04.08.2015 08:16:18
Hi Rudi,
klappt einwandfrei! Vielen Dank!!!
Gruß Theo

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Leere ZEILE in einem markierten Bereich finden"