Dynamischce Range bei Diagrammerstellung
06.02.2018 13:54:37
Dennis
ich bin relativ neu im VBA-Bereich und habe eine Frage bzgl. einer dynamischen Range für ein Diagramm.
Ich habe in einer Tabelle Daten. Diese werden per Makro in den Reiter "Produktivität" kopiert (geht wahrscheinlich auch schöner).
Aus diesen Daten möchte ich Diagramme erstellen. Da sich die Tabelle bei jedem Übertrag verlängert, soll auch das Diagramm angepasst werden. Bei der Makro-Erstellung klappt etwas nicht. Unten stehen die beiden Code.
Ich hoffe ihr könnt mir helfen. Vielen Dank im Voraus!!!
Makro-Datenübertrag:
Sub Datenuebertrag()
Dim Zelle As Long
Dim Ze As Long
Dim Zel As Long
Dim Zell As Long
Sheets("Eingabe").Range("C7:E12").Copy
With Sheets("Produktivität")
Zelle = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range("A" & Zelle).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
Sheets("Eingabe").Range("C7:D12").Copy
With Sheets("Produktivität")
Zell = .Cells(.Rows.Count, 13).End(xlUp).Row + 1
.Range("M" & Zell).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
Sheets("Forecast").Range("L17:O22").Copy
With Sheets("Produktivität")
Ze = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
.Range("D" & Ze).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
Sheets("Forecast").Range("L5:O10").Copy
With Sheets("Produktivität")
Zel = .Cells(.Rows.Count, 8).End(xlUp).Row + 1
.Range("H" & Zel).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End With
End Sub
Sub Diagramm()
Dim Zelle As Long
With Sheets("Produktivität")
Zelle = .Cells(.Rows.Count, 8).End(xlUp).Row
.Range("H4:Zelle").Select
ActiveSheet.Shapes.AddChart2(227, xlLine).Select
ActiveChart.SetSourceData Source:=Range("Produktivität!$H$4:Zelle")
End With
End Sub