Ich möchte gerne mit einem Makro, beim öffnen der Datei, in der Tabelle1, resp. in der Zelle B2 die aktuelle Kalenderwoche angezeigt haben. Wie lautet der Code?
Gruss Heinz
Private Sub Workbook_Open()
Worksheets(1).Cells(1, 2).FormulaLocal = "=KÜRZEN((Heute()-WOCHENTAG(Heute();2)-DATUM(JAHR( _
Heute()+4-WOCHENTAG(Heute();2));1;-10))/7)&"". KW"""
Worksheets(1).Cells(1, 2).Value = Worksheets(1).Cells(1, 2)
End Sub
Quelle:
https://www.herber.de/forum/archiv/124to128/t127554.htm#127571
Gruß Matthias
A | B | |
2 | akt. Woche: | 43 |
Formeln der Tabelle | ||||
|