Hi,
ich versuche die folgende Schleife abwärts laufenzulassen aber läuft überhaupt nicht!!
For i = AnzWerke - 1 To 0
If Sum1(i) = 0 Then
ActiveSheet.ChartObjects(i + 1).Delete
End If
Next i
AnzWerke =4
ich habe mit Loop until probiert aber geht auch nicht !!!
Gruß
Stan