Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1000to1004
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
Nachtrag zu Gestern - Commandbutton ...
12.08.2008 14:38:00
Frank
Hallo Excelgemeinde!
Gestern fragte ich wie ich CommanButton mit Namen aus einer Tabelle befüllen kann!
Rudi schickte mir folgende Lösung:
CommandButton1.Caption = Range("AQ3").Text
Im Augenblick wird das Ereignis durch folgende Überschrift ausgelöst:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range).
Ich möchte aber schon beim öffnen des bestimmten Arbeitsblattes (in meinem Fall: "Platzierungen") aus-gelöst wird. Desweiteren wäre es schön wenn mir jemand mitteilen könnte, wie ich die Farbe des CommandButton bedingt geändert wird, also wenn sich z.B. der Text in Zelle AQ3 ändert und der Bedingung entspricht soll der Button rot eingefärbt werden.?
Für all eure zahlreichen Hilfen und Ratschläge mein allerherzlichster Dank!!!
Gruß Frank H.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nachtrag zu Gestern - Commandbutton ...
12.08.2008 15:30:00
Rudi
Hallo,
1.

Private Sub Worksheet_Activate()


2. so ähnlich:


Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(0, 0)
Case "AQ1"
If Target = "Test1" Then CommandButton1.BackColor = RGB(220, 30, 0)
Case "AQ2"
If Target = "Test2" Then CommandButton2.BackColor = RGB(0, 255, 255)
Case "AQ3"
If Target = "Test3" Then CommandButton3.BackColor = RGB(255, 0, 0)
'und so weiter
End Select
End Sub

Gruß
Rudi

Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige