Office: Farbe aller Elemente einer Userform ändern

Schmali · 21. August 2012

Hallo liebe MOF-Gemeinde,

ich steh absolut auf'm Schlauch.

Ich möchte die BackColor ALLER Elemente einer UF auf einen Schlag ändern. Hintergrund ist das der Benutzer anhand der Farbe erkennen soll, ob die sichtbaren Daten dem Kunden mitgeteilt werden dürfen oder nicht.

Da es sich in dem UF um ca. 300 Elemente handelt (Frames, Buttons, Labels, usw.) wäre es einfach sehr umständlich diese alle einzeln einzufärben. Daher hab wollte ich mich eigentlich folgenden Codes bedienen:

Code:

Dim ct As MSForms.control
Sub freigabefarben()
With uf_art_stammdaten
If tbl_speicherung.Cells(1, 150).Value = "Ja" Then 'Hier steht die ob Freigabe ja oder nein
.BackColor = &H8000000F
For Each ct In uf_art_stammdaten.Controls
.BackColor = &H8000000F
Next
Else
.BackColor = &HC0FFFF
For Each ct In uf_art_stammdaten.Controls
MsgBox ct
.BackColor = &HC0FFFF
Next
End If
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber irgendwie haut das nicht hin. Es kommt keine Fehlermeldung aber auch keine andere Farbe.

Wenn ich mir ct in einer MessageBox anzeigen lasse, so erhalte ich immer den Inhalt der ct und nicht den Namen.

Bin mir sicher, das Ihr mir hier weiterhelfen könnt und danke schonmal im voraus.

Greetz

Schmali

:)

Rudi Maintaire · 23. August 2012

Hallo,
schreib mal
uf_art_stammdaten.Repaint
ans Ende.

Wenn ich mir ct in einer MessageBox anzeigen lasse, so erhalte ich immer den Inhalt der ct und nicht den Namen
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klar! Msgbox ct.Name

Gruß
Rudi

Schmali · 23. August 2012

Hoi,

Repaint hat leider auch nix gebracht.

Das mit der Msgbox mit .Name ist schon klar, aber genau da denk ich ist das Problem. Er zeigt mir das an, was in dem jeweiligen Element eingetragen ist (also eben nicht den Namen) und so denke ich, das es falsch deklariert ist und er den Inhalt des jeweiligen Elements verändern will und nicht das Element selbst.

Vielleicht verrenn ich mich auch irgendwo, nur versteh ich es nicht, da ja die Me.controls("Frame"......) usw. auch funzt und ich dachte, das Dim ct as msforms.control genau das ersetzen soll.

Noch ne Idee? Das mit der Msgbox lassen wir jetzt mal außen vor.

Ich hab mal ne Mini-Variante (UserForm) zum spielen angehängt. Dies dürfte das Problem veranschaulichen.

Greetz und schonmal Merci

Schmali

Rudi Maintaire · 23. August 2012

Hallo,
Fehler gefunden.
z.B. hier
Code:

For Each ct In uf_art_stammdaten.Controls
.BackColor = &H8000000F
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

färbst du ca 300x den Hintergrund der UF ein, nicht des Controls!
So muss es sein:
Code:

For Each ct In uf_art_stammdaten.Controls
ct.BackColor = &H8000000F
Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Außerdem kann man das ganze einkürzen.

Code:

Sub freigabefarben()
Dim bColor As Long
Dim ct As Control

'Hier steht die ob Freigabe ja oder nein
If Sheets(1).Cells(1, 1).Value = "Ja" Then
bColor = &H8000000F
Else
bColor = &HC0FFFF
End If

With UserForm1
.BackColor = bColor
For Each ct In .Controls
ct.BackColor = bColor
Next
.Repaint
End With

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

Gruß
Rudi

Morli · 23. August 2012

Auszug aus der Online-Hilfe:

Einstellungen

Sie können eine beliebige Ganzzahl verwenden, die eine gültige Farbe darstellt. Sie können eine Farbe auch anhand der RGB-Funktion mit Rot-, Grün- und Blaukomponenten angeben. Der Wert jeder Farbkomponente ist eine Ganzzahl im Bereich von 0 bis 255. Sie können z. B. Seegrün als die Ganzzahl 4966415 oder als die Rot-, Grün- und Blaukomponenten 15, 200, 75 angeben.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Versuche es also einfach mit mit RGB-Werten!

Schmali · 23. August 2012

Hoi und *stupid

manchmal liegt die Lösung so nah...

Herzlichen Dank Rudi.

Erledigt und kann geschlossen werden.

Greetz

Schmali

Office: Farbe aller Elemente einer Userform ändern

Farbe aller Elemente einer Userform ändern

Farbe aller Elemente einer Userform ändern

Farbe aller Elemente einer Userform ändern

Farbe aller Elemente einer Userform ändern - Similar Threads - Farbe Elemente Userform

56 Benutzerdefinierte Farben in die Farbpalette integrieren

Gedruckte Farbe der Kommentarblasen ändern

Bericht per VBA formatieren

Kalenderfarbe: Termine außerhalb meiner Organisation

Phänomen in der Textbearbeitung

Serienbrief Seriendruckfeld Farbe ändern

Bedingte Formatierung, Leere Zelle ab best. Zeit einfärben und bei Eintrag Farbe weg.