Office: (Office 2013) Abfrage Hintergrundfarbe

rofra · 1. April 2015

Code:

Private Sub Farbe2()
Dim ctl As Control, lngRed As Long, lngYellow As Long, lngGreen As Long

For Each ctl In Me.Controls
If ctl.Tag = "X" Then
lngRed = lngRed – ctl.BackColor = vbRed
lngYellow = lngYellow – ctl.BackColor = vbYellow
lngGreen = lngGreen – ctl.BackColor = vbGreen
End If
Next ctl

If lngRed > 0 Then
Me!Zustand.BackColor = vbRed
Exit Sub
End If

If lngYellow > 0 Then
Me!Zustand.BackColor = vbYellow
Exit Sub
End If
Me!Zustand.BackColor = vbGreen
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maikek · 1. April 2015

Das sieht soweit ok aus, ich kann keinen "Syntaxfehler" entdecken.
Da hilft wohl nur noch Hochladen, wie üblich abgespeckt auf das Problem mit ein paar Dummydaten.
maike

rofra · 1. April 2015

Ich habe alles nochmal abgetippt und jetzt kommt keine Fehlermeldung mehr. Debug.Print ctl.Name schmeißt korrekt alle gewünschten Felder aus, Debug von lngGreen, lngRed und lngYellow sind allerdings alle 0... ist doch wirklich zum verzweifeln :/

Danke auf jeden fall für die hilfe bisher!

maikek · 1. April 2015

Der Code von Maxel setzt voraus, dass die Felder nicht mit irgendeinem Rot, Gelb oder Grün sondern genau mit vbRed, vb... usw. gefüllt sind.
maike

rofra · 1. April 2015

Ja das sind sie auch.. habe das ganze jetzt etwas verändert, so funktioniert es auf jeden fall:

Code:

Private Sub Farbe2()
Dim ctl As Control, lngRed As Long, lngYellow As Long

For Each ctl In Me.Controls
If ctl.Tag = "x" Then
If ctl.BackColor = vbRed Then lngRed = lngRed + 1
If ctl.BackColor = vbYellow Then lngYellow = lngYellow + 1
End If
Next ctl
If lngRed > 0 Then
Me!Zustand.BackColor = vbRed
Exit Sub
Else
If lngYellow > 0 Then
Me!Zustand.BackColor = vbYellow
Exit Sub
Else
Me!Zustand.BackColor = vbGreen
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank euch für eure Hilfe *Smilie

maikek · 1. April 2015

Es geht auch kürzer *wink.gif* :
Code:

Private Sub Farbe2()
Dim ctl As Control, lngRed As Long, lngYellow As Long, lngGreen as Long

For Each ctl In Me.Controls
If ctl.Tag = "x" Then
Select Case ctl.Backcolor
Case vbRed
lngRed = 1
Case vbYellow
lngYellow = 1
Case else
lngGreen = 1
End Select
End If
Next ctl

Me!Zustand.BackColor = Switch(lngRed = 1, vbRed, lngYellow = 1, vbYellow, lngGreen = 1, vbGreen)

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

maike

Marsu65 · 1. April 2015

Alternative:
Code:

Dim ctl As Access.TextBox, ColorResult As Long

ColorResult = vbGreen

For Each ctl In Me.Controls
If ctl.Tag = “X” Then
Select Case ctl.BackColor
Case vbRed
ColorResult vbRed
Exit For
Case vbYellow
ColorResult = vbYellow
End Select
End If
Next ctl
Me.Zustand.BackColor = ColorResult
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kyron9000 · 2. April 2015

Hallo,
ColorResult vbRed funktioniert so nicht... aber so... ColorResult = vbRed
(ein = kann man leicht vergessen, wenn man es im Word erstellt, aber der Code von Marsu ist funktional)

Office: (Office 2013) Abfrage Hintergrundfarbe

Abfrage Hintergrundfarbe

Abfrage Hintergrundfarbe

Abfrage Hintergrundfarbe

Abfrage Hintergrundfarbe

Abfrage Hintergrundfarbe - Similar Threads - Abfrage Hintergrundfarbe

Abfrage: Anzahl von Kriterium >0

Teil des Zellinhaltes abfragen in VBA

Verliert irgendwann die Selektive Abfrage von UFO

automatische Abfrage URL via Artikelnummer

Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern

mit String aus Formular Übereinstimmung in Abfrage prüfen

RowSource aus Abfrage mit Kriterien