ich moechte mit dem unten stehenden code
ein zweites diagramm ( natuerlich mit anderen Parametern ) erstelltn.
Mit dem ersten Diagramm ist alle o.k
Sobald ich aber mit dem gelichen code in einer anderen Tabelle ein zweites Dia.
erstellen will, dann bekomme ich die Fehlermeldung Objekt kann nicht zugeordent werden.
Was muss ich de anpassen ? Das zweite Diagramm habe ich in Diagramm 2 umbenannt
ohne Erfolg.
marc.
Option Explicit
Declare Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)
Dim z As Byte
Sub einblenden()
Sheets("V190.1").ChartObjects("Diagramm 1").Visible = True
Sleep 1000
Sheets("D190.1").Rows("4:11").Hidden = True
For z = 4 To 11
Sheets("D190.1").Rows(z).Hidden = False
Sleep 1000
Next
End Sub
Sub Diagramm_aus()
Sheets("D190.1").Rows("4:11").Hidden = True
Sheets("V190.1").ChartObjects("Diagramm 1").Visible = False
End Sub