Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ToggleButton
BildScreenshot zu ToggleButton ToggleButton-Seite mit Beispielarbeitsmappe aufrufen

Toggle button, CommandButton


Betrifft: Toggle button, CommandButton von: Thomas
Geschrieben am: 01.03.2019 11:56:04

Hallo

Ich hab folgendes Problem.

Ich habe einen Commandbutton mit zwei Optionen um Makros zu aktivieren oder deaktivieren.
Das klappt auch. Nur wenn ich die Userform starte ist der Button ohne Text, beim ersten klick "Desktop PC" beim zweiten klick "Tablet".
Kann ich dem Button einen Startwert/Text vorgeben?
Am liebsten "Desktop PC"

Hier mal der Code:

Private Sub CommandButton2_Click()
     If CommandButton2.Caption = "Desktop PC" Then
         CommandButton2.Caption = "Tablet"
     Else
         CommandButton2.Caption = "Desktop PC"
     End If
 End Sub

  

Betrifft: AW: Toggle button, CommandButton von: Daniel
Geschrieben am: 01.03.2019 11:59:21

Hi
schau dir mal im Editor die Eigenschaftsliste (F4) zu dem Commandbutton an.
die dort eingstellten Werte hat der Commandbutton beim Start der Userform.
dh du müsstest dort bei Caption den gewünschten Text eintragen.
oder du weist die Überschrift im Initialize-Eventmakro der Userform zu.
dieses wird automatisch beim Start der Userform ausgeführt.
Gruß Daniel


  

Betrifft: AW: Toggle button, CommandButton von: Thomas
Geschrieben am: 01.03.2019 12:09:52

Prima. Danke schön


  

Betrifft: AW: Toggle button, CommandButton von: Nikolaos.
Geschrieben am: 01.03.2019 14:39:12

hi,

ein Beispiel mit Toggle Button und mit 3 Zustandsmöglichkeiten.
Bin mir nicht sicher ob dies dir weiter helfen könnte doch die 3 zustände sind zu sehen. Im jeweiligen Zustand des Buttons musst du dann deine eigenen Sachen/Code rein tun.

Private Sub ToggleButton1_Change()
  ActiveWorkbook.ActiveSheet.Unprotect ("1234")
  Dim xAddress As String
xAddress = "I:M"
  ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = True
  ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = True

  If IsNull(ToggleButton1.Value) Then
  Application.ActiveSheet.Columns(xAddress).Hidden = True
    ActiveSheet.Shapes("Textfeld 18").Visible = False
    ActiveSheet.Shapes("Grafik 25").Visible = False
    ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = False
    ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = True
    ToggleButton1.Caption = "Mittlere Kasse"

  ElseIf ToggleButton1.Value = False Then
  Application.ActiveSheet.Columns(xAddress).Hidden = True
    ActiveSheet.Shapes("Textfeld 18").Visible = True
    ActiveSheet.Shapes("Grafik 25").Visible = True
    ToggleButton1.Caption = "Kleine Kasse"

  ElseIf ToggleButton1.Value = True Then
Application.ActiveSheet.Columns(xAddress).Hidden = False
    ActiveSheet.Shapes("Textfeld 18").Visible = False
    ActiveSheet.Shapes("Grafik 25").Visible = False
ActiveSheet.Range("E13:E23, F13:F23").Cells.Locked = False
    ActiveSheet.Range("J4:J23, K4:K23").Cells.Locked = False
    ToggleButton1.Caption = "Große Kasse"

  End If
  ActiveWorkbook.ActiveSheet.Protect ("1234")
End Sub

Nikolaos.


Beiträge aus den Excel-Beispielen zum Thema "Toggle button, CommandButton"