Tabellenblatt bennen
Stefanglander
ich im Archiv folgendes gefunden:
Sheets("Tabelle4").Name = "KW "& dinkw(Range("B2")
in ein Modul:
Function DINKW(Datum)
' Kalenderwoche nach DIN
Dim tmp
tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
DINKW = ((Datum - tmp - 3 + (Weekday(tmp) + 1) Mod 7)) \ 7 + 1
End Function
Das Datum habe ich im Blatt 4 in Zelle B2 stehen.
Weiterhin möchte ich gerne den Text der In Zelle A1 steht und die Kalenderwoche als Tabellenblattname haben.
Das Tabellenblat soll dann Text aus Zelle A1 KW XX heißen.
Ist sowas machbar ?
Für Hilfe wäre ich dankbar.
Gruß Stefan
Anzeige