Gruppe
Allgemein
Problem
Wie kann ich alle nichtleeren Zeilen über VBA auswählen?
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