Excel VBA

[ykn]

Hallo zusammen,

versuche für die Arbeit ein VBA zur Erstellung von Grafiken zu erstellen.
Leider komme ich hier nicht weiter. Vielleicht weiß jemand ja was ich falsch mache ?


Sub Test()
i = Range("M3").Value
j = Range("M4").Value
Dim SpaltenAnfang As String
SpaltenAnfang = Range("M5")
Dim SpaltenEnde As String
SpaltenEnde = Range("M6")
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.ApplyChartTemplate ( _
"C:\Users\furunoy\AppData\Roaming\Microsoft\Templates\Charts\Diagramm1.crtx")

ActiveChart.SetSourceData Source:=Range("A" & i & ":A" & j,"SpaltenAnfang & ":" & SpaltenEnde)
End Sub

Die Fehlermeldung lautet: "Fehler beim Kompilieren: Erwartet: Listentrennzeichen oder )"
Markiert ist hierbei der ":"

Vielen Dank im Voraus

 

[werner_q]

Vielleicht gehört der Beistrich auch unter die Hochkomma.

 

[Trag]

Ich denke das Anführungszeichen vor SpaltenAnfang ist überflüssig:
ActiveChart.SetSourceData Source:=Range("A" & i & ":A" & j, " SpaltenAnfang & ":" & SpaltenEnde)

 

[ykn]

Tatsache
Das Anführungszeichen vor SpaltenAnfang hatte ich gemacht um den Teil nach dem Komma komplett in Anführungszeichen zu setzen. Dabei kam aber der Fehler heraus. Hatte dies dann gelöscht aber das erste Anführungszeichen vergessen.
Naja jetzt klappt es ja.
Vielen Dank für die schnellen Antworten!