Diagramm verschieben
Tobi
ich habe ein Makro, welches mir ein Diagramm erstellt. Nun möchte ich, dass dieses Diagramm auf einer ganz bestimmten Position ist, wenn ich es erstelle. Undzwar soll es immer 3 Zeilen nach der letzten beschriebenen Zeile in Spalte A eingefügt werden.
Zu beachten ist allerdings, dass die Tabellen immer unterschiedlich lang sind.
Hier ist ein der bisherige Code:
Sheets("Balkendiagramm Tabelle").Select
Columns("D:D").Select
Range("A:H").Sort Key1:=Range("D1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C1:D1").Select
Selection.ClearContents
Dim lngLetzte7 As Long
With Worksheets("Balkendiagramm Tabelle")
lngLetzte7 = IIf(IsEmpty(.Cells(.Rows.Count, 3)), .Cells(.Rows.Count, 3).End(xlUp).Row, _
.Rows.Count)
End With
Dim lngLetzte8 As Long
With Worksheets("Balkendiagramm Tabelle")
lngLetzte8 = IIf(IsEmpty(.Cells(.Rows.Count, 4)), .Cells(.Rows.Count, 4).End(xlUp).Row, _
.Rows.Count)
End With
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlBarStacked
ActiveChart.SetSourceData Source:=Worksheets("Balkendiagramm Tabelle").Range("C2:C" & _
lngLetzte7, "D2:D" & lngLetzte8), PlotBy:=xlColumns
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = False
Ich hoffe mir kann jemand helfen. Vielen Dank schonmal.
-Tobi
Anzeige