Herbers Excel-Forum - das Archiv
Anfangstag des Monats ermiteln mit VBA
- Anfangstag des Monats ermiteln mit VBA von WHN vom 03.01.2007 11:19:20
- AW: Anfangstag des Monats ermiteln mit VBA - von OttoH am 03.01.2007 11:29:42
- AW: Anfangstag des Monats ermiteln mit VBA - von haw am 03.01.2007 11:31:13
- AW: DANKE - von WHN am 03.01.2007 12:17:09
 |
Betrifft: Anfangstag des Monats ermiteln mit VBA
von: WHN
Hallo Leute,
ich möchte über eine VBA-
Function den ersten Tag des Monats (Mo..So) ermitteln. Mit welchen Wochentag fängt ein Monat an? Ich habe mir das so vorgestellt:Function WochenTag(Jahr as long, Monat as long) as Integer ' Code End Function
Sub WochenTagName Dim TagNr as Integer TagNr = WochenTag(2007,1) If TagNr = 1 then MsgBox "Mo" If TagNr = 2 then MsgBox "Di" 'usw. End Sub
Würde mich auf eine Lösung freuen - Danke
Freundliche Grüße
Werner
 |
Betrifft: AW: Anfangstag des Monats ermiteln mit VBA
von: OttoH
Geschrieben am: 03.01.2007 11:29:42
Hallo Werner,
angenommen, das Jahr steht in B2 und der Monat in B1; dann tut's auch folgende Formel:
=WOCHENTAG(DATUM(B2;B1;1))
Das Ergebnis ist nur noch als Benutzerdefiniert "TTT" oder "TTTT" zu formatieren.
Gruß OttoH
|
Betrifft: AW: Anfangstag des Monats ermiteln mit VBA
von: haw
Geschrieben am: 03.01.2007 11:31:13
Hallo werner
z.B. so:
Sub Wochentag() MsgBox Format(DateSerial(2007, 1, 1), "ddd") End Sub
Gruß Heinz
|
Betrifft: AW: DANKE
von: WHN
Geschrieben am: 03.01.2007 12:17:09
Hallo, vielen Dank für euere Hilfe.
Beide Lösungen kann ich sehr gut gebrauchen.
Freundliche Grüße
Werner
| |