Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zeilen markieren

Gruppe

Markieren

Problem

Wie kann ich zu markierende Zeilen mit Start-, Intervall- und Endwerten über InputBoxes abfragen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub ZeilenMarkieren()
   Dim rng As Range
   Dim iStart As Integer, iIntervall As Integer
   Dim iCount As Integer, iCounter As Integer
   iStart = InputBox(prompt:="Erste Zeile:", Default:=1)
   iIntervall = InputBox(prompt:="Intervall:", Default:=2)
   iCount = InputBox(prompt:="Anzahl:", Default:=20)
   Set rng = Rows(iStart)
   For iCounter = iStart To iStart + iCount * iIntervall - 1 Step iIntervall
      Set rng = Union(rng, Rows(iCounter))
   Next iCounter
   rng.Select
End Sub