Veteran
Beiträge: 229
 
Ort: Badendorf | Hallo,
jetzt habe ich doch noch ein Problem:
mit .Range("AQ2") funktioniert die Darstellung der Sparklines (die auskommentierte Zeile)
mit .Cells(43, 2) nicht.
'With xlWB.ActiveSheet.Range("AQ2") ' Sparkline
With xlWB.ActiveSheet.Cells(43, 2) ' Sparkline
.SparklineGroups.Add Type:=2, SourceData:="B2:AL2" '=xlSparkColumn ist durch =2 ersetzt
.SparklineGroups.Item(1).SeriesColor.ThemeColor = 5
End With
_______________
Hintergrund ist eigentlich, dass ich die Sparklines auch in den Zeilen darunter erzeugen möchte
also nicht nur in Zelle AQ2, sondern auch AQ3, AQ4...
.autofill oder ähnliche Excel Lösungen bekomme ich aber bei Sparklines aus Access heraus wieder nicht zum laufen.
Ich brauche von Access aus also eine VBA Lösung dafür, wie ich die Sparklines kopieren und mit den entsprechenden Werten der Zeilen darunter pasten kann.
Wenn da jemand eine Idee hat, das wäre toll
viele Grüße
Rudolf Greiff |
Sparklines via VBA erzeugen