Hallo liebe Experten,
ich habe in einem Sheet mehrere Tabellen nebeneinander angeordnet. Jede Tabelle hat drei Spalten und xxx Zeilen. Zwischen den Tabellen gibt es keine Leerspalte.
Jede dieser Tabellen verfügt über eine Checkbox. Wird eine Checkbox aktiviert wird in einem neuen Sheet ein Diagramm erstellt.
Für diese Prozedur wurde mir von euch schon ein Code zur Verfügung gestellt.
Nun zum Problem:
Für das erstellen eines Diagramms wird immer ein fester Wertebereich angenommen. Da sich nun aber die Werte in den Tabellen häufig ändern, kann ich keinen festen Wertebereich definieren.
Hier mal die ersten Zeilen des Codes:
Sub DiagrammErstellen2(strTitel, lngZ)
Dim ws As Worksheet, objChart As Chart
Set ws = Sheets("Data_Motorvarianten")
Set objChart = Charts.Add
With objChart
.ChartType = xlColumnClustered
.SetSourceData Source:=ws.<b>Range("G6,G7:G95,H6,H7:H95")</b>.Offset(lngZ), PlotBy:=xlColumns
.SeriesCollection(1).XValues = "='" & ws.Name & "'!R7C1:R95C1"
.SeriesCollection(2).XValues = "='" & ws.Name & "'!R7C1:R95C1"
Es geht nun konkret um den fettgedruckten Rangebereich:
Die Werte müssen von G7-G (letzte gefüllte Zeile in Referenzspalte A) und von H7-H (letzte gefüllte Zeile in Referenzspalte A) gehen.
Gleiches gilt für die Beschriftung der X-Achse: Die Werte dürfen nicht fest bis R95 gehen sondern die Beschriftung soll dynamisch bis zur letzten gefüllten Zelle in Spalte A gehen.
Ohne Diagramm ist das ja über folgenden Code kein Problem:
z.B. für Spalte G: Range("G7:G" & Cells(Rows.Count, "A").End(xlUp).Row)
Ich habe nun ein Problem damit die beiden Teile miteinander zu kombinieren.
Könnt ihr mir hierbei helfen?
Vielen Dank.
Gruß
Jonathan