Diagramme über VBA

21/09/2007 - 12:16 von Tom | Report spam
Hallo,

kann mir jemand meinen VBA Code so umschreiben, dass ich den Bereich
auswàhlen kann,
d.h. der Bereich: .Range("A1:H2,A5:H5") àndert sich mit jedem
Diagramm.
Ich benötige jetzt eine Schaltflàche, die eingeblendet wird und mich
nach dem Auswahlbereich fragt,
kriegt das jemand hin.

Danke im voraus

Tom

mein Code:

Private Sub CommandButton1_Click()

Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData
Source:=Sheets("Reichweite").Range("A1:H2,A5:H5"), _
PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = False

End Sub
 

Lesen sie die antworten

#1 stefan onken
21/09/2007 - 14:18 | Warnen spam
On 21 Sep., 12:16, Tom wrote:
Hallo,

kann mir jemand meinen VBA Code so umschreiben, dass ich den Bereich
auswàhlen kann,
d.h. der Bereich: .Range("A1:H2,A5:H5") àndert sich mit jedem
Diagramm.
Ich benötige jetzt eine Schaltflàche, die eingeblendet wird und mich
nach dem Auswahlbereich fragt,
kriegt das jemand hin.

Danke im voraus

Tom



hallo Tom,
teste mal dieses Makro:

On Error Resume Next
Set rng = Application.InputBox("Quelldaten?", Type:=8)
If Err.Number <> 0 Then Exit Sub
Charts.Add
ActiveChart.ChartType = xl3DColumnClustered
ActiveChart.SetSourceData _
Source:=Sheets("Reichweite").Range(rng.Address), PlotBy:=xlRows
ActiveChart.Location Where:=xlLocationAsNewSheet
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = False

die Fehlerbehandlung (On Error) fàngt eine Fehlermeldung ab, wenn man
im Dialog auf Abbrechen klickt.

Gruß
stefan

Ähnliche fragen