Makro debugg-Problem
24.04.2009 11:12:33
Jesua
ich habe folgendes Problem mit dem Makro. Es funktioniert alles so, wie ich es will, jedoch wird nach jedem ausgeführten Makro (obwohl alles so ist, wie ich es will) ein Fehler gemeldet: Laufzeitfehler 438
immer wird eine im Makro fett dargestellte Zeile gelb angezeigt. Warum das?
Sub Makro1()
If Range("B3").Value = 2008 Then
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
Selection.ShapeRange.ZOrder msoBringToFront
ElseIf Range("B3").Value = 2008 Then
ActiveSheet.ChartObjects("Diagramm 5").Activate
ActiveChart.ChartArea.Select
Selection.ShapeRange.ZOrder msoBringToFront
ElseIf Range("B3").Value = 2010 Then
ActiveSheet.ChartObjects("Diagramm 6").Activate
ActiveChart.ChartArea.Select
Selection.ShapeRange.ZOrder msoBringToFront
End If
End Sub
Vielen Dank für eure Hilfe!
Gruss Jesua