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 |
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.
(28.03.2018, 19: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...
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.
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 :)
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.
(29.03.2018, 14: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
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.