Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

das Datum aller Dienstage im Monat

Forumthread: das Datum aller Dienstage im Monat

das Datum aller Dienstage im Monat
19.08.2004 20:29:36
Peter
Hallo Forum,
ich habe eine Tabelle mit Monatnamen und Jahr benannt (z.B. Aug 04).
Ist es möglich daraus das Datum aller Dienstage in diesen Monat
zu erstellen?
Danke Peter
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachtrag-: das Datum aller Dienstage im Monat
19.08.2004 20:31:24
Peter
Wenn möglich per VBA.
Danke Peter
einfachste Lösung?
ChrisL
Hi Peter
Solltest die Frage als offen kennzeichnen, sonst geht der Beitrag rasch unter.
Ansonsten frage ich mich, wie man den String "Aug" am einfachsten in ein Datum resp. Nummer umwandelt. In VBA braust du die Monate grundsätzlich in englisch und ich vermute die sind in deutsch. Entweder wandelst du die Monate 'manuell' um z.B. mit Select Case oder dachte evtl. noch über eine Hilfszelle in der Tabelle z.B. mit .FormulaLocal in Zelle eintragen und wieder zurück holen. Hat jemand eine bessere Idee?
Der Rest ist dann vermutlich mit WeekDay lösbar.
Gruss
Chris
Anzeige
AW: das Datum aller Dienstage im Monat
19.08.2004 21:08:07
Mike
Hallo Peter,
sicher nicht die beste Lösung, aber es funktioniert.
Format der Inputbox: TT.MM.JJ

Sub Dienstag()
Dim Frage1 As Date
Frage1 = InputBox("Monat/Jahr")
Frage = Format(Frage1, "mm.yy")
On Error GoTo Fehler
For i = 1 To 31
Tag = Format(i, "00") & "." & Frage
If Format(Tag, "dddd") = "Dienstag" Then
MsgBox (Format(Tag, "dddd") & Chr(10) & Tag)
End If
Next i
Fehler:
Exit Sub
End Sub

Grüße
Mike E.
Anzeige
Mär, Mai, Okt, Dez? ;-) o.T.
ChrisL
Gruss
Chris
AW: Mär, Mai, Okt, Dez? ;-) o.T.
Mike
Hi Chris,
hab' ich mal wieder etwas nicht verstanden?
Es grüßt und fragt
der Mike
alles OK, sorry
ChrisL
Hi Mike
Funktioniert einwandfrei, sorry für meine Zweifel ;-)
Es lag an meiner Ländereinstellung. Nichts für Ungut.
Gruss
Chris
Anzeige
;
Anzeige

Infobox / Tutorial

Alle Dienstage im Monat mit Excel finden


Schritt-für-Schritt-Anleitung

Um das Datum aller Dienstage in einem bestimmten Monat in Excel zu erstellen, kannst du VBA verwenden. Folgende Schritte sind notwendig:

  1. Öffne Excel und drücke ALT + F11 um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub Dienstag()
       Dim Frage1 As Date
       Frage1 = InputBox("Monat/Jahr (z.B. 01.2024)")
       Frage = Format(Frage1, "mm.yy")
       On Error GoTo Fehler
       For i = 1 To 31
           Tag = Format(i, "00") & "." & Frage
           If Format(Tag, "dddd") = "Dienstag" Then
               MsgBox (Format(Tag, "dddd") & Chr(10) & Tag)
           End If
       Next i
    Fehler:
       Exit Sub
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Drücke ALT + F8, wähle Dienstag und klicke auf Ausführen.

  6. Gib das Datum im Format MM.JJJJ ein (z.B. 01.2024 für Januar 2024).

  7. Eine Nachricht zeigt dir alle Dienstage im eingegebenen Monat an.


Häufige Fehler und Lösungen

  • Fehler: "Typenkonflikt" beim Eingeben des Datums

    • Stelle sicher, dass das Datum im richtigen Format eingegeben wird (z.B. MM.JJJJ).
  • VBA funktioniert nicht aufgrund von Ländereinstellungen

    • Überprüfe deine Excel-Einstellungen. In manchen Fällen kann es notwendig sein, die Spracheinstellungen anzupassen, um die Wochentage korrekt zu erkennen.
  • Keine Dienstage angezeigt

    • Vergewissere dich, dass der eingegebene Monat tatsächlich Dienstage enthält. Zum Beispiel hat der Februar 2024 nur vier Dienstage.

Alternative Methoden

Falls du keine VBA-Lösung verwenden möchtest, kannst du auch mit Excel-Formeln arbeiten. Hier ist eine einfache Methode:

  1. Erstelle eine Liste von Datumsangaben für den gewünschten Monat in einer Spalte.

  2. Verwende die folgende Formel, um die Dienstage zu filtern:

    =WENN(WOCHENTAG(A1;2)=2;A1;"")
  3. Ziehe die Formel nach unten, um sie auf die restlichen Daten anzuwenden.

Das ist eine einfache Methode, um "excel alle dienstage im jahr" zu ermitteln.


Praktische Beispiele

  • Beispiel 1: Januar 2024

    • Gib 01.2024 ein und du erhältst die Dienstage: 02.01.2024, 09.01.2024, 16.01.2024, 23.01.2024, 30.01.2024.
  • Beispiel 2: März 2024

    • Für den Monat März 2024 erhältst du die Dienstage: 05.03.2024, 12.03.2024, 19.03.2024, 26.03.2024.

Wenn du wissen möchtest, wie viele dienstage hat das jahr 2024, kannst du die gleiche Methode für jeden Monat anwenden und die Ergebnisse zusammenzählen.


Tipps für Profis

  • Automatisiere die Eingabe: Erstelle ein Formular, um das Datum direkt in Excel einzugeben und auf Knopfdruck die Dienstage anzuzeigen.
  • Verwende bedingte Formatierung: Hebe die Dienstage in deiner Liste hervor, um sie schneller zu identifizieren.
  • Kalenderfunktion: In Excel gibt es auch die Möglichkeit, Kalenderfunktionen zu verwenden, um die Wochentage für das gesamte Jahr zu berechnen.

FAQ: Häufige Fragen

1. Wie viele Dienstage hat ein Jahr?
Ein Jahr hat in der Regel 52 oder 53 Dienstage, abhängig davon, an welchem Wochentag das Jahr beginnt und ob es ein Schaltjahr ist.

2. Was ist der Unterschied zwischen einer normalen Excel-Berechnung und VBA?
VBA ermöglicht komplexere Berechnungen und Automatisierungen, während Excel-Formeln oft einfacher sind, aber weniger flexibel.

3. Kann ich die Dienstage für jedes Jahr finden?
Ja, du kannst die oben genannten Methoden für jedes Jahr anwenden, um zu sehen, wie viele dienstage hat das jahr 2024 oder ein anderes Jahr.

4. Funktioniert das auch in Excel Online?
VBA funktioniert nicht in Excel Online. Für diese Plattform musst du auf Excel-Formeln zurückgreifen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige