Gruppe
Allgemein
Problem
Wie kann ich zu markierende Zeilen mit Start-, Intervall- und Endwerten über InputBoxes abfragen?
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