Formatierung mit VBA zählen oder (?)

[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

[Sulprobil]

Falls eine VBA Lösung von Interesse ist:
http://www.sulprobil.com/Get_it_done/IT/...ormat.html

Viele Grüße, 
Bernd P

[schauan]

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.

[Timon Galeazzi]

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...

[atilla]

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.

[Rabe]

Hi,

siehe hier:

  Ferienliste_final.xlsx (Größe: 37,61 KB / Downloads: 4)

[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 :)

[atilla]

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.

[Timon Galeazzi]

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

[WillWissen]

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.