Folgendes:
Ich habe eine Planung mit einer Excel Datei erstellt. Dabei ist jedes Tabellen nach seiner KW benannt. Nun möchte ich, dass per Knopfdruck ein neues Tabellenblatt erstellt wird und dabei immer die letzte KW +1 als Tabellenblattname hinterlegt ist. Ist das Ganze bei der Letzten KW im Jahr angekommen, soll es auf KW 1 im neuen Jahr springen.
Zudem ist das Datum der kompletten Woche in der jeweiligen KW-Tabelle eingetragen. Gibt es eine Möglichkeit, das ebenfalls gleichzeitig an die neue KW anpassen zu lassen?
Mein aktuelle Code lautet:
Sub DienstplanNeueKW() 'neue KW per Knopfdruck
Dim wksSheetZ As Worksheet
Dim strFile As String
Dim lngCalc As Long
Dim lngTMP As Long
On Error GoTo Fin
strFile = ThisWorkbook.Path & Application.PathSeparator & "Vorlage.xltx"
With Application
.ScreenUpdating = False
.AskToUpdateLinks = False
.EnableEvents = False
lngCalc = .Calculation
.Calculation = xlCalculationManual
.DisplayAlerts = False
End With
ThisWorkbook.Worksheets("Vorlage").Visible = xlSheetVisible
With Tabelle4
ThisWorkbook.Worksheets("Vorlage").Copy After:=ThisWorkbook.Worksheets( _
Worksheets.Count)
ThisWorkbook.Worksheets(Worksheets.Count).Name = "KW " & 39 + 1
Set wksSheetZ = Nothing
End With
Fin:
ThisWorkbook.Worksheets("Vorlage").Visible = xlSheetHidden
Set wksSheetZ = Nothing
With Application
.ScreenUpdating = True
.AskToUpdateLinks = True
.EnableEvents = True
.Calculation = lngCalc
.DisplayAlerts = True
End With
If Err.Number 0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
End If
End Sub
Mit meinem Code kann ich zwar manuell die letzte KW eingeben und dann +1 Zählen lassen aber das bringt mir leider nichts...Anbei die Datei: https://www.herber.de/bbs/user/109679.xlsm
Vielen Dank vorab.
Liebe Grüße
Gabi