Thema Datum  Von Nutzer Rating
Antwort
27.08.2018 14:12:50 Max
NotSolved
27.08.2018 14:55:04 Flotter Feger
NotSolved
Rot Zwischen Diagrammen wechseln VBA
 27.08.2018 14:55:09 Flotter Feger
NotSolved
27.08.2018 14:55:09 Flotter Feger
NotSolved

Ansicht des Beitrags:
Von:
Flotter Feger		 Datum:
27.08.2018 14:55:09		 Views:
536		 Rating:
     
Antwort:
  Ja
Thema:
Zwischen Diagrammen wechseln VBA

Hallöchen,

ein ToggleButton hat nur zwei States ... bei drei Units also nicht geeignet.

Nimm einen CommandButton und sinngemäß diesen Code.

Private Sub CommandButton1_Click()
Static iByte As Byte

Select Case iByte
    Case 0
    ActiveSheet.Shapes.Range(Array("Diagramm 4", "Diagramm 5", "Diagramm 6")).Visible = msoFalse
    iByte = 1
    Case 1
    ActiveSheet.Shapes.Range(Array("Diagramm 4")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Diagramm 5", "Diagramm 6")).Visible = msoFalse
    iByte = 2
    Case 2
    ActiveSheet.Shapes.Range(Array("Diagramm 5")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Diagramm 4", "Diagramm 6")).Visible = msoFalse
    iByte = 3
    Case 3
    ActiveSheet.Shapes.Range(Array("Diagramm 6")).Visible = msoTrue
    ActiveSheet.Shapes.Range(Array("Diagramm 4", "Diagramm 5")).Visible = msoFalse
    iByte = 0
End Select
End Sub

VG Sabina

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
27.08.2018 14:12:50 Max
NotSolved
27.08.2018 14:55:04 Flotter Feger
NotSolved
Rot Zwischen Diagrammen wechseln VBA
 27.08.2018 14:55:09 Flotter Feger
NotSolved
27.08.2018 14:55:09 Flotter Feger
NotSolved