Wie kann ich das folgende Progamm so abändern dass kein Bereich mehr markiert werden muss dafür aber das Enddatum gefragt wird?
Public Sub Wochentage()
Dim datTag As Date
Dim intSchrittweite1 As Integer
Dim intSchrittweite2 As Integer
Dim i As Integer
Dim xlsZelle As Range
datTag = InputBox("Anfangsdatum eingeben:")
intSchrittweite1 = InputBox("Anzahl Tage bis 2. Abend:")
intSchrittweite2 = 7 - intSchrittweite1
i = 1
For Each xlsZelle In Selection
xlsZelle.Value = datTag
If i Mod 2 = 0 Then
datTag = datTag + intSchrittweite2
Else
datTag = datTag + intSchrittweite1
End If
i = i + 1
Next
End Sub
