Excel Urlaubsliste

• Excel Urlaubsliste von Thorsten vom 06.11.2003 10:53:58
  • AW: Excel Urlaubsliste - von Galenzo am 06.11.2003 11:04:13
    • AW: Excel Urlaubsliste - von Thorsten am 06.11.2003 11:09:57
      • AW: Excel Urlaubsliste - von Galenzo am 06.11.2003 11:21:38
        • AW: Excel Urlaubsliste - von Thorsten am 06.11.2003 11:26:00
          • AW: OHNE "Private" - sorry - von Galenzo am 06.11.2003 11:30:03

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.

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!

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

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 z As Range
    Application.Volatile
    For Each z In Bereich
        If z.Interior.ColorIndex = Farbe Then
            SummeFarbe = SummeFarbe + 1
        End If
    Next
End Function

.

mfg - Galenzo

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

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)

*

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