Hallo Leute,
für die meisten von euch, ist das bestimmt total einfach, aber ich bekomms mit meinen kaum vorhandenen VBA Kenntnissen einfach nich hin!
Ich habe folgendes Makor aufgezeichnet:
Sub Makro37Diagramm()
'
' Makro37Diagramm Makro
'
'
Range("U1:Y12").Select
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range("'Document Data'!$U$1:$Y$12")
ActiveChart.FullSeriesCollection(1).ChartType = xlColumnClustered
ActiveChart.FullSeriesCollection(1).AxisGroup = 1
ActiveChart.FullSeriesCollection(2).ChartType = xlColumnClustered
ActiveChart.FullSeriesCollection(2).AxisGroup = 1
ActiveChart.FullSeriesCollection(3).ChartType = xlLine
ActiveChart.FullSeriesCollection(3).AxisGroup = 2
ActiveChart.FullSeriesCollection(4).ChartType = xlLine
ActiveChart.FullSeriesCollection(4).AxisGroup = 2
End Sub
Da in die Spalten U, V, W, X und Y ständig neue Werte hinzugefügt werden, möchte ich, dass sich das Diagramm stets um diese erweitert. Jetzt die Frage: Wie gebe ich die letzte Zelle in einer Spalte so an, dass das Makro selbst schaut, welches überhaupt die letzte Zelle mit einem Wert ist?
Vielen Danke schonmal! |