Anzeige
Archiv - Navigation
924to928
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
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Steuerelement: "Umschaltfläche"

Steuerelement: "Umschaltfläche"
09.11.2007 20:08:34
ch.heer@mysunrise.ch
Guete Obe zäme.
Ich möchte eine Umschaltfläche programieren! Eine Befehlsfläche kann ich steuern, nun möchte ich mein Wissen fundementieren.
Was mus ich eingeben, damit ich bei der Umschaltfläche den Code retour laufen lassen kann.
Kann jemend bitte ein Vorschlag senden, damit ich diesen Übernehmen kann.
Ich danke dir jetzt schon zum Voraus
Christoph Heer

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Steuerelement: "Umschaltfläche"
09.11.2007 20:28:00
Ramses
Hallo
Was verstehst du unter
"...damit ich bei der Umschaltfläche den Code retour laufen lassen kann. ..."
Gruss Rainer

ToggleButton
09.11.2007 20:56:00
Beate
Hallo Christoph,
Der ToggleButton liegt auf der Symbolleiste Steuerelement-Toolbox und heißt dort Umschaltfläche.
Ein Toggle-Button ist entweder True oder False. Da kannst du dann mit einer Select-Case-Anweisung Aktionen auslösen und entsprechend reagieren.
Verwenden Sie Toggle-Felder wie ein Kontrollkästchen, um Einstellungen wie ein/aus oder wahr/falsch anzuzeigen. Toggle-Felder haben den gleichen Zweck wie Kontrollkästchen, aber zeigen die Einstellung als eine Schaltfläche in entweder einer »gedrückt«- oder »nicht gedrückt«-Position an. Verwenden Sie Toggle-Felder für Auswahlen, die sich nicht gegenseitig ausschließen.
Ein Beispiel:
Weise einem ToggleButton diesen Code (gehört ins Codefenster der Tabelle) zu. Er fügt Rahmen um jede Zelle des benutzten Bereichs bzw. entfernt sie:
Private Sub ToggleButton1_Click()
    Dim aa
    Set aa = ActiveSheet.UsedRange
    If ToggleButton1 Then
        With aa.Borders
            .LineStyle = xlLineStyleNone
        End With
        ToggleButton1.Caption = "Rahmen im UsedRange jede Zelle setzen"
    Else
        With aa.Borders
            .LineStyle = xlContinuous
            .Weight = xlMedium
            .ColorIndex = xlAutomatic
        End With
        ToggleButton1.Caption = "Rahmen im UsedRange jede Zelle löschen"
    End If
End Sub


Gruß,
Beate
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige