Registriert seit: 10.04.2014
Version(en): 2016 + 365
28.03.2018, 13:22
(Dieser Beitrag wurde zuletzt bearbeitet: 28.03.2018, 18:15 von Rabe.)
Hi,
und warum schreibst Du in die Tages-Zellen nicht ein "b" für beantragt und ein "U" für genehmigt, ein "M" für Mutterschaft/Militär rein und färbst die Zellen mit einer bedingten Formatierung in orange, gelb, rot. Dann kannst Du die Anzahl der Buchstaben zählen und hast alles, ohne Farben zu zählen.
| Arbeitsblatt mit dem Namen 'Ferienliste' |
| B | C | D |
| 4 | Ferientage bewilligt | 10 |
| 5 | Ferientage geplant | 1 |
| 6 | Mitterschaft / Militär | 1 |
| 7 | | | |
| 8 | | | |
| 9 | KW | Datum | |
| 10 | | 31.12.2017 | |
| 11 | 1 | 01.01.2018 | |
| 12 | | 02.01.2018 | U |
| 13 | | 03.01.2018 | U |
| 14 | | 04.01.2018 | U |
| Zelle | Formel |
| D4 | =ZÄHLENWENN(D$10:D$376;"U") |
| D5 | =ZÄHLENWENN(D$10:D$376;"b") |
| D6 | =ZÄHLENWENN(D$10:D$376;"M") |
| C10 | =C11-1 |
| Zelle | bedingte Formatierung... | Format |
| D10 | 1: Zellwert ist gleich ="b" | abc |
| D10 | 2: Zellwert ist gleich ="M" | abc |
| D10 | 3: Zellwert ist gleich ="U" | abc |
| D10 | 4: ISTZAHL(VERGLEICH($C10;Feiertage!$A$2:$A$22;0)) | abc |
| D10 | 5: WOCHENTAG($C10;2)>5 | abc |
| Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2013 |
| Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg |
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
Folgende(r) 1 Nutzer sagt Danke an Rabe für diesen Beitrag:1 Nutzer sagt Danke an Rabe für diesen Beitrag 28
• Timon Galeazzi
Registriert seit: 29.01.2018
Version(en): 2021
Falls eine VBA Lösung von Interesse ist:
http://www.sulprobil.com/Get_it_done/IT/...ormat.htmlViele Grüße,
Bernd P
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
bei mir klappt es mit Deiner xlsm wunderbar, die andere habe ich nicht probiert. Ich habe zwar 2016, aber daran sollte es nicht liegen. Lediglich beim ersten Öffnen hatte ich #NAME?, aber nach jedem weiteren Speichern und erneutem Öffnen nicht mehr. Und wie erwartet klappt es nicht, wenn die Datei als xlsx gespeichert wird. Dann ist der benutzerdefinierte Name weg.
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 21.03.2018
Version(en): 2010 / 2016
(28.03.2018, 20:16)schauan schrieb: Hallöchen,
bei mir klappt es mit Deiner xlsm wunderbar, die andere habe ich nicht probiert. Ich habe zwar 2016, aber daran sollte es nicht liegen. Lediglich beim ersten Öffnen hatte ich #NAME?, aber nach jedem weiteren Speichern und erneutem Öffnen nicht mehr. Und wie erwartet klappt es nicht, wenn die Datei als xlsx gespeichert wird. Dann ist der benutzerdefinierte Name weg.
Das ist komisch... Also du hast die formeln nicht bearbeitet und es funktioniert? Wenns doch nur bei mir so einfach gehen würde...
Registriert seit: 14.04.2014
Version(en): 2003, 2007
Hallo,
nein das klappt nicht. Das Klappt beim ersten Öffnen und aktivierten Makros (ZELLE.ZUORDNEN => Excel4Makro), da beim Öffnen automatisch neu berechnet wird.
Danach aber löst eine Umformatierung kein Ereignis und auch keine neu Berechnung aus.
Deshalb wird es weder per VBA noch mit Formeln so gehen, wie Du es Dir vorstellst.
Ralf Rabe hat Dir einen besseren Weg gezeigt. Du schreibst in die Zellen stellvertretend für die Farben Zeichen rein.
Die Zeichen definierst Du in Deiner Legende. Das schreiben eines Buchstaben beispielsweise ist schneller getan als das Formatieren.
Je nach Buchstabe wird die Zelle dann mit Bedingter Formatierung gefärbt. Wenn Du den Buchstaben nicht sehen möchtest, dann kannst
das auch mit Bedingter Formatierung unsichtbar machen.
Das alles dann ohne Makros und die Mappe kann als xlsx gespeichert und genutzt werden.
Also schau Dir Ralf Vorschlag noch einmal in Ruhe an.
Gruß Atilla
Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:1 Nutzer sagt Danke an atilla für diesen Beitrag 28
• Rabe
Registriert seit: 10.04.2014
Version(en): 2016 + 365
Hi,
siehe hier:
Ferienliste_final.xlsx (Größe: 37,61 KB / Downloads: 4)
Folgende(r) 1 Nutzer sagt Danke an Rabe für diesen Beitrag:1 Nutzer sagt Danke an Rabe für diesen Beitrag 28
• Timon Galeazzi
Registriert seit: 21.03.2018
Version(en): 2010 / 2016
29.03.2018, 15:43
(Dieser Beitrag wurde zuletzt bearbeitet: 29.03.2018, 15:43 von Timon Galeazzi.)
Ja das wird wohl die einfachste Lösung sein.
Ganz herzlichen Dank an alle für die Hilfe und vielen Dank Rabe für die Liste. :)
Nachtrag:
In der Liste kann die Jahreszahl oben geändert werden wodurch Ferientage, KW, WE usw. automatisch angepasst werden.
gibt es die Möglichkeit alle Einträge in der Liste bei Änderung dieser Jahreszahl zu löschen?
Wenn nicht ist nicht schlimm wenn ja wäre es super :)
Registriert seit: 14.04.2014
Version(en): 2003, 2007
Hallo,
wieder falscher Weg.
Seicher die Datei ohne Inhalt als Vorlage ab.
Bei Jahreswechsel greifst du auf diese Vorlage zu und nutzt sie unter einem neuen Namen abgespeichert.
Gruß Atilla
Registriert seit: 21.03.2018
Version(en): 2010 / 2016
(29.03.2018, 15:51)atilla schrieb: Hallo,
wieder falscher Weg.
Seicher die Datei ohne Inhalt als Vorlage ab.
Bei Jahreswechsel greifst du auf diese Vorlage zu und nutzt sie unter einem neuen Namen abgespeichert.
Gut werd ich wohl so machen oder einfach die tabelle machkieren delete und ist auch erledigt.
Wäre nur noch ein kleines Extra gewesen.
Besten Dank und liebe Grüsse
Timon
Registriert seit: 10.04.2014
Version(en): Microsoft 365, mtl. Kanal
Hi Timon,
falls du Makros benutzen kannst, genügt ein Einzeiler (in einem allg. Modul):
Code:
Option Explicit
Sub EintragLoeschen()
Range("D10:M376").ClearContents
End Sub
Leg dir dann zum Beispiel ein transparentes Rechteck unterhalb der Jahreszahl an und weise diesem das Makro zu.
