AW: Diagramm mit vba erstellen
07.10.2019 10:29:49
Beverly
Hi Lutz,
gewiss lässt sich das realisieren - es fragt sich nur: WIE soll die Spalte ausgewählt werden? Mal als Beispiel mit einer InputBox, in die der Spaltenbuchstabe (für die Spalte mit den Y-Werten) eingetragen werden kann:
Sub DiaErstellen()
Dim lngLetzte As Long
Dim diagramm As Chart
Dim varSpalte As Variant
Dim rngBereich As Range
varSpalte = Application.InputBox("Bitte Spaltenbuchstabe eintragen", _
"Spaltenauswahl", , , , , , 2)
If Not IsNumeric(varSpalte) Then
With Worksheets("Tabelle4")
lngLetzte = .Range("A1").End(xlDown).Row
Set rngBereich = Union(.Range(.Cells(1, 1), .Cells(lngLetzte, 1)), _
.Range(.Cells(1, varSpalte), .Cells(lngLetzte, varSpalte)))
Set diagramm = .ChartObjects.Add(50, 50, 250, 150).Chart
diagramm.ChartType = xlXYScatterLines '