Microsoft Excel

Herbers Excel/VBA-Archiv

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

Erster Montag im Monat | Herbers Excel-Forum


Betrifft: Erster Montag im Monat von: markus
Geschrieben am: 18.11.2009 14:51:35

Hallo zusammen,

Archiv gibt leider nur Lösungen mit VBA her.
wie finde ich per VBA den ersten Montag im Monat?
Ich hatte eine Lösung ohne VBA, doch ist mein Prog weitläufiger und daher bin ich auf der Suche nach einer VBA lösung.

Danke vorab,
markus

  

Betrifft: AW: Erster Montag im Monat von: Oberschlumpf
Geschrieben am: 18.11.2009 14:53:46

Hi Markus

"Archiv gibt leider nur Lösungen mit VBA her.........und daher bin ich auf der Suche nach einer VBA lösung"

Und warum nutzt du dann nicht eine der VBA-Lösungen?

Ciao
Thorsten


  

Betrifft: Perfekt.... von: Björn B.
Geschrieben am: 18.11.2009 16:10:28

Hallo,

Lach, das habe ich erst jetzt gesehen.
Klasse. Ich liebe solche Fragestellungen.

Danke Thorsten, für die treffende "Zusammenfassung" der Fragestellung.

Gruß
Björn B.


  

Betrifft: VBA Lösung von: Tino
Geschrieben am: 18.11.2009 17:08:13

Hallo,
müsste funktionieren

Dim Datum As Date

Datum = Date

Datum = DateSerial(Year(Datum), Month(Datum), 1)
Datum = Datum + 8 - Weekday(Datum, 2)

MsgBox Format(Datum, "dddd dd.mm.yyyy")
Gruß Tino


  

Betrifft: AW: @Tino von: Peter Feustel
Geschrieben am: 18.11.2009 17:47:57

Hallo Tino,

nur wenn der 1. Montag am Monatsersten ist (01.06.2009) gibt Dein Makro den 08.06.2009 aus.

Gruß Peter


  

Betrifft: AW: @Tino von: Peter Feustel
Geschrieben am: 18.11.2009 17:53:52

Halo Tino,

If Weekday(Datum, 2) <> 1 Then _
Datum = Datum + 8 - Weekday(Datum, 2)

könnte helfen.

Gruß Peter


  

Betrifft: ja genau, ich mach Montags immer blau. ;-) oT. von: Tino
Geschrieben am: 18.11.2009 18:22:17




Beiträge aus den Excel-Beispielen zum Thema "Erster Montag im Monat"