Ich habe in A1 =JAHR(HEUTE()) stehen.
Nun möchte ich in BU2 den 2.Mittwoch vom Jänner,in Bu3 den 2.Mittwoch vom Februar usw.. stehen haben.
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
Function z_mittwoch(jahr As Integer, monat As Integer)
Dim m As Integer, m1 As Integer
Dim d As Date
d = DateSerial(jahr, monat, 1)
m1 = 0
Do
If Weekday(d) = vbWednesday Then m1 = m1 + 1
If m1 = 2 Then Exit Do
d = d + 1
Loop
z_mittwoch = d
End Function
mfG
Ingo Christiansen
| N | O | P | |
| 15 | Freitag, 1. Februar 2008 | Mittwoch, 13. Februar 2008 |
| Formeln der Tabelle | ||||
|
| A | B | C | D | |
| 1 | 2008 | |||
| 2 | Mittwoch, 9. Januar 2008 | |||
| 3 | Mittwoch, 13. Februar 2008 | |||
| 4 | Mittwoch, 12. März 2008 | |||
| 5 | Mittwoch, 9. April 2008 | |||
| 6 | Mittwoch, 14. Mai 2008 | |||
| 7 | Mittwoch, 11. Juni 2008 | |||
| 8 | Mittwoch, 9. Juli 2008 | |||
| 9 | Mittwoch, 13. August 2008 | |||
| 10 | Mittwoch, 10. September 2008 | |||
| 11 | Mittwoch, 8. Oktober 2008 | |||
| 12 | Mittwoch, 12. November 2008 | |||
| 13 | Mittwoch, 10. Dezember 2008 |
| Formeln der Tabelle | ||||||||||||||||||||||||||||
|
Um den zweiten Mittwoch eines jeden Monats in Excel zu berechnen, kannst du folgende Schritte ausführen:
Jahr festlegen: Gib in Zelle A1 die Formel =JAHR(HEUTE()) ein, um das aktuelle Jahr automatisch zu ermitteln.
Formel für den 2. Mittwoch: Verwende die folgende Formel in Zelle BU2 für den Januar:
=DATUM($A$1;1;1)-REST(DATUM($A$1;1;1)-5;7)+13
Diese Formel findet den zweiten Mittwoch des Monats Januar.
Nachfolgende Monate: Um den zweiten Mittwoch für die Monate Februar bis Dezember zu berechnen, ziehe die Formel in Zelle BU2 nach unten bis BU13. Du kannst die Formel anpassen, indem du die Monatsnummer änderst.
Fehler: Die Formel gibt ein Datum im falschen Format aus.
Fehler: Die Formel gibt einen Fehlerwert zurück.
VBA-Funktion: Eine benutzerdefinierte VBA-Funktion kann ebenfalls verwendet werden. Du kannst den folgenden Code in ein Modul einfügen:
Function z_mittwoch(jahr As Integer, monat As Integer)
Dim d As Date
d = DateSerial(jahr, monat, 1)
Do While Weekday(d) <> vbWednesday
d = d + 1
Loop
d = d + 7 ' Zum 2. Mittwoch
z_mittwoch = d
End Function
Nach dem Speichern kannst du die Funktion mit =z_mittwoch($A$1;1) für den Januar verwenden.
Einfache Excel-Formel: Eine weitere Möglichkeit ist, die Formel von WF zu verwenden:
=DATUM(A$1;ZEILE(A1);1)-REST(DATUM(A$1;ZEILE(A1);1)-5;7)+13
Kopiere diese Formel in die Zellen darunter, um die nächsten Monate zu berechnen.
Hier ist ein Beispiel, wie die Tabelle aussehen könnte:
| Monat | 2. Mittwoch |
|---|---|
| Januar | Mittwoch, 9. Januar 2008 |
| Februar | Mittwoch, 13. Februar 2008 |
| März | Mittwoch, 12. März 2008 |
| April | Mittwoch, 9. April 2008 |
| Mai | Mittwoch, 14. Mai 2008 |
| Juni | Mittwoch, 11. Juni 2008 |
| Juli | Mittwoch, 9. Juli 2008 |
| August | Mittwoch, 13. August 2008 |
| September | Mittwoch, 10. September 2008 |
| Oktober | Mittwoch, 8. Oktober 2008 |
| November | Mittwoch, 12. November 2008 |
| Dezember | Mittwoch, 10. Dezember 2008 |
1. Wie kann ich die Formel anpassen, um den 3. Mittwoch zu finden?
Um den 3. Mittwoch zu finden, ändere die Formel entsprechend, indem du die Anzahl im Offset (z.B. +21 für den 3. Mittwoch) anpasst.
2. Funktioniert das in allen Excel-Versionen? Ja, die beschriebenen Methoden und Formeln sollten in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010 und neuer.