Thema Datum  Von Nutzer Rating
Antwort
19.03.2022 22:12:36 Janosch
NotSolved
19.03.2022 23:58:41 ralf_b
NotSolved
20.03.2022 00:08:16 Gast44584
NotSolved
Blau button ein bzw. ausblenden
 20.03.2022 12:24:51 ralf_b
NotSolved
20.03.2022 08:21:26 RPP63
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
20.03.2022 12:24:51		 Views:
409		 Rating:
     
Antwort:
  Ja
Thema:
button ein bzw. ausblenden

es gibt da verschiedene Wege das umzusetzen. Hier ein Makro das alle Controls des Blattes prüft, die im Namen "Check Box" stehen haben und einen Button "Button 5" ein- oder ausblendet. In Unkenntnis deiner wirklichen Blattinhalte birgt das natürlich die Gefahr noch Seitenefekte zu erzeugen.
Das Makro sollte in einem Allgemeinen Codemodul eingefügt werden und allen Checkboxen als Makro zugewiesen werden.

Man kann auch die Zellverknüpfungen prüfen, doch eine Änderung der verknüpften Zellwerte wird von VBA nicht erkannt. Somit gibt es für eine automatische Reaktion keinen Auslöser.


Sub Kontrollkästchen1_Klicken()
 Dim bVisible As Boolean
 Dim actControl As Shape
 
 bVisible = True
 'Schleife durch alle Controls im aktiven Arbeitsblatt
 For Each actControl In ActiveSheet.Shapes
    'wenn der Controlname mit "Check Box" beginnt
    If actControl.Name Like "Check Box*" Then
        'Wenn der Wert des Controls 1 = aktiv ist
        If Not actControl.OLEFormat.Object.Value = 1 Then
            'Hilfsvariable auf falsch setzen
            bVisible = False
            'Schleife abbrechen
            Exit For
        End If
    End If
 Next
 'Button sichtbar oder nicht
 ActiveSheet.Shapes("Button 5").Visible = bVisible
End Sub

 

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
19.03.2022 22:12:36 Janosch
NotSolved
19.03.2022 23:58:41 ralf_b
NotSolved
20.03.2022 00:08:16 Gast44584
NotSolved
Blau button ein bzw. ausblenden
 20.03.2022 12:24:51 ralf_b
NotSolved
20.03.2022 08:21:26 RPP63
NotSolved