Thema: Zellhintergrund in Abhängigkeit von Zelleintrag festlegen.

Home

Gruppe

Ereignis

Problem

Bei Eintragungen in Zelle A1 bzw. A2 sollen die Folgezellen in Spalte A mit einem roten (r) oder gelben (g) Hintergrund belegt werden. Lösung A über das Change-Ereignis, B über die bedingte Formatierung.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
   If IsEmpty(Range("A1")) Or IsEmpty(Range("A2")) Then Exit Sub
   Columns(1).Interior.ColorIndex = xlNone
   Select Case Range("A2").Value
      Case "g"
         Range(Cells(3, 1), Cells(Range("A1").Value + 2, 1)) _
            .Interior.ColorIndex = 6
      Case "r"
         Range(Cells(3, 1), Cells(Range("A1").Value + 2, 1)) _
            .Interior.ColorIndex = 3
   End Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeSave

Msg mit 2 Ereignissen +Cancel	Ereignisprozedur
Makro für ereignisabh. Druck verschiedener Seiten	UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?	Zeilen aus- einblenden als Ereignis?
Nur einmal Private Sub Workbook_BeforeSave	Welches Ereignis ist das richtige ??
Application Object und WorkbookBeforeSave	Ereignis Arbeitsblatt sperren abfangen
Ereignisprozedur f. Multipage-Reiter	Frage zum Change ereignis
Change-Ereignis in Combobox unterdrücken	Combobox Ereignis
Userform, Ereignis deklarieren im Klassenmodul	Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen	Command Button Ereignis
Ereignis von Laufzeit-Checkbox	change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern	change-ereignis bei dynamisch erstellten Controls
"Verschlüsselung" mit _BeforeSave	Schaltfläche - Ereignis erst nach Bestätigung ausl
Objekt_Error - Ereignis in UserForm	change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen?	Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse	Ausnahmen für Exit-Ereignis
Exit-Ereignis SetFocus	select Ereigniss UF Show
Ereignis zeitweise mit Fehler	Ereignismakro
Selectereigniss in Spalte	doppeltes Klick-Ereignis
Doppelklick-Ereignis	VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht	Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten	Worksheet_Change Ereignis erweitern
Exit Ereignis springt nicht an	Exit-Ereignis
Ereignis "BeforeSave" - ".Find" geht nic	change ereigniss nicht ausführen Userform
Exit Ereignis	Rekursiven Aufruf von Ereignissen verhindern
Makro läuft nicht, falsches Ereignis?	Dropdown Ereignis