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 | ||||
|
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen