Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Erster Werktag / Monat

Erster Werktag / Monat
12.02.2007 17:35:49
Marco
Hallo zusammen,
ich habe in der Zeile D3 das Jahr und in D4 den Monat (ausgeschrieben als Wort)
Nun möchte ich gerne, dass er mir
in Zeile A13 den ersten Werktag (Datumswert) des Monats
und in Zeile A14 ff. jeweils das Datum bis zum Monatsende, wobei die Sonntage nicht angegeben werden sollen.
Lieben Dank für Eure Hilfe
Grüsse
Marco
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erster Werktag / Monat
12.02.2007 18:07:19
Ulf
Hallo Marco
vieleicht so?

Sub Datum()
Dim M As Integer
Dim Monat As String
Dim wd As Integer
Dim i As Date
Dim Z As Integer
Monat = Cells(4, 4)
Select Case Monat
Case "Januar"
M = 1
Case "Februar"
M = 2
Case "März"
M = 3
Case "April"
M = 4
Case "Mai"
M = 5
Case "Juni"
M = 6
Case "Juli"
M = 7
Case "August"
M = 8
Case "September"
M = 9
Case "Oktober"
M = 10
Case "November"
M = 11
Case "Dezember"
M = 12
End Select
wd = Weekday(DateSerial(Cells(3, 4), M, 1), 2)
If wd < 6 Then
Cells(13, 1) = DateSerial(Cells(3, 4), M, 1)
Else
If wd = 6 Then
Cells(13, 1) = DateSerial(Cells(3, 4), M, 1) + 2
Else
Cells(13, 1) = DateSerial(Cells(3, 4), M, 1) + 1
End If
End If
For i = Cells(13, 1) + 1 To DateSerial(Cells(3, 4), M + 1, 0)
If Weekday(i, 2) <> 7 Then
Cells(14 + Z, 1) = i
Z = Z + 1
End If
Next i
End Sub

mfg Ulf
Anzeige
AW: Erster Werktag / Monat
12.02.2007 21:13:17
Daniel
Hallo
hier ne Lösung mit Formeln.
Allerdings muß der Monatsname in D4 als echtes Datum eingestellt werden.
Über die Formatierung kann man es dann ja so hindrehen, daß trotzdem der augeschriebene Monatsname angezeigt wird.
Gruß, Daniel
https://www.herber.de/bbs/user/40369.xls
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Erster Werktag im Monat bestimmen


Schritt-für-Schritt-Anleitung

Um den ersten Werktag des Monats in Excel zu ermitteln, kannst du entweder VBA oder Formeln verwenden. Hier ist eine Schritt-für-Schritt-Anleitung für beide Methoden:

VBA-Methode:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
  3. Kopiere den folgenden VBA-Code in das Modul:
Sub Datum()
    Dim M As Integer
    Dim Monat As String
    Dim wd As Integer
    Dim i As Date
    Dim Z As Integer
    Monat = Cells(4, 4)
    Select Case Monat
        Case "Januar": M = 1
        Case "Februar": M = 2
        Case "März": M = 3
        Case "April": M = 4
        Case "Mai": M = 5
        Case "Juni": M = 6
        Case "Juli": M = 7
        Case "August": M = 8
        Case "September": M = 9
        Case "Oktober": M = 10
        Case "November": M = 11
        Case "Dezember": M = 12
    End Select
    wd = Weekday(DateSerial(Cells(3, 4), M, 1), 2)
    If wd < 6 Then
        Cells(13, 1) = DateSerial(Cells(3, 4), M, 1)
    Else
        If wd = 6 Then
            Cells(13, 1) = DateSerial(Cells(3, 4), M, 1) + 2
        Else
            Cells(13, 1) = DateSerial(Cells(3, 4), M, 1) + 1
        End If
    End If
    For i = Cells(13, 1) + 1 To DateSerial(Cells(3, 4), M + 1, 0)
        If Weekday(i, 2) <> 7 Then
            Cells(14 + Z, 1) = i
            Z = Z + 1
        End If
    Next i
End Sub
  1. Schließe den VBA-Editor.
  2. Führe das Makro aus, um die Daten in den Zellen A13 und A14 zu generieren.

Formel-Methode:

  1. Stelle sicher, dass der Monatsname in Zelle D4 als echtes Datum formatiert ist.
  2. In Zelle A13 kannst du die folgende Formel verwenden, um den ersten Tag des Monats zu ermitteln:
=DATUM(JAHR(D3);MONAT(D4);1)
  1. Um die werktage pro Monat zu ermitteln, kannst du in Zelle A14 folgende Formel verwenden:
=ARBEITSTAG(A13;1)

Ziehen die Formel nach unten, um das Datum bis zum Monatsende zu erhalten.


Häufige Fehler und Lösungen

  • Fehler: Zelle D4 zeigt einen Fehler an

    • Stelle sicher, dass der Monatsname in D4 korrekt eingegeben ist und als Datum formatiert ist.
  • Fehler: Makro führt nicht aus

    • Überprüfe, ob du die Makros in Excel aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.
  • Fehler: Datumswerte erscheinen nicht korrekt

    • Achte darauf, dass die Zellen im richtigen Datumsformat formatiert sind.

Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, kannst du auch die Funktion ARBEITSTAG in Kombination mit MONATSENDE verwenden, um den letzten Werktag im Monat zu ermitteln:

=ARBEITSTAG(MONATSENDE(DATUM(JAHR(D3);MONAT(D4);1);0);-1)

Diese Formel gibt dir den letzten Werktag des Monats zurück. Du kannst dann zurückrechnen, um den ersten Werktag des Monats zu finden.


Praktische Beispiele

  1. Erster Werktag im Oktober 2023:

    • In D3 steht 2023 und in D4 steht "Oktober".
    • Nach der Anwendung der oben genannten Methoden erhältst du in A13 den ersten Werktag des Monats: 02.10.2023.
  2. Letzter Werktag im Monat:

    • Verwende die Formel für den letzten Werktag und erhalte z.B. den Wert 31.10.2023.

Tipps für Profis

  • Nutze die Funktion NETTOARBEITSTAGE, um die Anzahl der Werktage pro Monat zu zählen.
  • Experimentiere mit den WOCHENENDE-Funktionen, um spezifische Datumsanpassungen vorzunehmen.
  • Schaffe dir eine Vorlage, die automatisch die werktage für verschiedene Monate und Jahre berechnet, um Zeit zu sparen.

FAQ: Häufige Fragen

1. Wie finde ich den ersten Tag im Monat in Excel? Um den ersten Tag des Monats zu finden, verwende die Funktion DATUM(JAHR(D3); MONAT(D4); 1).

2. Was ist der Unterschied zwischen einem Werktag und einem Wochenende in Excel? Ein Werktag ist jeder Tag von Montag bis Freitag, während Samstag und Sonntag als Wochenende zählen. Die Funktion ARBEITSTAG hilft dir, nur Werktage zu berücksichtigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige