Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: BackColor bei best. Inhalt ändern

BackColor bei best. Inhalt ändern
31.01.2009 08:16:00
KayR
Hi,
über eine CheckBox blende ich ein CommandButton ein und aus
und übergebe als Schaltflächentext den Inhalt aus Tabelle1!A3.

Private Sub CheckBox2_Click()
Tabelle7.CommandButton1.Visible = Tabelle7.[f5] = True
CommandButton1.Caption = Worksheets("Tabelle1").Range("A3")
End Sub


Ist es zusätzlich möglich, bei bestimmten Inhalt in A3 die BackColor
des CommandButton zu ändern?
z.B. so: Wenn A3 Krank -> BackColor Gelb
oder Urlaub -> BackColor Rot
Würde mich freuen wenn es eine Lösung dafür gibt.
Gruß
Kay

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BackColor bei best. Inhalt ändern
31.01.2009 08:32:00
hary
Hallo Kay
versuch mal dies.

Private Sub CheckBox2_Click()
Tabelle7.CommandButton1.Visible = Tabelle7.[f5] = True
CommandButton1.Caption = Worksheets("Tabelle1").Range("A3")
If Worksheets("Tabelle1").Range("A3")Value = "krank" Then
Tabelle7.CommandButton1.BackColor = &HFFFF&
End If
End Sub


Gruss Hary

Anzeige
Punkt vergessen
31.01.2009 08:36:17
hary
Hallo Kay
ein Punkt abhanden gekommen.

Range("A3").Value


Hary

Klappt Super, aber eine Frage noch
31.01.2009 09:16:00
KayR
Hi Hary,
Danke für die schnelle Hilfe, funktioniert Super!
Eine Frage habe ich noch.
In A3 wähle ich den Inhalt über ein DropDown aus.
In der Liste befinden sich außer beispielsweise "Krank",
"Urlaub" usw. noch Zahlen als Text formatiert, etwa so:
15:00-20:30, 15:00-21:00, 15:00-21:30, das ganze 10 mal.
Im Code würde das ja so aussehen:
If Worksheets("Tabelle1").Range("A3").Value = "15:00-20:30" Then
Tabelle7.CommandButton1.BackColor = &HFFFF&
End If
If Worksheets("Tabelle1").Range("A3").Value = "15:00-21:00" Then
Tabelle7.CommandButton1.BackColor = &HFF&
End If
usw.
Gibt es eine Möglikeit Excel zu sagen, das wenn es sich um Zahlen in
in Textformat handelt, dann = &HFF& ?
Vielleicht verrenne ich mich jetzt in etwas, aber interessieren würde es mich
schon.
Gruß
Kay
Anzeige
AW: Klappt Super, aber eine Frage noch
31.01.2009 09:49:52
Reinhard
Hi Kay,
vielleicht so:

With Tabelle7.CommandButton1
If InStr(Worksheets("Tabelle1").Range("A3").Value, ":") > 0 Then
.BackColor = &HFFF1&
Else
Select Case .Range("A3").Value
Case "Krank"
.BackColor = &HFFF2&
Case "Urlaub"
.BackColor = &HFFF3&
Case "Schulung"
.BackColor = &HFFF4&
Case Else
.BackColor = &HFFF0&
MsgBox "was unklar"
End Select
End If
End With


Gruß
Reinhard

Anzeige
AW: Klappt Super, aber eine Frage noch
31.01.2009 10:16:59
hary
Hallo Kay
versuch mal.

If Left(Worksheets("Tabelle1").Range("A3").1)  "" And IsNumeric(Left(Worksheets("Tabelle1"). _
Range("A3").1)) Then


Gruss Hary
Oder wie von Reinhard beschrieben mit Case.

Vielen Dank!!! owT.
31.01.2009 11:30:00
KayR
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige