Datenbereich für Diagramme über Makro
09.01.2006 14:14:18
Matthias
ich komme einfach nicht weiter. Ich bin eine absolute Null in VBA. Bitte um Hilfe.
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 Sheets(i).Cells(intIndex, 32).Value = "" Then Exit For
Next intIndex
Set chtChart = Sheets("Charts").ChartObjects("Diagramm 4").Chart
chtChart.SetSourceData _
Source:=Sheets(i).Range(Cells(6, 32), Cells(intIndex - 1, 32))
chtChart.Axes(xlCategory).CategoryNames = _
Sheets(i).Range(Cells(6, 4), Cells(intIndex - 1, 4))
Set chtChart = Nothing
End Sub
Bekomme immer einen Laufzeitfehler.
Möchte im Blatt "Charts" ein Diagramm (Diagramm 4) mit den Daten aus dem aus der Combobox gewählten Blatt befüllen.
Das gewählte Blatt wird angewählt, greift aber nicht auf den Chart im Blatt Charts zu.
Danke für eure Hilfe.
lg Matthias