Thema Datum  Von Nutzer Rating
Antwort
31.03.2020 09:23:43 Lokman
NotSolved
31.03.2020 13:03:29 Gast49320
NotSolved
Rot VBA - Checkbox mit Makro verknüpfen
 31.03.2020 13:53:16 Gast15751
NotSolved

Ansicht des Beitrags:
Von:
Gast15751		 Datum:
31.03.2020 13:53:16		 Views:
639		 Rating:
     
Antwort:
  Ja
Thema:
VBA - Checkbox mit Makro verknüpfen

Kann man auf mehrere Arten lösen.

 

Mit Formularsteuerelement:

'in einem Modul
Option Explicit

'OnAction Makro für CheckBox
Public Sub CheckBox_OnAction()
  
  If TypeName(Application.Caller) <> "String" Then Exit Sub
  
  Dim obj As Object
  
  On Error Resume Next
  Set obj = ActiveSheet.Shapes(Application.Caller)
  If Err.Number <> 0 Then Exit Sub
  On Error GoTo 0
  
  If obj.Type = MsoShapeType.msoFormControl Then
    If obj.FormControlType = XlFormControl.xlCheckBox Then
      Set obj = obj.OLEFormat.Object
    Else
      MsgBox "Das Makro ist nicht für diesen Steuerelementtyp vorgesehen!", vbExclamation
      Exit Sub
    End If
  Else
    MsgBox "Das Makro ist nicht für diesen Steuerelementtyp vorgesehen!", vbExclamation
    Exit Sub
  End If
  
  Select Case obj.Value
    Case xlOn:    MsgBox "gesetzt", vbInformation, obj.Name
    Case xlOff:   MsgBox "nicht gesetzt", vbInformation, obj.Name
    Case xlMixed: MsgBox "teilmarkiert", vbInformation, obj.Name
  End Select
  
End Sub

Statt der MsgBox unten setzt man dann halt die Sichtbarkeit des gewünschten Tabellenblatts.

 

Grüße

 

PS: Mit ActiveX-Steuerlement geht das natürlich auch.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
31.03.2020 09:23:43 Lokman
NotSolved
31.03.2020 13:03:29 Gast49320
NotSolved
Rot VBA - Checkbox mit Makro verknüpfen
 31.03.2020 13:53:16 Gast15751
NotSolved