Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
236to240
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
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kalenderwoche anhand Datum ermitteln

Kalenderwoche anhand Datum ermitteln
02.04.2003 16:19:52
Andi_H
Hi zusammen,

ich habe folgendes Problem: Ich habe in meinem sheet in a1 ein Datum stehen welches sich wöchentlich ändert. Ich möchte herausfinden in welcher Kalenderwoche dieses Datum fällt (Datum = ein Tag zwischen Montag und Freitag, Wochenende kommt nicht vor, Tag ist aber jede Woche anders)
Wer kann mir hierbei helfen, Lösung in VBA würde ich bevorzugen, aber Formel ist besser als keine Lösung.

Vielen Dank!!!
gruß Andi

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Kalenderwoche anhand Datum ermitteln
02.04.2003 16:29:03
Lutz

Hallo Andi,

im AddIn-Manager Analysefunktion anhäkseln und

="KW "& KALENDERWOCHE(A1;2)

Gruß
Lutz

Vielen Dank
02.04.2003 16:31:08
Andi_H

hi Lutz,

bestens, dankeschön

gruß
andi

VBA-Version (DIN)
02.04.2003 16:42:49
Lutz

Function DINKwoche(Datum)
'Diese Funktion stammt von Christoph Kremer.
  Dim tmp
  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

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tag As Date
    Dim Kw As Integer
    Tag = Range("A1")
    Range("B1") = DINKwoche(Tag)
End Sub

     Code eingefügt mit Syntaxhighlighter 1.14



Anzeige
Fehler!
03.04.2003 06:45:49
snickers

Hi Andi, Hi Lutz

versuch das mal mit 01.01.2000
der deutsche kalender sagt: kw 52
excel behauptet kw 01

daher: =KÜRZEN((A1-WOCHENTAG(A1;2)-DATUM(JAHR(A1+4-WOCHENTAG(A1;2));1;-10))/7)&". KW"

snickers

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige