Bedingte Formatierung

[RPP63]

Ja, kenne ich, Helmut!
Aber: Wer zum Geier braucht "Zeilenunterschiede"?

[Schulanfänger]

Hi,

du musst dir eine UDF (UserDefinedFunction) schreiben. Die könnte so aussehen:

Code:

Function HatKommentar(Optional Zelle As Range) As Boolean
Application.Volatile
If Zelle Is Nothing Then Set Zelle = Application.ThisCell
HatKommentar = Not Zelle.Comment Is Nothing Or Not Zelle.CommentThreaded Is Nothing
End Function

Dann brauchst du eine bed.Form. die diese UDF verwendet.

Hi HKindler,
könntest du mir ne idiotensichere Schritt für Schritt Anleitung machen?
Sagen wir mal, wenn ich in diversen Zellen, in Spalt C Kommentare einfügen möchte, wo dann die Zelle orange sein soll.
Ich nehme an deinen UDF Code muss ich erst mit Alt+F11 in Microsoft Visual Basics einfügen. Also über Einfügen / Modul -> Code einfügen, dann alles schließen.
In den Excel Optionen / Trust Center / Einstellungen für das Trust Center / Macroeinstellungen muss "Aktivieren von VBA Macros" angehakt sein.
Weiter komme ich nicht bzw. nichts hat funktioniert. Wie muss jetzt die Bedingte Formatierung aussehen?
Wäre Klasse wenn du nochmal helfen könntest.

[snb]

Schülung fängt an in eimen Kurs und/oder mit einem VBA Einsteigerbuch, nicht in einem Forum

[HKindler]

Hi,

nochmals vorweg: Im Grunde halte ich dein Vorhaben für unsinnig. Wichtige Sachen sollten sofort sichtbar sein und haben daher in Kommentaren nichts verloren. Unwichtigen Sachen sollte man nicht übermäßig hervorheben. Da reicht doch das kleine rote Dreieck.

So wie du dein Vorgehen beschrieben hast, sollte alles OK sein. Du musst nur noch die bedingte Formatierung anlegen. Und das funktioniert mit der UDF genau gleich wie mit jeder anderen Formel. Die Formel ist sogar extrem simpel und lautet =HATKOMMENTAR() Mehr braucht es nicht, da ohne Zellangabe einfach die aktuelle Zelle genommen wird.

[Schulanfänger]

Habe es jetzt wie von mir oben beschrieben gemacht.
   
Unter Bedingte Formatierung habe ich eine neue Regel angelegt:
"Formel zur Ermittlung der zuformatierenden Zelle verwenden"
hier: =HATKOMMENTAR()
eingegeben und die Formatierung/Ausfüllen auf nen orange Farbton gestellt.
Aber wenn ich einen Kommentar in irgendeine Zelle eingebe, bleibt diese weiß.

[HKindler]

Hi,
dann machst du irgendwas falsch. Bei mir funktioniert es.
Lade doch bitte mal deine Datei hier hoch, dann kann man sich das mal anschauen...

[Schulanfänger]

Bitteschön

[HKindler]

Funktioniert doch. Zumindest in der Zelle, für die du eine bed.Form. definiert hast.

Jetzt musst du nur noch "Wird angewendet auf" auf die gewünschten Zellen ausdehnen...

[Schulanfänger]

Komisch...bei mir bleibt der Zellenhintergrund bei allen Zellen weiß.

[schauan]

... aber die Makroausführung ist bei Dir aktiv?