Bedingte Formatierung via Makro

Sub bedformattest() Dim c As Range Application.ScreenUpdating = False For Each c In Selection 'If c.Font.Bold = True Then c.Interior.ColorIndex = xlNone Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _ Formula1:="0" Selection.FormatConditions(1).Font.ColorIndex = 2 End If Next c Application.ScreenUpdating = True End Sub Das funktioniert soweit auch wunderbar. Aber die bedingte Formatierung wird leider für alle _ Zellen in der Selektion angewandt. Auch für die, die hellgelb oder hellblau ausgefüllt sind (colorindex = 34/ 37). Was mache ich falsch, daß die Voraussetzung Colorindex = xlnone nicht beachtet wird? Vielen Dank für Eure Ideen. Grüße, Andreas Hanisch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datum_Umwandeln_in_TTMMJJJJ() '* H. Ziplies * '* 25.09.05 * '* erstellt von Hajo.Ziplies@web.de * '* http://Hajo-Excel.de/ ' Datum umwandeln von 01.02.05 in 01022005 (TTMMJJ) ' für den markierten Bereich Dim RaBereich As Range For Each RaBereich In Selection If IsDate(RaBereich) Then ' damit Change Ereiognis nicht ausgelöst wird Application.EnableEvents = False RaBereich.Value = Format(RaBereich, "ddmmyyyy") RaBereich.NumberFormat = "00000000" Application.EnableEvents = True End If Next RaBereich End Sub

Hallo Bernd,
anbei der Code, der bei mir lief:


Sub bedformattest()
Dim c As Range
Application.ScreenUpdating = False
For Each c In Selection
'If c.Font.Bold = True Then
If c.Interior.ColorIndex = 6 Then
c.FormatConditions.Delete
c.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="0"
c.FormatConditions(1).Font.ColorIndex = 2
End If
Next c
Application.ScreenUpdating = True
End Sub

Das Problem war, daß Du noch auf Colorindex = None gestellt hattest. Aber wenn Du die Zellen gelb hinterlegt hast, dann muß es bei Deinem Gelbton heißen Colorindex = 6. Außerdem hatte ich leider noch die Zeile 'If c.Font.Bold = True Then
drin. Mit dieser Zeile könntest Du die bedingte Formatierung greifen lassen, wenn die Buchstaben in der Zelle fett geschrieben sind. Der kleine' am Anfang der Zeile führt dazu, daß die Zeile "auskommentiert" ist. D.h. man sieht den Befehl, aber VBA setzt ihn nicht um. So kann ich schnell umschalten zwischen "führe aus, wenn Buchstaben fett" oder "führe aus, wenn Zellfärbung bstimmten Wert hat". Einfach durch versetzten des '.
Des Weiteren stand im Code kein "IF" und "Then" drin. Aber "Wenn", "dann" ist für diesen Code wie für viele andere zwingend notwendig.
Such hier im Forum doch einmal nach dem Excel Farbindex. Dann kannst du sehen, welche numerischen Werte all die anderen Farben in Excel haben.
Ich hoffe, Dir geholfen zu haben.
Grüße, Andreas

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread