Thema: Alle nichtleeren Zeilen markieren

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Markieren