Kalender nach Kalenderwoche zuweisen
11.08.2017 10:01:33
ralph
ich möchte gerne ein Kalenderblatt jedes Jahr mit neuen Datum werten als neues Dokument abspeichern. Das Speichern an für sich klappt auch. jedoch möchte ich, dass die in Spalte C ab Zeile 10 stehenden Datums-werte auch für das neue Jahr angepasst werden. hierfür habe ich in Zelle A9 mein Kalenderjahr abgespeichert. Auch das ändern der Datum-Werte klappt.
Jedoch habe ich eine bestimmte Formatierung meines Tabellenblatts, weshalb ich möchte, dass in Zelle C10 das Datum des ersten Montags in KW1 steht.
Option Explicit
Sub Jahreswechsel()
Const DNAME$ = "Kalender"
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Pfad$: Pfad = Wb.Path & "\"
' MsgBox Weekday("01.01." & Sheets("Vorlage Kalender").Cells(9, 1).Value + 1)
Select Case Weekday("01.01." & Sheets("Vorlage Kalender").Cells(9, 1).Value + 1)
Case 2
Sheets("Vorlage Kalender").Cells(10, 3).Value = "01.01." & Sheets("Vorlage Kalender"). _
Cells(9, 1).Value + 1
Case 3
Sheets("Vorlage Kalender").Cells(10, 3).Value = "02.01." & Sheets("Vorlage Kalender"). _
Cells(9, 1).Value + 1
Case 4
Sheets("Vorlage Kalender").Cells(10, 3).Value = "03.01." & Sheets("Vorlage Kalender"). _
Cells(9, 1).Value + 1
Case 5
Sheets("Vorlage Kalender").Cells(10, 3).Value = "04.01." & Sheets("Vorlage Kalender"). _
Cells(9, 1).Value + 1
Case 6
Sheets("Vorlage Kalender").Cells(10, 3).Value = "29.12." & Sheets("Vorlage Kalender"). _
Cells(9, 1).Value
Case 7
Sheets("Vorlage Kalender").Cells(10, 3).Value = "30.12." & Sheets("Vorlage Kalender"). _
Cells(9, 1).Value
Case 1
Sheets("Vorlage Kalender").Cells(10, 3).Value = "31.12." & Sheets("Vorlage Kalender"). _
Cells(9, 1).Value
End Select
'Wb.SaveCopyAs Pfad & DNAME & "_" & Sheets("Vorlage Kalender").Cells(9, 1).Value & ".xlsm"
End Sub
Vielen Dank im Voraus für eure Hilfe.
Gruß
Ralph