(Befehls-)Schaltfläche gedrückt bleiben

hi,

gibt es eine Möglichkeit, dass eine (Befehls-)Schaltfläche gedrückt bleibt. Ich habe 2 Schaltflächen über…

rechte Maustaste -> Formular -> Schaltfläche

…angelegt. Wenn man die eine anklickt bzw. aktiviert sieht man nicht welche der beiden aktiviert ist.

Many Thx im Voraus

Gruß Konrad

Hi Konrad,

gibt es eine Möglichkeit, dass eine (Befehls-)Schaltfläche
gedrückt bleibt. Ich habe 2 Schaltflächen über…

rechte Maustaste -> Formular -> Schaltfläche

Rechtsklick auf was? Kann den Vorgang nicht nachvollziehen.

Scheinbar meinst du Schaltflächen aus der Symbolleiste „Formular“

…angelegt. Wenn man die eine anklickt bzw. aktiviert sieht
man nicht welche der beiden aktiviert ist.

Du könntest den Schaltflächen eine andere Farbe oder Beschriftung o.ä zuweisen wenn sie geklickt wurden.
Bei Schaltflächen aus „Formular“ weiß ich grad nicht wie das geht, dann nimm halt Schaltflächen aus „Steuerelementtoolbox“, da geht das.
So z.B.:

Private Sub CommandButton1_Click()
CommandButton1.Caption = „wurde gedrückt“
CommandButton2.Caption = „wurde nicht gedrückt“
End Sub

Private Sub CommandButton2_Click()
CommandButton2.Caption = „wurde gedrückt“
CommandButton1.Caption = „wurde nicht gedrückt“
End Sub

Alternativ, mal dir mit einem Grafikprogramm Bildchen einer gedrückten und einer ungedrückten Schaltfläche. Mit unterschiedlicher Schaltflächenbeschriftung da du zwei Schaltflächen hast.
Oder suche so Bildchen im Internet.
Dann füge diese vier Bildchen in Excel ein und weise ihnen Makros zu, die jeweils bei Klick auf das Bildchen die Anzeige ändern welches Bild angezeigt wird.

Gruß
Reinhard

Grüezi Konrad

gibt es eine Möglichkeit, dass eine (Befehls-)Schaltfläche
gedrückt bleibt. Ich habe 2 Schaltflächen über…

rechte Maustaste -> Formular -> Schaltfläche

…angelegt. Wenn man die eine anklickt bzw. aktiviert sieht
man nicht welche der beiden aktiviert ist.

Du könntest ja auch einen Toggle-Button aus der Steuerelemente-Doolbox verwenden; diesen sieht man an ob sie gedrückt sind oder nicht.

Mit freundlichen Grüssen
Thomas Ramel

  • MVP für Microsoft-Excel -
    [Win XP Pro SP-2 / xl2003 SP-3]

OT seltsame Symbolleiste

Du könntest ja auch einen Toggle-Button aus der
Steuerelemente-Doolbox verwenden; diesen sieht man an ob sie
gedrückt sind oder nicht.

Grüezi D homas,
(sorry, an dieser goldenen Brücke konnte ich nicht vorbei und mußte drüberlatschen *lächel*)

Was anderes, mit der faq2363, du wolltest die anpassen, machst du da was?

Was anderesII, man hat 2 Kombinationsfelder (Comboboxen) in der Tabelle. Jmd. wollte daß wenn man in der ersten etwas auswählt, die zweite „aufklappt“ damit man nicht vergisst dort auch was auszuwählen.

Ich kam auf

Private Sub ComboBox1_Change()
ComboBox2.DropDown
End Sub

was auch vorzüglich klappt wenn man bei ComboBox2.DropDown einen Haltepunkt setzt und dann F8 benutzt.
Nach F8 ist die zweite Combobox „aufgeklappt“.
Leider schiesst Windows nach dem End Sub Excel komplett ab :frowning:

Einbau von DoEvents und ähnlichen Dingen die mir so einfielen brachten nix.

Wenn dir da was zur Problemlösung einfällt ist das gut, wieder was gelernt, wenn nicht, auch okay.
Hinweis die Problematik steht schon seit paar Tagen bei Hans H. als noch unbeantwortet, also durchaus möglich daß es gar nicht geht.

Ich wünsche dir ein schönes WE
Gruß
Reinhard

Mit freundlichen Grüssen
Thomas Ramel

  • MVP für Microsoft-Excel -
    [Win XP Pro SP-2 / xl2003 SP-3]

Grüezi Reinhard

Du könntest ja auch einen Toggle-Button aus der
Steuerelemente-Doolbox verwenden; diesen sieht man an ob sie
gedrückt sind oder nicht.

Grüezi D homas,
(sorry, an dieser goldenen Brücke konnte ich nicht vorbei und
mußte drüberlatschen *lächel*)

Ist doch doll welche Stillblüten da ab und an mal dreiben :wink:

Was anderes, mit der faq2363, du wolltest die anpassen, machst
du da was?

Ich habe die Nachfrage gesehen, kam aber in letzter zeit überhaupt nicht dazu, mich ran zu machen - leider. Vermutlich ist das auch in den nächsten Wochen noch so - ev. über die Feiertage Ende Jahr…?

Was anderesII, man hat 2 Kombinationsfelder (Comboboxen) in
der Tabelle. Jmd. wollte daß wenn man in der ersten etwas
auswählt, die zweite „aufklappt“ damit man nicht vergisst dort
auch was auszuwählen.

Ich kam auf

Private Sub ComboBox1_Change()
ComboBox2.DropDown
End Sub

was auch vorzüglich klappt wenn man bei ComboBox2.DropDown
einen Haltepunkt setzt und dann F8 benutzt.
Nach F8 ist die zweite Combobox „aufgeklappt“.
Leider schiesst Windows nach dem End Sub Excel komplett ab :frowning:

Autsch - wechseln in den Entwurfsmodus zur Laufzeit ist nicht allzu verträglich fürs System…

Wenn dir da was zur Problemlösung einfällt ist das gut, wieder
was gelernt, wenn nicht, auch okay.

Ev. ein ‚Stop‘ im Code und dann mit F8 weiterfahren?

Mit freundlichen Grüssen
Thomas Ramel

  • MVP für Microsoft-Excel -
    [Win XP Pro SP-2 / xl2003 SP-3]

Grüezi Thomas,

Was anderes, mit der faq2363, du wolltest die anpassen, machst
du da was?

Ich habe die Nachfrage gesehen, kam aber in letzter zeit
überhaupt nicht dazu, mich ran zu machen - leider. Vermutlich
ist das auch in den nächsten Wochen noch so - ev. über die
Feiertage Ende Jahr…?

okay.

was auch vorzüglich klappt wenn man bei ComboBox2.DropDown
einen Haltepunkt setzt und dann F8 benutzt.
Nach F8 ist die zweite Combobox „aufgeklappt“.
Leider schiesst Windows nach dem End Sub Excel komplett ab :frowning:

Autsch - wechseln in den Entwurfsmodus zur Laufzeit ist nicht
allzu verträglich fürs System…

Tja nun, ohne den Haltepunkt ist Excel auch wech :frowning: Nur durch den Haltepunkt sehe ich daß DropDown korrekt ausgeführt wird.

Dies hier klappt problemlos:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 7 Then ComboBox1.DropDown
End Sub

Ergo muß es m.E. daran liegen daß das Dropdown aus dem Eventcode einer anderen Combobox heraus aufgerufen wird und irgendwas läuft da schief.

Das nächste Problem liegt auf der Hand, wie klappe ich so eine DropDownauswahl wieder ein?
Quasi ein DropDown=False.

Wenn dir da was zur Problemlösung einfällt ist das gut, wieder
was gelernt, wenn nicht, auch okay.

Ev. ein ‚Stop‘ im Code und dann mit F8 weiterfahren?

Das verzögert leider nur das Beenden von Excel durch Windows.

PS: Völlig OT, schau mal bei Interesse ins Brett Rätsel und Denkspiele, ich schreibe da gleich mal einen Beitrag rein :smile:

Gruß
Reinhard