Was ist falsch?
28.07.2003 16:52:31
Ingo
eigentlich will ich, daß der user in einer UserForm via ComboBox die Möglichkeit hat, ein Kriterium auszuwählen, nach dem eine Liste sortiert und Graphisch aufbereitet wird.
Leider klappt das mit dem Auslesen der Combobox net, so daß mir die Liste also auch nicht sortiert wird,
und das Diagramm wird mir auch nicht erstellt, da beginnt bei der dritten Zeile (ActiveChart.SeriesCollection(2).XValues = "=Datenquelle!R5C2:R5C6") der Debuggen-Modus.
Was ist alles falsch???
Sub UPRDiagramm2()
Sheets("Datenquelle").Select
If ComboBoxSort = Ort Then
Columns("B:iv").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
ElseIf ComboBoxSort = Messe Then
Columns("B:iv").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
ElseIf ComboBoxSort = Datum Then
Columns("B:iv").Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End If
Unload EingabemaskeAuswertungen
Sheets("Standfläche_und_Besucher").Select
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = "=Datenquelle!R5C2:R5C6"
ActiveChart.SeriesCollection(1).Values = "=Datenquelle!R10C2:R10C6"
ActiveChart.SeriesCollection(2).XValues = "=Datenquelle!R5C2:R5C6"
ActiveChart.SeriesCollection(2).Values = "=Datenquelle!R12C2:R12C6"
ActiveChart.SeriesCollection(3).XValues = "=Datenquelle!R5C2:R5C6"
ActiveChart.SeriesCollection(3).Values = "=Datenquelle!R14C2:R14C6"
End Sub
Danke für eure Hilfe,
Ingo
PS:
Die ComboBox erhält Ihre Werte uber RowSource - Hilfsblatt!B2:B12