Datumsbereich auf einzelne Zellen verteilen?

31/01/2010 - 08:21 von Peter Vogt | Report spam
Hallo NG!
Office XP pro
In Excel gebe ich das Start- und das Ende Datum für Urlaub ein.
Aus diesen Angaben bekomme ich die Anzahl der NEttoarbeitstage abzüglich
Feiertage angezeigt.
Nun möchte ich den Urlaub in meinem Jahresplaner als einzelne Tage mit dem
Eintrag U angezeigt bekommen.
Die einzelnen Monate sind auf eigenen Blàttern und die Tage als waagerechte
Reihe angeordnet.
Wie muss ich dafür vorgehen?


Einen schönen Tag noch
Peter Vogt




__________ Hinweis von ESET NOD32 Antivirus, Signaturdatenbank-Version 4821 (20100130) __________

E-Mail wurde geprüft mit ESET NOD32 Antivirus.

http://www.eset.com
 

Lesen sie die antworten

#1 Andreas Killer
31/01/2010 - 11:50 | Warnen spam
Peter Vogt schrieb:

Aus diesen Angaben bekomme ich die Anzahl der NEttoarbeitstage abzüglich
Feiertage angezeigt.
Nun möchte ich den Urlaub in meinem Jahresplaner als einzelne Tage mit
dem Eintrag U angezeigt bekommen.


NETTOARBEITSTAGE ist dafür nicht relevant, in Deinem Kalender sind ja
alle Tage vorhanden und er weiß ja ob der Tag ein Feiertag/Wochenende
ist oder nicht.

Daher brauchst Du nur zu prüfen ob das Tagesdatum im Urlaub liegt. Ist
dem so und ist der Tag kein Feiertag/Wochenende, dann bekommt er ein U.

Andreas.

Function IstUrlaub(Datum, AusgangsDatum, EndDatum, _
Optional Freie_Tage) As Boolean
'Prüft ob Datum ein Urlaubstag und kein _
Wochenende/Freier_Tag ist.
Dim R As Variant
'Liegt Datum im Bereich und ist es ein Wochentag?
If (Datum >= AusgangsDatum) And (Datum <= EndDatum) And ( _
Weekday(Datum, vbUseSystemDayOfWeek) < 6) Then
'Freie Tage angegeben?
If IsMissing(Freie_Tage) Then
'Nein
IstUrlaub = True
Else
'Bereich angegeben?
If IsArray(Freie_Tage) Then
'Teste alle freien Tage
For Each R In Freie_Tage
'Ist der Tag in der Liste?
If Datum = R Then Exit Function
Next
IstUrlaub = True
Else
IstUrlaub = Freie_Tage <> Datum
End If
End If
End If
End Function

Ähnliche fragen