Habe gestern eine Lösung zu meinem Problem bekommen.
Nun habe ich aber ein Neues !?!
Der Wert z soll in einen Kalender unterhalb der Tage zwischen
Start und Ende
Bei dieser Lösung müssen alle Tage in einer Reihe stehen um sie zu finden.
In meinem Kalender ist aber
Januar ab Zelle F6 bis Zelle aj6
Februar ab Zelle F12 bis Zelle aj 12
usw.
Sub Autoeingabe()
Dim start As Date, ende As Date, z As String
Dim c As Integer, d As Integer
start = InputBox("Bitte Startdatum eingeben")
ende = InputBox("Bitte das Enddatum")
z = InputBox("welches Kürzel soll eingetragen werden?")
'Anfangsspalte finden
c = 1
d=6
Do Until Cells(d, c) = start
c = c + 1
Loop
'bis Enddatum eintragen
Do Until Cells(d, c) = ende + 1
If Weekday(Cells(d, c)) > 1 And Weekday(Cells(d, c)) < 7 Then 'Wochenende?
Cells(d + 3, c) = z
End If
c = c + 1
Loop
End Sub
Meine Frage : Wie kann ich das bestehende ändern ohne dass ich
d angeben muß !
mfg
Harry