Herbers Excel-Forum - das Archiv
Excel Urlaubsliste
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)
*