Wochentag "Montag" beginnen
23.12.2020 09:50:53
Eisi
seit Stunden versuche ich eine Lösung zu finden, jetzt gebe ich auf und bitte um Eure Hilfe.
Die Einträge sollen nicht mit Sonntag beginnen, sondern mit dem Montag. Ich weiß, dass es der Typ 2 ist, aber ich habe keine Idee, wie ich das einstellen soll.
Vielen Dank.
VG Eisi :-)
Sub Schleife_ForNext_Wochentage_eintragen()
Description:
Application.ScreenUpdating = False
Application.Calculation = xlManual
Application.DisplayAlerts = False
Application.EnableEvents = False
Dim ZeileTag As Integer
ThisWorkbook.Worksheets("ForNextSchleifen_3").Range("B:B").Clear
For ZeileTag = 1 To 7
Cells(ZeileTag, "B") = Format(ZeileTag, "dddd", vbMonday)
Next ZeileTag
endmacro:
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic
Application.DisplayAlerts = True
Application.EnableEvents = True
MsgBox "Complete"
End Sub