Urlaubstage auf Monat verteilen

[M.Wichmann]

Hallo,

ich bin dabei eine Kalenderübersicht für Urlaub usw zu erstellen.
Es funktioniert auch alles soweit.
Nur weiß ich nicht sorecht, wie ich es händeln kann, wenn zb ein Urlaub in den nächsten Monat übergeht. Wie in Zeile 7

Kann mir da wer nen Tip geben?


Hier meine momentane Tabelle die per UF gefüllt wird, und aus der sich der Kalender die Werte holt.

Arbeitsblatt mit dem Namen 'Archiv'
	C	D	F	H	J	K
4	Mitarbeiter	Start	Ende	Status	Tage	Monat
5	1	01.10.2017	08.10.2017	U	4,00	Oktober
6	3	15.10.2017	20.10.2017	U	5,00	Oktober
7	9	19.10.2017	08.11.2017	U	14,00	Oktober

Name	Bezug
Frei	=Tabelle116[Datum]

Zelle	Formel
J5	=WENN(ISTLEER(D5);"";WENN(Abwesenheiten_Mitarbeiter[[#Diese Zeile];[Status]]="U ";NETTOARBEITSTAGE(D5;F5;Frei);NETTOARBEITSTAGE(D5;F5)))
K5	=WENN(ISTLEER(D5);"";TEXT(D5;"MMMM"))
J6	=WENN(ISTLEER(D6);"";WENN(Abwesenheiten_Mitarbeiter[[#Diese Zeile];[Status]]="U ";NETTOARBEITSTAGE(D6;F6;Frei);NETTOARBEITSTAGE(D6;F6)))
K6	=WENN(ISTLEER(D6);"";TEXT(D6;"MMMM"))
J7	=WENN(ISTLEER(D7);"";WENN(Abwesenheiten_Mitarbeiter[[#Diese Zeile];[Status]]="U ";NETTOARBEITSTAGE(D7;F7;Frei);NETTOARBEITSTAGE(D7;F7)))
K7	=WENN(ISTLEER(D7);"";TEXT(D7;"MMMM"))

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

[Klaus-Dieter]

Hallo,

zeige doch mal deinen Kalender.

[Jockel]

Hallo, wie sieht denn dein "Frei" aus..?

[M.Wichmann]

Hallo, in dieser Übersicht fehlt mir das trennen auf die Monate, die ist natürlich fortlaufend für die Monate.

In "Frei" sind die Feiertage, diese sollten ja natürlich nicht mitgerechnet werden.

Arbeitsblatt mit dem Namen 'Kalender'
	AL	AM	AN
3	Mitarbeiter	Urlaub Alt	Januar
4
5	1	0	0
6	2	0	0

Zelle	Formel
AN5	=SUMMEWENNS(Archiv!$J$5:$J$115;Archiv!$C$5:$C$115;$AL5;Archiv!$K$5:$K$115;AN$3;Archiv!$H$5:$H$115;"U ")
AN6	=SUMMEWENNS(Archiv!$J$5:$J$115;Archiv!$C$5:$C$115;$AL6;Archiv!$K$5:$K$115;AN$3;Archiv!$H$5:$H$115;"U ")

Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg

[Jockel]

Hallo, da du ja antwortest, aber nicht auf die Fragen (Überblick verloren???) Dann mal (m)ein Vorschlag - aber bitte den 31.10. als bundesweiten Feiertag nicht vergessen..:

PHP-Code:

=WENN(D5="";"";WENN(H5="U ";NETTOARBEITSTAGE(D5;MIN(F5;EDATUM(1&-MONAT(D5);1)-1);frei);NETTOARBEITSTAGE(D5;MIN(F5;EDATUM(1&-MONAT(D5);1)-1)))) 


[M.Wichmann]

Hallo,

31.10. hab ich natürlich^^

Aber wenn ich die Formel in J einfüge erhalte ich einen viel zu hohes Ergebniss.

[Jockel]

Hallo, ich kenne ja nur den Ausschnitt, den du gepostet hat... dort habe ich die Formel eingetragen..:

Arbeitsblatt mit dem Namen 'Archiv'
	C	D	F	H	J	K
4	Mitarbeiter	Start	Ende	Status	Tage	Monat
5	1	01.10.2017	08.10.2017	U	5	Oktober
6	3	15.10.2017	20.10.2017	U	5	Oktober
7	9	19.10.2017	08.11.2017	U	9	Oktober

Zelle	Formel
J5	=WENN(D5="";"";WENN(H5="U ";NETTOARBEITSTAGE(D5;MIN(F5;EDATUM(1&-MONAT(D5);1)-1);frei);NETTOARBEITSTAGE(D5;MIN(F5;EDATUM(1&-MONAT(D5);1)-1))))

Diese Tabelle wurde mit Tab2Html (v2.4.1) erstellt. ©Gerd alias Bamberg

[M.Wichmann]

Hallo,

aber das löst so oder so nicht mein Problem.
Ich suche eine möglichkeit wie ich die tage für Oktober und November in meine Übersicht bekomme in diesem Fall.

[M.Wichmann]

Hallo,


kann man dem folgenden Code evtl beibringen, das wenn zwischen den beiden Textboxen( die für die Datumseingabe sind) ein Monatswechsel is, er 2 Einträge vornimmt? Also die Tage von Monat 1 in eine Zeile und für den Rest dann eine zweite mit entsprechendem Datum?

Code:

Private Sub CommandButton2_Click() 'Speichern

Dim lngErste As Long
   With Sheets("Archiv")
   ' letzte freie Zeile in Spalte C finden
   lngErste = Application.CountA(.Columns(3)) + 4
   ' jeweils prüfen ob Name ausgefüllt dann Übertrag
   If ComboBox1.Value <> "" Then
       .Range("C" & lngErste).Value = ComboBox1.Value
       .Range("D" & lngErste).Value = TextBox1.Text
       .Range("F" & lngErste).Value = TextBox2.Text
       .Range("H" & lngErste).Value = ComboBox2.Value
   End If
   End With
   
       Unload Me
       UserForm11.Show
       
End Sub

[RPP63]

Moin!
Nur ein Ansatz:

If Month(TB2) > Month(TB1) Then
   Ende1 = DateSerial(Year(TB1), Month(TB1) + 1, 0)
   Ende2 = TB2
   Anfang1 = TB1
   Anfang2 = DateSerial(Year(TB2), Month(TB2), 1)
End If

Gruß Ralf