Hi Community,
ich habe in einer Liste eine Variable k (=Zeilenanzahl) deklariert.
Vorher konnte ich die Range ohne Probleme definieren jetzt mit der Variablen k bekomm ich ständig eine Fehlermeldung.
Hier mein bisheriger Vorschlag:
Sub Create_Table()
'k-Variable deklarieren
Dim k As Integer
With Sheets("Datentabelle")
k = Cells(3, 7).Value
End With
'Vorhandenes Diagramm ersetzen
With Sheets("Tabelle1")
.ChartObjects("Gantt_Diagramm").Delete
End With
'Gantt Diagramm erstellen
Sheets("Tabelle1").Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBarStacked
'Diagrammname
Worksheets("Tabelle1").ChartObjects(1).Name = "Gantt_Diagramm"
'Datenrange anwählen
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=Datentabelle!$F$11:$F$" & k 'HIER MACHT EXCEL PROBLEME ;(
Findet jemand den Fehler ?
Grüße,
CadTec
|