Hello!
Ein neuer Tag und ein neues, anscheinend nicht lösbares Problem für mich....
Bastle mal wieder an einem Diagramm mittels VBA.
Problemstellung: ich weiß im Vorhinein nicht wie viele Zeile und Spalten meine Datenquelle haben wird (die Tabelle wächst ständig weiter).
Die Tabelle schaut im Grunde so aus: https://www.herber.de/bbs/user/86061.xlsx
nur eben (über andere Makros und Auswahlfelder in Breite und Höhe) von Fall zu Fall -je nach Filter Einstellungen verschieden.
Folgender Code (und einige ähnliche Versuche)mag nicht funktionieren:
<pre>Public Sub DiaTEst()
Dim myChart As ChartObject
Dim LZeile As Long
Dim LSpalte As Long
LZeile = Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
LSpalte = Sheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeLastCell).Column
Set myChart = Sheets("Tabelle1").ChartObjects.Add(100, 50, 200, 200)
With myChart
.Chart.SetSourceData Source:=Range("A2")
.Chart.ChartType = xlLineMarkers
With .SeriesCollection(1)
.XValues = Range(Cells(1, 4), Cells(1, LZeile))
.Values = Range(Cells(2, 4), Cells(LZeile, LSpalte))
End With
End With
End Sub</pre>
Aufgrund besagter Filter etc fängt die Datenreihe erst in Reihe 4 an. das kann ich leider auch nicht ändern, sonst passt vorher nix mehr: )
ich danke wie immer für jede Hilfe!
GLG
Julia