Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Arbeitstage auf ein Datum addieren

Forumthread: Arbeitstage auf ein Datum addieren

Arbeitstage auf ein Datum addieren
05.05.2017 22:34:35
Christian
Moin alle zusammen,
nachdem mein Problem vor einigen Tagen leider nicht gelöst wurden konnte, möchte ich den Fall nochmal offen stellen und mich sehr bei Chris für seinen bisherigen Einsatz bedanken:
Hier gehts zum alten Fall:
https://www.herber.de/forum/messages/1556032.html
Ablauf des Programms
1.Auswählen der MSN aus der Liste, übertrag in das Textfeld TextBoxMSN
2.Werte aus Tabelle Planung werden in Term. Startwerte geladen, sowie die Werte aus Tabelle Planung aktuell als Platzhalter (Diese Werte sollen verändert werden)
3.Auswählen der Störungen lassen Anzahl Tage im Textfeld Tage erscheinen.
4.Die Tage sollen auf das Datum in dem jeweiligen Textfeld bei „Neue Startwerte“ aufaddiert werde. Zum Beispiel für CF-1 soll die Anzahl an Tagen im ersten Textfeld „TextCF_1Damage addiert werden
Problem:
Der Code läuft bis zur Schleife durch

'Neue Werte in die Tabelle Planung Aktuell
With tblReal
If WorksheetFunction.CountIf(.Columns(2), MSN) = 0 Then
MsgBox "Nummer ist nicht vorhanden"
Else
findZeile = Application.Match(MSN, .Columns(2), 0)
.Cells(findZeile, 6) = Datum1 'CF-1
.Cells(findZeile, 14) = Datum3 'CF-3
.Cells(findZeile, 18) = Datum4 'CF-4
.Cells(findZeile, 22) = Datum5 'CF-5
End If
End With

Ziel des Programms:
Es geht im Grunde darum, die Grünen Felder bei Störungen nach rechts zu bewegen. Also zusätzliche Arbeitstage auf den Termin zu addieren. Und dafür ist die Userform gedacht, welche sich durch den Klick auf „Clustertermine verschieben“ auszuwählen lässt.
Die Anfangsdaten werden aus der Tabelle „Planung“ reingeladen und in der Tabelle „Planung Aktuell“sollen die Änderungen gespeichert werden.
Textfelder
Term. Startwerte
TextCF_1 ...
Neue Startwerte
TextCF_1_neu ...
Auswahl Störungen
CF1_Damage ...
Wert der Störungen in Tagen
TextCF1_Damage
MSN
TextboxMSN
Die Beispieldatei ist auf das wesentliche reduziert:
https://www.herber.de/bbs/user/113357.xlsm
Verzeiht mir bitte den vielen Text, ich habe versucht das Problem so detailiert wie nötig zu beschreiben.Ich weiss den Aufwand den ihr hier reinsteckt wirklich zu schätzen. Ich steh ein wenig auf den Schlauch weil ich nicht verstehe warum ich da einen Fehler bekomme und das Programm die Schleife nicht durchführt.
Viele Grüße
Christian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Arbeitstage auf ein Datum addieren
06.05.2017 13:31:05
Christian
Bekommt ihr auch den Laufzeitfehler Anwendungs- oder objektdefinierter Fehler? Es kann ja kein Format Fehler mehr sein. Alle Variable sind im Datumsformat.. ich steh da echt auf den Schlauch..
Funktion Networkdays
06.05.2017 22:46:01
Christian
So, jetzt habe ich nochmal einige Versuche gestartet das Problem zu lösen und bin auf die Ursache gestossen.
Wenn ich auf CF-1 (08.02.2017) einen Arbeitstag drauf addieren möchte, bekomme ich in die Variable den 14.05.1816
Ich vermute der Fehler liegt daran, das ich Arbeitstage auch als Datum kennzeichne obwohl ich ja nur einzelne Arbeitstage auf das Datum raufrechnen will. Die Funktion network erwartet hier aber überall denselben Datentyp also Datum?

StartDatum1 = CDate(Me.TextCF_1_neu.Value)
Arbeitstage1 = CDate(Me.TextCF1_Damage.Value) 'Anzahl Tage
Datum1 = WorksheetFunction.NetworkDays_Intl(StartDatum1, CDate(Arbeitstage1), , tblKalender. _
Range("B2:B100"))



With tblReal
If WorksheetFunction.CountIf(.Columns(2), MSN) = 0 Then
MsgBox "Nummer ist nicht vorhanden"
Else
findZeile = Application.Match(MSN, .Columns(2), 0)
.Cells(findZeile, 6) = Datum1 'CF-1
.Cells(findZeile, 14) = Datum3 'CF-3
.Cells(findZeile, 18) = Datum4 'CF-4
.Cells(findZeile, 22) = Datum5 'CF-5
End If
End With
End Sub

Anzeige
AW: Funktion Networkdays
09.05.2017 11:02:47
ChrisL
Hi Christian
(Wenn du die Frage nicht als offen kennzeichnest, dann schliesst du den Beitrag mit deiner eigenen Antwort)
Inzwischen glaube ich du hast die falsche Funktion (Networkdays) erwischt.
Arbeitstage = Nettoarbeitstage(StartDatum, Enddatum,,Feiertage)
Enddatum = Arbeitstag(Startdatum, Arbeitstage, Feiertage)
https://support.office.com/de-de/article/ARBEITSTAG-Funktion-f764a5b7-05fc-4494-9486-60d494efbf33
cu
Chris
Anzeige

Forumthreads zu verwandten Themen

Datum/werktage addieren
Rebecca

Hallo,
in einer Zelle steht ein Datum. In der Spalte daneben soll ein Datum stehen, das zwei Werktage weiter ist.
Wie ist die Formel?
Gruss
Rebecca
11.12.2008 15:55:00
Thread-ID: 1032089
6 Beiträge
Anzeige
Zu Datum Wochen hinzuaddieren
Roland

Hi,
ich habe eine Combobox auf einem Formular, die beim start mit dem heutigen Datum gefüllt wird.
Ich würde die Combobox gerne mit Einträgen füllen, wie Wochenweise gehen.
Also wenn man vom heutigen Datum ausgeht, sollte in der Combobox drin stehn:
28.01.2009
04.02.2009
...
28.01.2009 11:47:28
Thread-ID: 1044511
4 Beiträge
Wert zu Datum addieren
Günter

Halo Zusammen,
ich habe mal wieder ein Problem, dass sicherlich nicht schwierig ist.
Ich kommen aber nicht drauf.
Ich möchte per VBA zu einem Datum, dass in einer Zelle steht eine anzhal Tage addieren, die in einer anderen Zelle stehen und dies in eine weitere Zelle schreiben.
H...
25.04.2009 11:34:41
Thread-ID: 1071087
5 Beiträge
Anzeige
24 Stunden zu einem Datum hinzuaddieren
Henning

Hallo zusammen,
ich habe schon im Archiv gesucht, aber leider immer noch keine Lösung gefunden. Vielleicht kann mir jemand bei meinem Schichtplan-Problem weiterhelfen.
Wie im Anhang zu sehen, habe ich das Problem, dass ich bei der Addition mit der Funktion ZEIT(X;0;0) Probleme bekomme,...
30.04.2009 12:14:34
Thread-ID: 1072133
3 Beiträge
aktueles datum +20 Tage
Josi

Nochmal ichIn zelle a1 steht das aktuelle Tagesdatum und in Zelle B1 möchte ich das aktuelle datum + 20 Tage stehen haben.
ich habs versucht mit
= Datum(Jahr(A1);Monat(a1);Tag(a1)+20)
dann addiert er mir zwar die Tage übersieht aber den Monatsübergang er brachte mir als ergebnis 16.05....
27.05.2002 11:54:47
Thread-ID: 123898
3 Beiträge
Datum + 30 Tage
Chris

Hallo,ich hab ein kleines Problem. Ich habe ein Datum z.B. 19.02.2002. Wie kann ich es schaffen, daß Excel dieses Datum nimmt, 30 Tage dazuzählt und mir das Datum+30 Tage ausgiebt.Danke & Gruß
Chris
29.05.2002 10:37:22
Thread-ID: 124493
2 Beiträge
Tage berechnen mit Datum
ropq

Hallo,
Wie kann ich die Gesamtanzahl der Tage zwischen zwei Datumswerten berechnen.
WEnn ich Datedif nehme, oder ich ziehe da eine DAtum vom anderen ab dann lässt Excel den ersten Tag außen vor.
Beispiel
1. Jul bis 10. Juli = 10 Tage.
Bei den Berechnungen kommt jedoch immer...
19.07.2012 18:02:26
Thread-ID: 1271903
3 Beiträge
Minuten zu Datum addieren
Donicht

Hallo Excelfreunde,
dieses Forum ist wirklich klasse.Ich habe hier schon viel lernen können.
Jetzt habe ich folgendes Problem:
Ich möchte ein genaues Zieldatum errechnen.
A3= 14.01.2013 plus B3= 1395 Minuten ist Dienstag 15 Januar 6:14 das ist ja auch ok.
=A3+(B3/60/24)
...
24.01.2013 12:10:12
Thread-ID: 1295781
3 Beiträge
Datum + x Tage (ohne Sa. So. und evt. Feiertage)
Selma

Hallo Leute,
ich habe in der Zelle AA70 dieses Datum 18.10.2013 stehen.
Jetzt möchte ich 5 Tage dazu zählen und das Ergebnis in der Zelle AE70 anzeigen.
Wenn ich es so mache =AA70+5 wird Samstag und Sonntag mitgezählt. Das soll es nicht sein!
Zusätzlich wäre es auch gut, wenn i...
18.10.2013 10:32:08
Thread-ID: 1334856
5 Beiträge
Datum Automatisch laufend in 17 Tage Abschnitt
Jeanson

Hallo,
ich suche verzweifelt nach einer Möglichkeit in einer Tabelle etwas zu automatisieren.
Tabelle:
A5: 09. Mrz
A6: 10. Mrz
A7: 11. Mrz
..
usw.
..
A20: 24. Mrz
A21: 25. Mrz
Ich brauche nur 17 Tage in der Tabelle. Am Ende muss das Aktuelle Datum...
25.03.2014 11:49:49
Thread-ID: 1354747
6 Beiträge
Anzahl Tage zu einem Datum hinzufügen oder abziehe
Uwe

Guten Tag,
ich stehe vor folgenden Problemstellungen:
1. Die Anzahl an Tagen zwischen zwei Datumswerten zu ermitteln
2. Anhand eines Ausgangsdatums mittels einer Zeitspanne in Tagen zu einem Datum
a. vor zu rechnen
b. zurück zu rechnen
1. habe ich e...
26.04.2014 07:42:16
Thread-ID: 1358640
9 Beiträge
Anzeige
Datum + x Tage in UF berechnen
Ludmila

Schönen Abend Zusammen,,
ich habe immer wieder Probleme das Enddatum zu errechnen.
Startdatum = ComboBox1
Anzahl der Tage = ComboBox2
Es soll in der Textbox1 das Enddatum stehen gem. Vorgaben.
Wenn in ComboBox2 "AZ" gewählt wird, dann 18 Tage, "SR" dann 30 Tage
Tage = We...
06.01.2016 23:40:16
Thread-ID: 1467522
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Arbeitstage zu einem Datum addieren in Excel

Schritt-für-Schritt-Anleitung

  1. Starte Excel und öffne die Datei, in der Du das Datum bearbeiten möchtest.
  2. Gib das Startdatum in eine Zelle ein. Zum Beispiel in Zelle A1.
  3. Gib die Anzahl der Arbeitstage in eine andere Zelle ein, z.B. in Zelle B1.
  4. Verwende die Funktion ARBEITSTAG() oder NETTOARBEITSTAGE(), um die Arbeitstage zu addieren:
    • Für ARBEITSTAG: 
      =ARBEITSTAG(A1, B1)
    • Für NETTOARBEITSTAGE: 
      =NETTOARBEITSTAGE(A1, B1)

Diese Funktionen berechnen das neue Datum, indem sie die angegebenen Arbeitstage auf das Startdatum addieren.

Häufige Fehler und Lösungen

  • Laufzeitfehler: Wenn Du einen Laufzeitfehler erhältst, stelle sicher, dass alle Variablen im Datumsformat vorliegen. Verwende CDate() zur Konvertierung, falls notwendig.
  • Falsches Datum: Wenn das Ergebnis ein unerwartetes Datum wie den 14.05.1816 ist, überprüfe, ob Du die Anzahl der Arbeitstage korrekt als Zahl und nicht als Datum eingegeben hast.

Alternative Methoden

  • Du kannst die Funktion DATUM() verwenden, um spezifische Tage zu addieren, indem Du die Anzahl der Tage manuell berechnest: 
    =DATUM(JAHR(A1), MONAT(A1), TAG(A1) + B1)
  • Eine weitere Möglichkeit ist die Verwendung von WENN() in Kombination mit ARBEITSTAG, um Bedingungen für Feiertage oder Wochenenden zu setzen.

Praktische Beispiele

  1. Beispiel 1: Startdatum: 01.01.2023, Arbeitstage: 5 
    =ARBEITSTAG("01.01.2023", 5)  // Ergebnis: 08.01.2023
  2. Beispiel 2: Startdatum aus Zelle A1, Arbeitstage in Zelle B1 
    =ARBEITSTAG(A1, B1)

Diese Beispiele demonstrieren, wie Du mit Excel Arbeitstage bis zu einem Datum addieren kannst.

Tipps für Profis

  • Feiertage berücksichtigen: Nutze die erweiterten Funktionen ARBEITSTAG() oder NETTOARBEITSTAGE() und füge einen dritten Parameter hinzu, um Feiertage auszuschließen.
  • Nettoarbeitstage berechnen: Verwende die NETTOARBEITSTAGE()-Funktion für eine genauere Berechnung, wenn Du mehrere Feiertage und Wochenenden berücksichtigen möchtest.
  • Formeln testen: Teste Deine Formeln in einer neuen Excel-Datei, um sicherzustellen, dass sie ordnungsgemäß funktionieren, bevor Du sie in Deine Hauptdatei überträgst.

FAQ: Häufige Fragen

1. Wie addiere ich in Excel Tage zu einem Datum?
Verwende die Funktion ARBEITSTAG() oder DATUM() zusammen mit der Anzahl der Tage, die Du hinzufügen möchtest.

2. Was ist der Unterschied zwischen ARBEITSTAG und NETTOARBEITSTAGE?
ARBEITSTAG() gibt das Datum zurück, das eine bestimmte Anzahl von Arbeitstagen nach einem Startdatum liegt, während NETTOARBEITSTAGE() die Anzahl der Arbeitstage zwischen zwei Daten berechnet.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige