ich kriege es einfach nicht hin...
21.04.2010 21:44:29
PeterO
Vielen Dank erst mal für den Lösungsansatz. Allerdings kriege ich die Umsetzung nicht hin...
Durch das Auswählen der "Checkboxen" sollen die entsprechenden Spalten markiert werden, um daraus dann ein Diagramm zu erstellen (hätte ich vllt. schon mal erwähnen sollen?!). Mein Ansatz sieht nun so aus:
Private Sub CommandButton2_Click()
Dim i As Long
Dim h As Long
Dim ber() As Range
Dim ber_dia2 As Range
With Sheets("Tabelle1")
For i = 0 To UserForm1.ListBox1.ListCount - 1
ReDim ber(1 To UserForm1.ListBox1.ListCount)
If UserForm1.ListBox1.Selected(i) = True Then
i = i + 1
Set ber(i) = Range(.Cells(3, i), .Cells(65000, i).End(xlUp))
If ber_dia2 Is Nothing Then
Set ber_dia2 = ber(i)
Else
Set ber_dia2 = Union(ber_dia, ber(i))
End If
i = i - 1
Else
End If
Next
ber_dia2.Select
End With
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=ber_dia2, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Auswertung"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Datum"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Leistung"
End With
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlCategoryScale
Sheets("Tabelle1").Cells(3, 1).End(xlDown).Select
End Sub
Der Code ist in der Userform hinter dem Commandbutton hinterlegt. Er hängt sich immer bei
Set ber_dia2 = Union(ber_dia, ber(i))
mit Laufzeitfehler 424 und dem Hinweis Objekt erforderlich auf.
Wo ist der Fehler?