Herbers Excel-Forum - das Archiv

Anfangstag des Monats ermiteln mit VBA

Bild

Betrifft: Anfangstag des Monats ermiteln mit VBA
von: WHN

Geschrieben am: 03.01.2007 11:19:20
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
Bild

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
Bild

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
Bild

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
 Bild
Excel-Beispiele zum Thema "Anfangstag des Monats ermiteln mit VBA"
Benennen von Tabellenblättern mit Monatsnamen Monatsberechnung in der Rentenversicherung
Werte eins bestimmten Monats summieren ComboBox mit Monatsnamen füllen
Monatsblatt anlegen Jahreskalender mit Monatsblättern anlegen
Geburtstage eines vorzugebenden Monats in neue Tabelle Tabellen für die Werktage eines Monats erstellen
Alle Werte eines Wochentages aus Monatsblättern addieren Monatstage eines vorgegebenen Zeitraum listen und addieren