Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Montag der Vorwoche

Betrifft: Montag der Vorwoche von: Bernd Grolms
Geschrieben am: 02.10.2007 13:17:53

Hallo liebe Excelisten,
wie kann ich in VBA das Datum des Montags der Vorwoche berechnen?

z.B. wir haben heute die 40.KW und den 02.10. und ich möchte jetzt den 24.09. herausfinden.

Könnt ihr mir da helfen, im Archiv habe ich nichts finden können.

Mit freundlichen Grüßen

Bernd

  

Betrifft: AW: Montag der Vorwoche von: Andi
Geschrieben am: 02.10.2007 13:40:41

Hi,

probier mal:
MsgBox Date - (Weekday(Date, 2) + 6)

Schönen Gruß,
Andi


  

Betrifft: AW: Montag der Vorwoche von: Bernd Grolms
Geschrieben am: 02.10.2007 14:04:56

suuper ich danke dir

Wenn man weiss ist es eigentlich ganz klar :-)


  

Betrifft: Gern geschehen... (ot) von: Andi
Geschrieben am: 02.10.2007 14:19:59

.


  

Betrifft: AW: Montag der Vorwoche von: ede
Geschrieben am: 02.10.2007 13:42:18

hallo bernd,
zum beispiel über die funktin weekday().

hier mal ein beispiel: (ungetestet

Sub test()
Dim ndate As Date
Dim x As Integer
'1=Sonntag, 2=Montag
If Weekday(Date) > 1 Then
    x = Weekday(Date) - 2
    ndate = Date - x - 7
Else
    x = Weekday(Date) - 2
    ndate = Date - x
End If
MsgBox ndate
End Sub



gruss


  

Betrifft: AW: Montag der Vorwoche von: Bernd Grolms
Geschrieben am: 02.10.2007 14:06:10

Hallo vielen Dank, für das Brainstorming
aber die andere Antwort ist auch nicht schlecht.