Datenbereich für Diagramme über Makro
06.01.2006 17:09:02
Matthias
ich komme einfach nicht weiter.
Folgendes Problem:
Ich habe eine Combobox, in der alle Tabellenblattnamen eingelesen werden. ZUdem ein Diagramm. Nun habe ich das angehängte Makro geschrieben. Das Makro geht mir in das ausgewählte Blatt, greift aber nicht auf die Werte zu und spielt sie nicht ins Diagramm im Blatt "Charts" ein.
Könnt ihr mir bitte weiterhelfen?
Private Sub ComboBox1_Change()
For i = 1 To Sheets.Count
If Sheets(i).Name = ComboBox1.Value Then Exit For
Next i
Sheets(i).Select
Dim chtChart As Chart
Dim intIndex As Integer
For intIndex = 6 To 25
If ActiveSheet.Cells(intIndex, 32).Value = "" Then Exit For
Next intIndex
Set chtChart = ActiveSheet.ChartObjects(1).Chart
chtChart.SetSourceData _
Source:=ActiveSheet.Range(Cells(6, 32), Cells(intIndex - 1, 32))
chtChart.Axes(xlCategory).CategoryNames = _
ActiveSheet.Range(Cells(6, 4), Cells(intIndex - 1, 4))
Set chtChart = Nothing
End Sub
Danke für eure Hilfe.
Matthias