Das Clever-Excel-Forum.de - Treffen
... 14.-16. September 2018 im Allgäu ...

Makro umwandeln und erweitern
#1
Hallo zusammen,

ich würde gerne folgendes Makro anstatt einem Kontrolkästchen mit einer Befehlsschaltfläche ausführen:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.ChartObjects("Diagramm 1").Visible = True
CheckBox1.Caption = "Diagramm ausblenden"
Else
ActiveSheet.ChartObjects("Diagramm 1").Visible = False
CheckBox1.Caption = "Diagramm einblenden"
End If
End Sub

Dazu möchte ich gerne, dass bei einem Click, 2 Diagramme (Diagramm 1 und 2) angezeigt bzw. bei einem erneuten Click, beide wieder ausgeblendet werden.

Habe bislang keine Lösung gefunden, um 2 Diagramm gleichzeitig ein- und auszublenden.

Vielen Dank.

Gruß

Sven
to top
#2
Hi!
Dann blende sie doch nacheinander (nicht entweder/oder) ein/aus.

Gruß Ralf
to top
#3
Verstehe deine Antwort jetzt nicht ganz...
Das Makro soll mir bei einem Click auf die Befehlsfläche 2 Diagramm einblenden, und bei einem erneuten beide wieder ausblenden.


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
ActiveSheet.ChartObjects("Diagramm 1").Visible = True
AND Diagramm 2....
CheckBox1.Caption = "Diagramm ausblenden"
Else
ActiveSheet.ChartObjects("Diagramm 1").Visible = False
CheckBox1.Caption = "Diagramm einblenden"
AND Diagramm 2....
End If
End Sub

wie bekomme ich den befehl da rein ? xD
to top
#4
Hallo,

falls ich mich nicht irre, dann ist "nacheinander" doch eindeutig sowas in dieser Art (ungetestet)

Private Sub CheckBox1_Click() 
If CheckBox1.Value = True Then 
ActiveSheet.ChartObjects("Diagramm 1").Visible = True
ActiveSheet.ChartObjects("Diagramm 2").Visible = True
'AND Diagramm 2....
CheckBox1.Caption = "Diagramm ausblenden" 
Else 
ActiveSheet.ChartObjects("Diagramm 1").Visible = False 
ActiveSheet.ChartObjects("Diagramm 2").Visible = False
CheckBox1.Caption = "Diagramm einblenden" 
' AND Diagramm 2....
End If 
End Sub
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

?mage
to top
#5
Hi,

(30.03.2016, 14:19)Käpt schrieb: falls ich mich nicht irre, dann ist "nacheinander" doch eindeutig sowas in dieser Art (ungetestet)

und über einen Button mit Hilfszelle Q1 könnte es so gehen:
Option Explicit

Sub Schaltfläche1_Klicken()
  If Range("Q1").Value = 1 Then 'Diagramm einblenden
     ActiveSheet.ChartObjects("Diagramm 1").Visible = True
     ActiveSheet.ChartObjects("Diagramm 2").Visible = True
     Range("Z1").Value = 0
  Else
     'Diagramm ausblenden
     ActiveSheet.ChartObjects("Diagramm2").Visible = False
     ActiveSheet.ChartObjects("Diagramm 2").Visible = False
     Range("Q1").Value = 1
  End If
 
End Sub


VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2000-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15

Gruß Ralf

?mage

Die deutsche Rechtschreibung ist Freeware, d.h. du kannst sie kostenlos nutzen.
Allerdings ist sie nicht Open Source, deswegen darfst du sie nicht verändern oder in veränderter Form veröffentlichen.
to top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste