Herbers Excel-Forum - das Archiv

Excel Urlaubsliste

Bild

Betrifft: Excel Urlaubsliste
von: Thorsten
Geschrieben am: 06.11.2003 10:53:58
Hallo zusammen,
ich habe eine Urlaubsliste für alle Arbeitskollegen erstellt.
Am Anfang stehen die gesammten Urlaubstage jedes einzelnen. Nun soll jeder die Zeit in der Liste farblich markieren wo er Urlaub haben möchte (für jeden Tag eine Zelle). Ich möchte das Excel autom. die Urlaubstage von der Gesammtzahl abzieht und neben die Zelle mit den gesammten Urlaubstagen schreibt. Habe aber keine Ahnung wie es funktionieren soll.

Bild

Betrifft: AW: Excel Urlaubsliste
von: Galenzo
Geschrieben am: 06.11.2003 11:04:13
Hallo,
da du keine VBA-Kenntnisse hast, habe ich hier mal eine einfache Lösung, die Ohne VBA auskommt.
Du legst für die Zellen, in denen jeder seine Urlaubstage einträgt eine "Bedingte Formatierung" fest, welche bei der Eingabe einer 1 den Zellhintergrund und die Schriftfarbe auf ROT setzt.
Wenn die Kollegen in die Zelle also eine 1 eingeben, ergibt das dann eine rote Zelle, in der mit rot eine 1 drinsteht. Und darüber kannst du dann ganz normal die Summe bilden.

Viel Erfolg!
Bild

Betrifft: AW: Excel Urlaubsliste
von: Thorsten
Geschrieben am: 06.11.2003 11:09:57
Erst einmal danke für Deine Hilfe.

Ich denke ein wenig VBA kann ich schon. Also wäre noch ein Tip (VBA-Lösung) mir sehr lieb.
DANKE
Bild

Betrifft: AW: Excel Urlaubsliste
von: Galenzo
Geschrieben am: 06.11.2003 11:21:38
Gut,
dann schreibst du eine Funktion, welche die Zellen mit einer bestimmten Hintergrundfarbe zählt:


Private Function SummeFarbe(Bereich As Range, Farbe As Long)
Dim As Range
    Application.Volatile
    For Each In Bereich
        If z.Interior.ColorIndex = Farbe Then
            SummeFarbe = SummeFarbe + 1
        End If
    Next
End Function
.

mfg - Galenzo
Bild

Betrifft: AW: Excel Urlaubsliste
von: Thorsten
Geschrieben am: 06.11.2003 11:26:00
D A N K E
Bild

Betrifft: AW: OHNE "Private" - sorry
von: Galenzo
Geschrieben am: 06.11.2003 11:30:03
.. um die Funktion in Excel nutzen zu können, mußt du das PRIVATE vor FUNCTIO bitte weglassen!
(Mein Fehler - ich habe die mal aus einer meiner eigenen Tabellen rauskopiert)

*
Bild
Excel-Beispiele zum Thema " Excel Urlaubsliste"
Urlaub gem. Tabelle in Urlaubsliste eintragen