Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige