Datenbereich für Diagramme über Makro
05.01.2006 11:28:17
Matthias
ich komme einfach nicht weiter.
Folgendes Problem:
Ich habe eine Combobox, in der alle Tabellenblattnamen eingelesen werden. So weit so gut.
Dann habe ich ein Makro für ein Kreisdiagramm geschrieben, dass sich bei Klick aktualisiert:
Private Sub Diagramm3_BeiKlick()
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
Nun mein Problem:
Ich möchte, dass ich ein Tabellenblatt über die Combobox auswählen kann und sich der Datenbereich des Diagrammes dann auf die Daten dieses Blattes bezieht.
Ich danke für eure Hilfe.
lg Matthias