Gruppe
Allgemein
Bereich
Markieren
Thema
Von einer Zeilenauswahl jede zweite markieren
Problem
Von den ausgewählten Zeilen soll nur jede zweite markiert werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
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