Bedingte Formatierung mit VBA/Makro

Hallo zusammen,
ich habe folgendes Problem: Ich fertige gerade eine Excel-Tabelle an. In der Tabelle werden regelmäßig verschiedene Kürzel wie beispielsweise "N" oder "Z" eingetragen. Ich habe die Tabelle mit der bedingten Formatierung so eingestellt, dass sobald eines dieser Kürzel eingetippt wird, sich die Zelle einfärbt. Mein Problem ist, dass sich nicht nur die entsprechende Zelle, sondern auch die Zelle darunter in der Farbe einfärben soll. Wird also in C23 ein "N" getippt, soll sich auch C24 in der gleichen Farbe einfärben. Das würde natürlich auch mit der bedingten Formatierung gehen. Allerdings müsste ich dies für über 300 Zellen einstellen, weshalb ich darauf gerne verzichten mag... ;-)
Gibt es eine Möglichkeit, wie ich dies über ein Makro oder VBA einstellen kann? Die entsprechende Programmierung müsste für alle Reiter gelten (also nicht nur für ein Arbeitsblatt). Ich hab da leider überhaupt keine Ahnung bzw. Expertise.
Über Lösungsvorschläge wäre ich sehr angetan. Habt schon mal im Voraus einen ganz rechtherzlichen Dank.
Freundliche Grüße
Ernst Schumann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ernst,
was spricht den gegen 2 Regeln und das läuft automatisch.

Tabelle2

	E
1	21
17
18
19	N
20

die bedingte Formatierung Fülleffekte, Symbole, Datenbalken
werden in dieser Tabelle nicht dargestellt

verwendete Formeln
Zelle	Formel	Bereich	N/A
E1	=D1+4

Bedingte Formatierung Haupttabelle 1
Wird angewendet auf	Nr. Bed. Regeltyp	Operator	Formel1	Formel2	Format Schrift Füllfarbe	Unterstrichen	Schrift- farbe	Muster	Musterfarbe	Typ	Bereich
$E:$E,$E$2:$E$1048576	01.Bed.: Formel ist		=E1="N"		15773696					2	$E:$E, $E$2:$E$1048576
$E:$E	02.Bed.: Formel ist		=E1="N"		15773696					2	E:E

Bedingte Formatierung Haupttabelle 2					oberere/unterer Bereich
Wird angewendet auf	Nr. Bed.	Format Zelle	Anhalten	Auswahl	Anzeige	Anzahl	Durchschnitt	Typ	Bereich
$E:$E, $E$2:$E$1048576	01.Bed.		Falsch					2	$E:$E, $E$2:$E$1048576
$E:$E	02.Bed.		Falsch					2	E:E

Die Bedingungen wurden mit Excel-Version ab 2007 ausgelesen.

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 23.05 einschl. 64 Bit

Option Explicit Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) With Range(ActiveCell, ActiveCell.Offset(1, 0)) Select Case ActiveCell.Value Case Is = "N" .Interior.ColorIndex = 14 Case Is = "Z" .Interior.ColorIndex = 16 Case Else .Interior.ColorIndex = xlNone End Select End With End Sub

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung mit VBA/Makro

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bedingte Formatierung mit VBA/Makro

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread