Diagramm mit vba erstellen
Dirk
ich habe folgendes Problem:
Ich habe eine Excel Tabelle: 12 Spalten, X Zeilen
es soll per Makro aus einer Excel Liste ein Diagramm erstellt werden, welches zwei Spalten auswertet in denen sich Zahlen befinden. Erste Spalte ist der Monat (im Diagramm auf x aufgetragen
Die Anzahl der Daten variiert jedoch - jeden Monat kommt eine weitere Zeile hinzu. Somit müsste ich quasi jedes mal bevor ich das Macro starte den Bereich anpassen.
Bsp.
Aktuell: R3C2:R40C2
Neuer Monat: R3C2:R41C2
Wenn ich hier den Bereich (R100) eingebe
- ist der Bereich zu groß -> werden auch die leeren Zeilen mit ausgewertet und das Diagramm unleserlich
- ist der Bereich zu klein -> werden nicht alle Datensätze ausgewertet
Ich bräuchte somit eine Möglichkeit, den Bereich so festzulegen, dass der letzte Werte in der Spalte als Ende ausgelesen wird.
Irgendwie muß man ja da was reinschreiben:
Range("C3", "C" & Sheets("Werte").Range("A65536").End(xlUp).Row)
Ist mir aber nicht gelungen. Weil ich die richtige Beschriftung bzw. auch die Legende ausgeben möchte.
Im Diagramm habe ich nämlich Steuerelement, mit denen ich die einzelnen Spalten aufrufen kann und somit kopiere ich mir das eine Makro für jede Spalte und kann das gewünschte Diagramm dann aufrufen.
Mein relativ einfaches Makro für eine Spalte lautet:
Sub Conti()
Sheets("Dia-Reifen").Select
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Formula = _
"=SERIES(Werte!R2C4,Werte!R3C2:R40C2,Werte!R3C4:R40C4,1)"
Sheets("Dia-Reifen").Select
ActiveChart.Deselect
End Sub
Hier zeigt mir das Diagramm Werte bis zu Zeile 40 an. Im nächsten Monat habe ich dann 41 Zeilen und ich muß den Wert wieder händisch bei allen Makros anpassen.
Vielleicht habt Ihr mir eine einfach Lösung!
Vielen Dank schon mal für eine Antwort
Schöne Grüße
Dirk