Gruppe
Allgemein
Bereich
Markieren
Thema
Alle nichtleeren Zeilen markieren
Problem
Wie kann ich alle nichtleeren Zeilen über VBA auswählen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub ZeilenMarkieren()
Dim rng As Range
Dim iRow As Integer, iRowL As Integer
iRowL = Cells.Find(what:="*", after:=Range("A1"), _
searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For iRow = 1 To iRowL
If WorksheetFunction.CountA(Rows(iRow)) > 0 Then
If rng Is Nothing Then
Set rng = Rows(iRow)
Else
Set rng = Union(rng, Rows(iRow))
End If
End If
Next iRow
rng.Select
End Sub