VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Von einer Zeilenauswahl jede zweite markieren

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

    


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