Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kalenderwoche anzeigen

Forumthread: Kalenderwoche anzeigen

Kalenderwoche anzeigen
23.01.2005 21:55:54
Harald
Hallo zusammen,
mit folgendem Code kann ich das aktuelle Datum in eine Zelle einstellen:
activecell.value = date
1) Wie muss der Code heissen, um die aktuelle Kalenderwoche einzustellen
2) Wie muss der Code lauten um die Kalenderwoche zu einem Datum einzustellen.
Also so z.B.:
Wenn in Zelle A1 ein Datum steht, schreibe die passende Kalenderwoche in B1
Vielen Dank.
Mit freundlichen rüßen
Harald aus Köln
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kalenderwoche anzeigen
23.01.2005 21:58:33
Josef Ehrensberger
Hallo Harald!


      
Function DINKwoche(ByVal Datum As Date) As Integer
    
Dim tmp As Date
    tmp = DateSerial(Year(Datum + (8 - Weekday(Datum)) 
Mod 7 - 3), 1, 1)
    DINKwoche = ((Datum - tmp - 3 + (Weekday(tmp) + 1) 
Mod 7)) \ 7 + 1
End Function
Sub Kalenderwoche()
ActiveCell.Offset(0, 1) = DINKwoche(Date)
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW für Sepp: Kalenderwoche anzeigen
24.01.2005 22:57:30
Harald
Hallo Sepp,
vielen Dank für die mal wieder schnelle Antwort.
Leider komme ich diesmal nicht damit klar.
Das Makro gibt mir einen Fehler beim letzten Begriff "DINKwoche(Date)" einen Fehlerhinweis.
Ich habe aber mittlerweile meine Datei komplett umgestellt und einen anderen Lösungsweg gefunden.
Nochmal vielen Dank.
Gruß, Harald aus aus Köln
Anzeige
AW: AW für Sepp: Kalenderwoche anzeigen
25.01.2005 05:25:11
andre
Hallo Harald,
bei Datumsfunktionen solltest Du bei den AddIn die beiden ...Analyse... aktivieren.
Grüße, Andre
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige