ich weiß es gibt schon drölf Millionen andere Einträge zu dem Thema und die waren auch alle sehr aufschlüssig, befassen sich aber nicht mit dem Problem, wie die Range angegeben werden muss, wenn die Daten sich nicht in direkt nebeneinander befinden Spalten befindenten.
Also ich habe folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngStart As Range
Dim intEnde As Integer
If Target.Column = 1 Then
Set rngStart = ActiveCell
intEnde = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.ChartObjects("Wurst").Select
ActiveChart.SetSourceData Source:=Sheets("NV Neu 2010-2011").Range("A2:A" & intEnde, "H2: _
_
H" & intEnde, "I2:I" & intEnde, "J2:J" & intEnde, "K2:K" & intEnde)
End If
End Sub
Die Zeile bei der ich Probleme habe ist diese:
ActiveChart.SetSourceData Source:=Sheets("NV Neu 2010-2011").Range("A2:A" & intEnde, "H2:H" & _
_
intEnde, "I2:I" & intEnde, "J2:J" & intEnde, "K2:K" & intEnde)
Ich habe auch mal eine Beispieldatei hochgeladen. Wie muss ich denn die Range angeben, damit die Geschichte auf funktioniert?Die Datei https://www.herber.de/bbs/user/86458.xlsm wurde aus Datenschutzgründen gelöscht
Gruß Max