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

Forumthread: Heutiges Datum + 4 Tage kein Wochenende

Heutiges Datum + 4 Tage kein Wochenende
03.12.2020 17:32:47
petersen
Hallo zusammen,
ich würde gerne wenn ich den Makro betätige, in einer des anderen Blatts das heutige Datum PLUS 4 Tage schreiben. Besonderheit soll jedoch sein, dass ohne Wochenenden und nach Möglichkeit auch ohne Feiertage gerechnet werden soll. Die 4 Tage sollen ohne den heutigen Tag gerechnet werden.
Die Formel habe ich schon fast, leider jedoch noch inklusive Wochenende:

Workbooks("Mappe1.xlsm").Worksheets("Blatt2").Range("A9").Value = DateAdd("d", 4, Date)

Ich bitte um Hilfe,
Grüße!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
[A1] = "=WORKDAY(TODAY(),4,FreieTage)"
03.12.2020 17:40:49
lupo1
ActiveWorkbook.Names.Add Name:="FreieTage", RefersToR1C1:= _
"=Tabelle1!R1C7:R5C7"
[A1] = "=WORKDAY(TODAY(),4,FreieTage)"
Ich habe es für Dich billig aufgezeichnet ...
03.12.2020 20:00:39
lupo1
... hättest Du selbst auch gekonnt.
AW: Heutiges Datum + 4 Tage kein Wochenende
03.12.2020 19:01:04
petersen
Hallo,
was hat es mit "=Tabelle1!R1C7:R5C7" auf sich, muss ich da Tabelle1 ändern? Ist in deinem Beispiel A1 bei mir A9?
Dieser Code klappt so nicht:
Workbooks("Kapazitätsberechnung Engpass Karten.xlsm").Worksheets("Frozen Zone").Names.Add Name:= _
"FreieTage", RefersToR1C1:= _
"=Frozen Zone!R1C7:R5C7"
Workbooks("Kapazitätsberechnung Engpass Karten.xlsm").Worksheets("Frozen Zone").Range("A9").Value = "=WORKDAY(TODAY(),4,FreieTage)"

Anzeige
AW: Heutiges Datum + 4 Tage kein Wochenende
03.12.2020 19:06:25
onur
Das ist der Bereich, wo du alle Feiertage aufgelistet hast (haben solltest).
Guck dir den Link doch endlich mal an, den ICH dir gepostet habe.
AW: Heutiges Datum + 4 Tage kein Wochenende
03.12.2020 19:27:47
petersen
Moin Onur,
hab ich ENDLICH gemacht. Hab ne Lösung gefunden.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Heutiges Datum + 4 Tage ohne Wochenende berechnen


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und erstelle ein neues Arbeitsblatt oder öffne dein bestehendes Arbeitsblatt.
  2. Definiere den Bereich für Feiertage: Gehe zu dem Blatt, wo du die Feiertage auflisten willst (z.B. "Tabelle1"), und trage die Feiertage in eine Spalte ein.
  3. Füge die Namensdefinition hinzu:
    • Gehe zu "Formeln" > "Namensmanager" > "Neu".
    • Gib den Namen "FreieTage" ein und als Bezug =Tabelle1!$G$1:$G$5 (oder den Bereich deiner Feiertage).
  4. Verwende die WORKDAY-Funktion:
    • In die Zelle, in die das Datum geschrieben werden soll (z.B. A9), gib die folgende Formel ein:
      =WORKDAY(HEUTE(), 4, FreieTage)
    • Diese Formel berechnet das Datum vier Arbeitstage nach dem heutigen Datum, ohne Wochenenden und unter Berücksichtigung von Feiertagen.

Häufige Fehler und Lösungen

  • Fehler: #NAME?

    • Ursache: Der Name "FreieTage" wurde nicht korrekt definiert. Überprüfe die Namensdefinition im Namensmanager.
  • Fehler: Falsches Datum wird angezeigt

    • Ursache: Stelle sicher, dass die Feiertage im richtigen Format eingegeben sind und im Bereich "FreieTage" referenziert werden.
  • Das Datum wird nicht aktualisiert

    • Lösung: Stelle sicher, dass die Formel korrekt eingegeben wurde und drücke F9, um die Berechnung in Excel zu aktualisieren.

Alternative Methoden

  1. Datum ohne Feiertage berechnen:

    • Wenn du keine Feiertage berücksichtigen möchtest, kannst du die Formel einfach so ändern:
      =WORKDAY(HEUTE(), 4)
  2. VBA-Makro verwenden:

    • Du kannst auch ein VBA-Makro erstellen, um das Datum zu berechnen:
      Sub BerechneDatum()
       Dim Feiertage As Range
       Set Feiertage = Worksheets("Tabelle1").Range("G1:G5") ' Bereich für Feiertage
       Worksheets("Blatt2").Range("A9").Value = Application.WorksheetFunction.WorkDay(Date, 4, Feiertage)
      End Sub

Praktische Beispiele

  • Beispiel 1: Wenn heute der 1. Januar 2023 ist, wird das Ergebnis der Formel =WORKDAY(HEUTE(), 4, FreieTage) der 5. Januar 2023 sein, sofern der 1. Januar ein Sonntag ist und keine Feiertage zwischen diesen Daten liegen.

  • Beispiel 2: Für ein Projekt, das in 4 Arbeitstagen beginnt, nutze die Formel, um automatisch das Startdatum zu berechnen.


Tipps für Profis

  • Verwende die Formel =WORKDAY(TODAY(), 4, Feiertage) für eine schnelle Berechnung ohne zusätzliche Schritte.
  • Nutze die Funktion NETWORKDAYS, um die Anzahl der Arbeitstage zwischen zwei Daten zu berechnen, wenn du mehr Informationen benötigst:
    =NETWORKDAYS(A1, A2, FreieTage)

FAQ: Häufige Fragen

1. Wie viele Tage hat das Jahr ohne Wochenende?
Ein Jahr hat in der Regel 261 Arbeitstage, wenn man die Wochenenden abzieht.

2. Kann ich die Feiertage in einer anderen Tabelle speichern?
Ja, du kannst die Feiertage in jeder Tabelle speichern, solange der Bereich in der Namensdefinition korrekt angegeben ist.

3. Wie kann ich das heutige Datum in Excel automatisch einfügen?
Nutze die Funktion =HEUTE(), um das aktuelle Datum in einer Zelle anzuzeigen, das sich täglich aktualisiert.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige