Zellen wieder einblenden
10.07.2017 20:08:41
Christian
ich habe eine Reihe von Diagrammen, welche ich über Buttons Ein-und Ausblenden. Das läuft auch alles wunderbar. Jetzt switche ich über ein Button zwischen zwei Diagrammen. In den Zeilen 24:25 befindet sich ein zusätzliches Feld, welches aber nur für eines der beiden Diagramme relevant ist. Daher schalte ich es beim anderen Diagramm aus:
Ein Auszug aus dem Code. Das klappt auch
If ActiveSheet.ChartObjects(5).Visible Then
'Bestandsverlauf CEC-1 Total
ActiveSheet.ChartObjects(6).Visible = True
'Bestandsverlauf CEC-2 Total
ActiveSheet.ChartObjects(5).Visible = False
Rows("24:25").Hidden = True
Else
'Bestandsverlauf CEC-1 Total
ActiveSheet.ChartObjects(6).Visible = False
'Bestandsverlauf CEC-2 Total
ActiveSheet.ChartObjects(5).Visible = True
Rows("24:25").Hidden = False
End If
Ich dachte das würde ganz Simple gehen. Aber leider klappt das so nicht:
Auszug.
Rows("24:25").Hidden = True
'Bestandsverlauf Dock IST
ActiveSheet.ChartObjects(1).Visible = True
'Bestandsverlauf Dock PLAN
ActiveSheet.ChartObjects(2).Visible = False
'Upper Deck P018
ActiveSheet.ChartObjects(3).Visible = False
'Main Deck P08
ActiveSheet.ChartObjects(4).Visible = False
'Bestandsverlauf CEC-2 Total
ActiveSheet.ChartObjects(5).Visible = False
Ich hoffe sehr, das ich mir trotz fehlender Beispieldatei helfen könnt: Das erstellen der Beispieldatei würde schon längere Zeit in Anspruch nehmen.
Viele Grüße
Christian
Anzeige