VBA/Makro für Bedingte Formatierung

[newbie07]

Hallo,
ich habe leider kaum Kenntnisse in Excel.

Wenn ich richtig informiert bin, kann ich über Alt+F11 ein Makro eintragen.
Das würde ich gerne machen, um folgendes zu erreichen:

In meiner Spalte C soll bei bestimmten Worten immer die entsprechende Zeile ganz farblich markiert werden.
orange für: Haus/Eingang
lavendel für: Mitglieder
gelb fü: Alarm

Damit ich bei Eingabe von "Mitglieder" die Farbe lavendel automatisch erhalte

Das ganze bitte OHNE FORMAT>BEDINGTE FORMATIERUNG, sondern ausdrücklich als MAkro/VBA (oder wie
man das genau bezeichnet).


Wer kann helfen?

[Guschti]

Hallo

Das wäre dein Code

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:C1000")) Is Nothing Then Exit Sub
        If Target = "Haus/Eingang" Then Target.Interior.Color = RGB(255, 192, 0)
        If Target = "Mitglieder" Then Target.Interior.Color = RGB(214, 0, 147)
        If Target = "Alarm" Then Target.Interior.Color = RGB(255, 255, 0)
End Sub

Mfg Guschti

[RPP63]

Ich habe ja im anderen Forum bereits darauf hingewiesen, dass VBA hier eher Quatsch ist.
http://www.ms-office-forum.net/forum/sho...p?t=347354
Der TE wollte aber offensichtlich keine Beispieldatei hochladen.
Nun ja, jedem das Seine.

@Guschti:
Was passiert, wenn der Wert gelöscht wird?
Und vor allem:
Was passiert, wenn die Zelle vorher bereits formatiert war?

Und an den TE:
Ich werde Dir nicht mehr helfen!
Dein Verhalten im anderen Thread motiviert mich nicht.

Gruß Ralf

[newbie07]

Und an den TE:
Ich werde Dir nicht mehr helfen!
Dein Verhalten im anderen Thread motiviert mich nicht.

Gruß Ralf

Ich weiß wirklich nicht, wo dein Problem ist, Ralf.
Wenn du mir nicht helfen willst, obwohl du KÖNNTEST, dann halt dich doch einfach raus.
Und ich werde sicherlich nicht meine persönlichen Daten irgendwo hochladen(!).
Es gibt auch manchmal mehr als nur EINEN Lösungsweg und um den hatte ich gebeten.

Thema ist durch und hoffe hilft auch Anderen, die wie ich auf Makro/VBA angewiesen sind

[newbie07]

Hallo

Das wäre dein Code

Code:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C2:C1000")) Is Nothing Then Exit Sub
        If Target = "Haus/Eingang" Then Target.Interior.Color = RGB(255, 192, 0)
        If Target = "Mitglieder" Then Target.Interior.Color = RGB(214, 0, 147)
        If Target = "Alarm" Then Target.Interior.Color = RGB(255, 255, 0)
End Sub

Mfg Guschti

Vielen Dank für die tolle Hilfe!
Du hast mir sehr viele Stunden Arbeit erspart und ich werde das Wochenende etwas besser genießen können - und sicherlich auch ein Sekündchen an dich denken, weil du mir Zeit erspart hast :19:

[RPP63]

Ich weiß wirklich nicht, wo dein Problem ist, Ralf.

Nun, ICH habe kein Problem, DU hast eins in Bezug auf Excel.
Du möchtest, warum auch immer, eine Zellformatierung abhängig vom Inhalt mittels VBA erstellen.
Dafür sieht Excel die bed. Form. vor.
Ab Excel 2007 in nahezu unbegrenzter Menge der Bedingungen.
Man kann auch wunderbar die Reihenfolge der Bedingungen festlegen, man kann sogar mittels "anhalten" festlegen, dass die übrigen nicht beachtet werden.
Eine anonymisierte Datei willst Du nicht hochladen …
Du hast keine Ahnung von Excel (nicht tragisch, damit gehörst Du zur Majorität) und empfindest einen schlechten Code (nicht persönlich gemeint, Guschti!) als toll und siehst das WE als gerettet an.

Dann möchte ich Dir dieses auch nicht weiter mit meinen penetranten "Besserwissereien" vermiesen. ;)

Gruß Ralf