Office: Datumsberechnung für folgetage mit Wochenende und Feiertage

prinz72 · 7. Dezember 2014

Hallo @all,

habe mal wieder ein kleines Hindernis vor mir. Ich habe eine Terminfahrplan in dem eine Baustellenplanung gemacht wird.

In der Tabelle 1 wird das Bauvorhaben bzw. Liefertermin in einer Zeile geschrieben. Um eine Detailplanung Tagesweise/Gewerkweise zu machen kopiere ich mit folgenden Code die Zeile in ein Array, und Schreibe es dann nach Eingabe einer Zahl in der Inputbox mehrfach in ein zweites Tabellenblatt.

Die Daten zu übernehmen ist nicht das Problem, vielmehr sollte beim Eintragen ab dem zweiten Tag das Datum auf Samstag/Sonntag geprüft werden bzw. auf evtl. Feiertag. Wenn eine Bedingung erfüllt ist sollte automatisch das Datum um x Tage erhöht werden.

was mache ich falsch in diesem Code:

Code:

Sub überTagesplanung()
Dim ArrÜber As Variant
Dim Anzahl As String, sTitle As String
Dim datum As Date
Zeile = ActiveCell.Row
ArrÜber = Worksheets("Terminfahrplan").Range("A" & Zeile & ":x" & Zeile).Value

Set ws1 = Worksheets("Tagesplanung")
ende = ws1.Cells(65536, 3).End(xlUp).Row + 1

sTitle = "Anzahl Gewerke"
Anzahl = InputBox(prompt:="Bitte Anzahl Gewerke/Tage eingeben:", Title:=sTitle)
If Anzahl = "" Then Exit Sub

i = ende
For i = ende To Anzahl + i - 1 'Ermitteln wieviel mal die Zeile eingetragen werden muss
For n = 0 To Anzahl ''###Hier mein Problem sollte zum Datum Tage pro neue Zeile eingetragen werden
'## Eintragen der Baustelle mit ermittelter Anzahl
ws1.Range("a" & i) = ArrÜber(1, 1) 'AufNr.
ws1.Range("b" & i) = ArrÜber(1, 3) 'Typ
ws1.Range("C" & i) = ArrÜber(1, 9) 'BVName
Worksheets("Tagesplanung").Range("d" & i) = ArrÜber(1, 10) 'BVStraße
Worksheets("Tagesplanung").Range("e" & i) = ArrÜber(1, 11) 'BVPLZ
Worksheets("Tagesplanung").Range("f" & i) = ArrÜber(1, 12) 'BVOrt
'Worksheets("Tagesplanung").Range("g" & i) = ArrÜber(1, 13) + i - ende 'BVDatum
Worksheets("Tagesplanung").Range("h" & i) = ArrÜber(1, 14) 'BVKW
Worksheets("Tagesplanung").Range("i" & i) = ArrÜber(1, 15) 'BVUhr
Worksheets("Tagesplanung").Range("m" & i) = ArrÜber(1, 24) 'BVUhr
Worksheets("Tagesplanung").Range("n" & i) = "offen"

Datum11 = ArrÜber(1, 13) + n
Datum2 = Weekday(Daum11)

If Datum2 = 2 Or Datum2 = 3 Or Datum2 = 4 Or Datum2 = 5 Or Datum2 = 6 Then 'Prüfen ob Wochentag
Worksheets("Tagesplanung").Range("g" & i) = Datum11 'BVDatum

ElseIf Datum2 = 7 Then 'Prüfen ob Samstag wenn ja dann 2 Tage dazuaddieren
Worksheets("Tagesplanung").Range("g" & i) = Datum11 + 2 'BVDatum

ElseIf Datum2 = 1 Then 'Prüfen ob Sonntag wenn ja dann 1 Tag dazuaddieren
Worksheets("Tagesplanung").Range("g" & i) = Datum11 + 1 'BVDatum

End If

' wert = FeiertagDE(Target.Value, "BW", True)
If wert > "" Then
'wert1 = Application.InputBox("Achtung Feiertag: " & wert & Chr(13) & "Bitte Tage eingeben zum Verschieben", "Hinweis Feiertag", 1, Type:=1)
'Target.Value = DateSerial(Year(Datum11), Month(Datum11), Day(Datum11) + wert1)
End If
Next n
Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für Eure Hilfe besten Dank.

Gruß
Markus*mrcool

:)

GMG-CC · 9. Dezember 2014

Moin Markus,

da du keine Excel-Version angibst gehe ich von meinen Voraussetzungen sus (Excel 2013): Verwende die Funktion ARBEITSTAG.INTL als WorksheetFunction.

Ansonsten würde ich über ein Konstrukt nachdenken, welches etwa so aussieht:
Code:

Dim ZielTag
Do While Weekday(ZielTag, 2) > 5 Or Feiertag(ZielTag)
ZielTag = ZielTag + 1
Loop
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ungetestet! Die Funktion für die Feiertage kannst du hier bei Excel-ist-sexy nachschauen und kopieren.

prinz72 · 9. Dezember 2014

Hallo,

danke für die schnelle Antwort, sorry Excel 2003/2010 nutzen wir.

Wo genau würdest du es einbauen?

Danke für den Tipp im Voraus.

Gruß
Markus

prinz72 · 9. Dezember 2014

Hallo,

bin ein bisschen weiter gekommen*Smilie

Code:

Sub überTagesplanung()
'Datum11 As Date
Dim ArrÜber As Variant
Dim Anzahl As String, sTitle As String
Dim datum As Date
Zeile = ActiveCell.Row
ArrÜber = Worksheets("Terminfahrplan").Range("A" & Zeile & ":x" & Zeile).Value

Set ws1 = Worksheets("Tagesplanung")
ende = ws1.Cells(65536, 3).End(xlUp).Row + 1

sTitle = "Anzahl Gewerke"
Anzahl = InputBox(prompt:="Bitte Anzahl Gewerke/Tage eingeben:", Title:=sTitle)
If Anzahl = "" Then Exit Sub

i = ende
For i = 0 To Anzahl - 1 '+ i - 1 'Ermitteln wieviel mal die Zeile eingetragen werden muss
'## Eintragen der Baustelle mit ermittelter Anzahl
ws1.Range("a" & ende + i) = ArrÜber(1, 1) 'AufNr.
ws1.Range("b" & ende + i) = ArrÜber(1, 3) 'Typ
ws1.Range("C" & ende + i) = ArrÜber(1, 9) 'BVName
Worksheets("Tagesplanung").Range("d" & ende + i) = ArrÜber(1, 10) 'BVStraße
Worksheets("Tagesplanung").Range("e" & ende + i) = ArrÜber(1, 11) 'BVPLZ
Worksheets("Tagesplanung").Range("f" & ende + i) = ArrÜber(1, 12) 'BVOrt
'Worksheets("Tagesplanung").Range("g" & i) = ArrÜber(1, 13) + i - ende 'BVDatum
Worksheets("Tagesplanung").Range("h" & ende + i) = ArrÜber(1, 14) 'BVKW
Worksheets("Tagesplanung").Range("i" & ende + i) = ArrÜber(1, 15) 'BVUhr
Worksheets("Tagesplanung").Range("m" & ende + i) = ArrÜber(1, 24) 'BVUhr
Worksheets("Tagesplanung").Range("n" & ende + i) = "offen"
'Format(Testdatum, "yymmdd")
Datum11 = ArrÜber(1, 13) + i
datum = CDate(ArrÜber(1, 13) + i)

wert = FeiertagDE(datum, "BW", True) 'Hier kommt zum Beispiel Text Weihnachten
Datum2 = Weekday(Daum11, 2)
If Datum11 = ArrÜber(1, 13) Then 'hier wird das erste Datum in erste neue Zeile eingetragen
Worksheets("Tagesplanung").Range("g" & ende + i) = Datum11
Else
Do While Weekday(Datum11, 2) > 5 'Or wert > ""
Datum11 = Datum11 + i
Worksheets("Tagesplanung").Range("g" & ende + i) = Datum11
Loop
End If
Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn das ausgelesen Datum Freitag ist klappt die do while Routine gut.

Allerdings wenn Datum ein Montag ist und die Anzahl der Gewerke/Tage 5 ist funzt es nicht.

Danke für eure Hilfe

Excel 2003

Gruß
Markus

GMG-CC · 9. Dezember 2014

Moin Markus,

also ohne eine kleine Musterdatei (mit komplettem Code) mag ich mich damit nicht abquälen. Du schreibst den Code anders als viele der Helfer und das ist dann schwer nachzuvollziehen.

Ach ja, ab morgen Abend bin ich erst einmal einige Tage offline ...

Office: Datumsberechnung für folgetage mit Wochenende und Feiertage

Datumsberechnung für folgetage mit Wochenende und Feiertage

Datumsberechnung für folgetage mit Wochenende und Feiertage

Datumsberechnung für folgetage mit Wochenende und Feiertage

Datumsberechnung für folgetage mit Wochenende und Feiertage - Similar Threads - Datumsberechnung folgetage Wochenende

Datumsberechnung

Individuelle Datumsberechnung

Datum anhande eines vorhanden Datumauswahlfeldes berechnen und einfügen

Datumsberechnung

Datumsberechnung

[excel 2003] Datumsberechnung

Datumsberechnungen in Excel 2000