Thema: Von einer Zeilenauswahl jede zweite markieren

StandardModule: Modul1

Sub SecondRows()
   Dim rng As Range
   Dim lRow As Long
   Dim bln As Boolean
   For lRow = Selection.Row To Selection.Row + _
      Selection.Rows.Count - 1
      bln = Not bln
      If bln Then
         If Not rng Is Nothing Then
            Set rng = Application.Union(rng, Rows(lRow))
         Else
            Set rng = Rows(lRow)
         End If
      End If
   Next lRow
   rng.Select
End Sub

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