Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Von einer Zeilenauswahl jede zweite markieren

Gruppe

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