Ich steh gerade etwas auf dem Schlauch.
Ich habe ein Makro in einem Combobox change sub und das liefert immer die obrige Fehlermeldung wenn ich zur stelle "Set Bereich1 = ..." komme.
Was mache ich falsch?
Hier der Code:
Private Sub CB1_Change()
Dim Le As Long
Dim Bereich1 As Range
Dim Bereich2 As Range
Dim WS As Worksheet
If Worksheets("trc-import").CB1.text "select" And LOADED = True Then
Set WS = Worksheets(Worksheets("trc-import").CB1.text)
Le = WS.Cells(Rows.Count, 2).End(xlUp).Row
Set Bereich1 = WS.Range(Cells(6, 2), Cells(Le, 2))
Set Bereich2 = WS.Range(Cells(6, 3), Cells(Le, 3))
Worksheets("trc-import").ChartObjects("Dia Curves").SeriesCollection(1).XValues = Bereich1
Worksheets("trc-import").ChartObjects("Dia Curves").SeriesCollection(1).Values = Bereich2
End If
End Sub
Danke und Gruß
Flo