Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

User-Form-Label einen ColorIndex-Wert zuweisen


Betrifft: User-Form-Label einen ColorIndex-Wert zuweisen von: Sven
Geschrieben am: 06.02.2019 12:37:39

Hallo zusammen,
ich möchte die Hintergrundfarbe eines Labels so färben, wie die Register-Farbe eines Tabellenblattes ist.

label1.BackColor = ActiveWorkbook.Sheets(1).Tab.ColorIndex

Das funktioniert aber nicht, da BackColor ja einen Hexwert erwartet und die Frabe des Tabs als Indexwert angegeben ist. Wie kann ich das übersetzen?

Danke und Grüße
Sven

  

Betrifft: ohne Index! von: Rudi Maintaire
Geschrieben am: 06.02.2019 12:40:23

Hallo,
da BackColor ja einen Hexwert erwartet
muss nicht.

label1.BackColor = ActiveWorkbook.Sheets(1).Tab.Color

Gruß
Rudi


  

Betrifft: AW: ohne Index! von: Sven
Geschrieben am: 06.02.2019 13:16:01

Hallo Rudi,

ach herrje - danke. :o)
Bonusfrage: Wenn keine Farbe ausgewählt ist, wird der Reiter im Excel grau, mein Label aber schwarz dargestellt. Wie kommt das?

Grüße


  

Betrifft: AW: ohne Index! von: Werner
Geschrieben am: 06.02.2019 15:12:38

Hallo Sven,

Private Sub UserForm_Initialize()
If ActiveWorkbook.Sheets(1).Tab.Color = False Then
    Me.Label1.BackColor = &H8000000F 'Standardfarbe des Labels
Else
    Me.Label1.BackColor = ActiveWorkbook.Sheets(1).Tab.Color
End If
End Sub
Gruß Werner


  

Betrifft: AW: ohne Index! von: Sven
Geschrieben am: 06.02.2019 15:54:21

Hervorragend! Danke!


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 06.02.2019 16:12:52




Beiträge aus dem Excel-Forum zum Thema "User-Form-Label einen ColorIndex-Wert zuweisen"