Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

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
Antworten Top
#2
Hi!
Dann blende sie doch nacheinander (nicht entweder/oder) ein/aus.

Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. 
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Antworten 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
Antworten 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!

Grüße aus Norderstedt, Peter
Antworten 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

Antworten Top


Gehe zu:


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