Microsoft Excel

Herbers Excel/VBA-Archiv

Kalenderwoche mit "Ausgeben"

Betrifft: Kalenderwoche mit "Ausgeben" von: Lemmi
Geschrieben am: 19.08.2008 21:53:38


Hallo zusammen,

ich habe von Euch ein Marko geschrieben bekommen welches, nach Eingabe in Spalte H ein Datum mit ausgibt. Nun möchte ich noch eine ergänzende Angabe mit hinein bringen!

Lässt sich nach dem Datum auch die KW (Kalenderwoche) mit ausgeben! und wie würde die Programmzeile dann aussehen!

If Not ...

If Not Intersect(Target, ws.Range("H7:H1000")) Is Nothing Then
Target.Value = Target.Value & " " & Date ' nur mit Datum; soll aber auch mit KW
End If
End If

...Wunsch- Ausgabe! Text..... 18.08.08; KW34

MFG

Lemmi

  

Betrifft: AW: Kalenderwoche mit "Ausgeben" von: Ramses
Geschrieben am: 19.08.2008 22:07:59

Hallo

Nimm diese Funktion noch in dein Modul mit auf


Function myKW(newD As Date) As Integer
    Dim myDay As Double
    myDay = DateSerial(Year(newD + (8 - Weekday(newD)) Mod 7 - 3), 1, 1)
    myKW = (newD - myDay - 3 + (Weekday(myDay) + 1) Mod 7) \ 7 + 1
End Function


Dann kannst du das so machen

Target.Value = Target.Value & " KW:" & myKw(Date) & ", " & Date

Gruss Rainer


  

Betrifft: AW: Kalenderwoche mit "Ausgeben" von: Daniel
Geschrieben am: 19.08.2008 22:19:27

HI

so:

Target.Value = Target.Value & " " & Date & "; KW" &  _ 
    [TRUNC((TODAY()-WEEKDAY(TODAY(),2)-DATE(YEAR(TODAY()+4-WEEKDAY(TODAY(),2)),1,-10))/7)]



Gruß, Daniel
ps. die Formel stammt von hier: http://www.excelformeln.de/formeln.html?welcher=7


  

Betrifft: AW: Kalenderwoche mit "Ausgeben" von: Lemmi
Geschrieben am: 20.08.2008 21:26:15

Hallo Ihr zwei!

ich habe soeben das Marko erfolgreich angepasst !


Vielen Dank!!!

Gruß

Lemmi


  

Betrifft: erledigt von: zu
Geschrieben am: 21.08.2008 17:59:22

zu


 

Beiträge aus den Excel-Beispielen zum Thema "Kalenderwoche mit "Ausgeben""