title image


Smiley Re: .ChartObjects(1).Name="Dia_Eins" mein Fehler natürlich mit T.!
Hi KlausCDN und erstmals thanks für Deinen Tip.

ich krieg's nicht hin!



Meine 4 Tabellen haben keine, 1, 2 oder maximal 5 Charts

(Durch die Benutzer werden Charts gelöscht und neue erstellt)



In jeder Tabelle unter Worksheet_Activate()

frage ich ab ob es Charts hat und wenn ja, wieviele?



AnzahlCharts = 0 'Abfrage ob Charts und wenn ja wieviele?

For I = 1 To Worksheets( "aktuelle Tabelle" ).ChartObjects.Count

AnzahlCharts = AnzahlCharts + 1

Next I



Wenn es dann Charts hat, möchte ich diesen Namen vergeben.

If AnzahlCharts 0 Then 'erst wenn es Charts hat dann Namen Vergeben



... und hier komme ich nicht weiter.



?? .ChartObjects(1).Name = "Dia_Eins"

?? .ChartObjects(2).Name = "Dia_Zwei"

?? .ChartObjects(3).Name = "Dia_Drei"

?? .ChartObjects(4).Name = "Dia_Vier"

?? .ChartObjects(5).Name = "Dia_Fünf"



End If



Vielen Dank, modulo





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: