Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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

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

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.

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

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige