Übergabe Selection an Range

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Übergabe Selection an Range
von: rira
Geschrieben am: 20.11.2003 10:37:53

Hi,

ich will ein Diagramm abhängig von einer Auswahl erstellen. Ich will die Ausgewählten Zeilen an das Diagramm weiter leiten.


ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(.....), _
PlotBy:=xlRows

Gruß

rira

Bild


Betrifft: AW: Übergabe Selection an Range
von: Willie
Geschrieben am: 20.11.2003 10:41:03

Meinst du das so? Gruß
Willie

ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(Cells(4, 4), Cells(4, 7))), _
PlotBy:=xlRows


Bild


Betrifft: AW: Übergabe Selection an Range
von: rira
Geschrieben am: 20.11.2003 10:47:40

Nein meinte ich nicht so.
Ich meinte: Ich wähle aus einer Liste von Daten einige aus mit >Shift< und dann soll er mir nur die daten im diagramm anzeigen die ich ausgewählt habe.


Bild


Betrifft: AW: Übergabe Selection an Range
von: rir
Geschrieben am: 20.11.2003 10:49:09

Also bei dem Quelltext öffnet er das diagramm aber er meldet object fehler

x = Selection
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(x), _
PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "test"
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
ActiveChart.HasDataTable = False


Bild


Betrifft: AW: Übergabe Selection an Range
von: Willie
Geschrieben am: 20.11.2003 11:01:03

Hallo
Ich bin nicht 100% fit mit den Diagrammen, ich kann es bei mir gerade leider nicht
testen aber vielleicht klappt es ja so:


Private Sub Workbook_Open()
x = Application.InputBox("Bitte Zellen mit der Maus markieren!")
'x = Selection
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(x), _
PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "test"
.Axes(xlCategory).HasTitle = False
.Axes(xlSeries).HasTitle = False
.Axes(xlValue).HasTitle = False
End With
ActiveChart.HasDataTable = False
End Sub



Bild

Beiträge aus den Excel-Beispielen zum Thema " Übergabe Selection an Range"