Ich habe folgenden Code den ich u.a. ausführen will:
{Viel Programmcode zur Tabellenerstellung und anschliessend soll aus der Tabelle ein Diagramm entworfen werden. Darin sollen dann die nachfolgenden Anweisungen ausgeführt werden.}
With MSExcel.ActiveChart
.has Legend = true
.Legend.Select
End With
Selection.Position = xlBottom
{Anweisungen}
MSExcel.ActiveChart.PlotArea.Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Interior.ColorIndex = xlNone
{Noch mehr Anweisungen}
Mein Problem: Die Ausführung des Programms erfolgt beim ersten Durchlauf richtig. Rufe ich diese Subroutine ein weiteres Mal auf, wird der Code nicht mehr richtig ausgeführt.
Woran kann das liegen?
Gruß von Dirk