Microsoft Excel

Herbers Excel/VBA-Archiv

von Datum in KW

    Betrifft: von Datum in KW von: Fritz
    Geschrieben am: 26.08.2003 22:38:05

    Zelle A1:A31 habe ich Benutzerdifiniert 2003 - 08 - 00, somit
    erscheint bei der Eingabe von 12 in Zelle A12 12 - 08 - 2003.
    Datumsschreibweise in Amerikanischer Form muss erhalten bleiben.
    Einfache Eingabe soll weiterhin möglich sein.
    In der Zelle B12 brauche ich die Kalenderwoche ab Montag aus der Zelle A12.
    A12 wird hierbei nicht als Datum erkannt.

    Danke an alle

    Fritz

      


    Betrifft: AW: von Datum in KW von: Ramses
    Geschrieben am: 26.08.2003 22:46:05

    Hallo,

    kann auch nicht erkannt werden weil in der Zelle nur 12 drin steht und die Darstellung lediglich durch ein von Dir definiertes Zellformat so erscheint.

    Ohne korrektes Datum geht es nicht die Kalenderwoche korrekt zu berechnen.

    Die einfachste Variante dazu ist die Funktion "Kalenderwoche()" die du mit dem Funktionsassistenten aufrufen kannst.
    Vorher im AddIn-Manager die "Analysefunktionen" installieren

    Gruss Rainer


      


    Betrifft: AW: von Datum in KW von: K.Rola
    Geschrieben am: 26.08.2003 23:00:48

    Hallo,

    hier eine UDF. Du musst, da ja dein Datum lediglich den Tag liefert,
    für jeden Monat erneut eingeben, den Tag refenzierst du mit der
    entsprechenden Zelle:

    Function KaWe_DIN(Jahr As Integer, Monat As Byte, Tag As Byte) As Integer
    Dim D As Date
    D = DateSerial(Jahr, Monat, Tag)
    KaWe_DIN = _
    Fix((D - Weekday(D, 2) - DateSerial(Year(D + 4 - Weekday(D, 2)), 1, -10)) / 7)
    End Function
    



    Gruß K.Rola