Office: (Office 2003) Bedingte Formatierung per VBA zuweisen?

Marsu65 · 1. Oktober 2008

Moin moin,

Der Titel verrät eigentlich schon die Frage: Kann man per VBA Textfeldern eine bedingte Formatierung zuweisen?

Verschiedene Kunden haben eben unterschiedliche Vorstellungen darüber, was 'schön', 'auffällig genug' bzw 'blindmachend' bei einigen Kennzeichnungsfeldern empfunden wird *grins

:)

Arne Dieckmann · 2. Oktober 2008

Ausschnitt aus der VBA-Hilfe zum Stichwort "FormatConditions":

Das folgende Beispiel legt Eigenschaften einer bereits existierenden bedingten Formatierung eines Steuerelements namens "Textbox1" fest.

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

With forms("forms1").Controls("Textbox1").FormatConditions(1)
.BackColor = RGB(255,255,255)
.FontBold = True
.ForeColor = RGB(255,0,0)
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Maxel · 2. Oktober 2008

Das fand ich zu diesem Stichwort:

Code:

Dim lMin1 As Long, lMax1 As Long, lMin2 As Long, lMax2 As Long
lMin1 = 60
lMax1 = 89
lMin2 = 90
lMax2 = 100

With Forms("Wochenformular")("Prozent").FormatConditions

'die alten bedingten Formatierungen entfernen
Do while .Count > 0
.Delete
Loop

.Add acFieldValue, acBetween, Str(lMin1), Str(lMax1)
.Item(0).BackColor = RGB(255, 255, 255)
.Item(0).ForeColor = RGB(255, 0, 0)

.Add acFieldValue, acBetween, Str(lMin2), Str(lMax2)
.Item(1).BackColor = RGB(0, 255, 255)
.Item(1).FontBold = True
.Item(1).ForeColor = RGB(255, 0, 0)

End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Damit müssten ggf. auch mehr als 3 Bedingungen formatierbar sein.

Arne Dieckmann · 7. Januar 2021

von Maxel

Damit müssten ggf. auch mehr als 3 Bedingungen formatierbar sein.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das hatte Sascha unter Acc2000 - Bedingte Formatierung für mehr als vier … auch vermutet, Kama hatte die Vermutung getestet und leider widerlegt. *frown.gif* Aber vielleicht ist Access 2003 da schon etwas großzügiger.

Maxel · 2. Oktober 2008

Stimmt leider auch noch bei A03, Arne: Bei 3 ist Schluss *frown.gif*

Arne Dieckmann · 2. Oktober 2008

Danke fürs Testen *hands - ich war ein wenig zu faul *redface.gif* und habe darauf spekuliert, dass du es testest.

Maxel · 2. Oktober 2008

OK.

Man beachte aber auch donkarls Access-Seiten

Marsu65 · 3. Oktober 2008

Merci,
meiner einer war zu faul in der OH oder im Objektkatalog zu suchen *redface.gif*
und nach ca.50 Forumsbeiträgen hatte ich auch keine Lust mehr *tongue.gif*

Danke euch Beiden *hands

Office: (Office 2003) Bedingte Formatierung per VBA zuweisen?

Bedingte Formatierung per VBA zuweisen?

Bedingte Formatierung per VBA zuweisen?

Bedingte Formatierung per VBA zuweisen?

Bedingte Formatierung per VBA zuweisen?

Bedingte Formatierung per VBA zuweisen? - Similar Threads - Bedingte Formatierung VBA

Im Endlosformular aktiven Datensatz hervorheben

Bedingte Formatierung per VBA

Alternative zur Bedingten Formatierung (Zelle einfärben bei Text Zeichen) VBA?

Bedingte Formatierung von Datenblättern mit VBA

Doppelte Werte finden mit Bedingter Formatierung funktioniert nicht

bedingte Zellfarbe auf Diagramm übertragen

Spalten in Zeilen umwandeln wenn A1 gleich A2