Office: Relativer Bezug bei Makro für Diagramme

Hi,

ich würde gerne ein Makro erstellen, dass mir auf Knopfdruck ein Balkendiagramm von einer gewünschten Zahl erstellt. Das Problem ist, dass der Makrorecorder die Daten für das Diagramm absolut addressiert und ich so immer ein Diagramm mit den selben Daten bekomme. Wie kann ich das ändern?

ActiveCell.Select
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Tabelle1'!$A$1:$A$2")
ActiveChart.ChartType = xlBarClustered

 

ActiveChart.SetSourceData Source:=Range("'Tabelle1'!" & Selection.Address)

 

danke für die antwort, leider kommt dann eine fehlermeldung

 

versuch es mit
ActiveChart.SetSourceData Source:=Selection.Address

 

geht leider auch nicht

so gehts:

ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=ActiveCell
ActiveChart.ChartType = xlBarClustered
ActiveChart.SetSourceData Source:=ActiveCell

 

Option Explicit

Sub ubekannter4()
'ActiveCell.Select
Dim StAdresse As String
StAdresse = Selection.Address
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("'Tabelle1'!" & StAdresse)
ActiveChart.ChartType = xlBarClustered
End Sub

 

Hi,

man kann das Ganze auch ohne Select lösen:

Code:

Sub DiaErstellen()
    With ActiveSheet.ChartObjects.Add(0, 0, 300, 150) '<== Position/Höhe/Breite anpassen
        .Chart.SetSourceData Source:=Selection
        .Chart.ChartType = xlBarClustered
    End With
End Sub

Bis später,
Karin