Diagramm Dynamisch über Maske

Hallo liebe Mitglieder,
ich habe mehrere, sehr umfangreiche, Tabellen in denen sich auch jeweils 4-8 Tabellenblätter befinden die immer unterschiedlich benannt sind. Über den relevanten Werten steht jeweils in Spalte "A" der Name zu dem die Daten gehören. Nun habe ich die Aufgabe bekommen, aus den Werten der Spalte "C" jeweils ein Diagramm zu erstellen. Diesen Code hier habe ich soweit (recht rudimentär) zum Laufen bekommen:


b=Inputbox("linke obere : rechte untere Ecke eingeben")
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range(b), PlotBy :=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"

Meine Frage lautet nun, wie kann ich das Diagramm auch benennen, so dass ich den Namen der sich je in Spalte "A" befindet als Diagrammtitel mit aufgenommen bekomme?
Ich stelle mir das so vor:
Maske mit der Abfrage wo der Name in Spalte "A" steht und dann die Abfrage, von bis welchen Zeilen in Spalte "C" die Werte genommen werden sollen. Ein Traum (ist aber Luxus) wäre es nun noch, das Diagramm (evtl. mittels Zwischenablage) als Grafik in Word zu kopieren.
Ist so etwas möglich? Wenn es zu komplex ist, würde ich das aufgrund der vielen Daten auch als Auftragsprogrammierung vergeben wenn mir jemand sagen kann, wie ich das machen muss.
Hier noch eine Beispiel Datei:


https://www.herber.de/bbs/user/151732.xlsx

Ganz vielen Dank und ein schönes Wochenende
VG

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim b Dim C b = InputBox("linke obere : rechte untere Ecke eingeben") C = InputBox("Zelladresse Diagrammtitel") If b "" And C "" Then With Worksheets("Tabelle1").Shapes.AddChart2(227, xlLine) .Chart.SetSourceData Source:=Worksheets("Tabelle1").Range(b), PlotBy:=xlColumns .Chart.HasTitle = True .Chart.ChartTitle.Caption = Worksheets("Tabelle1").Range(C) End With End If

Dim b Dim C b = InputBox("linke obere : rechte untere Ecke eingeben") C = InputBox("Zelladresse Diagrammtitel") If b "" And C "" Then With ActiveSheet.ChartObjects.Add(0, 100, 300, 150).Chart .SetSourceData Source:=Range(b), PlotBy:=xlColumns .HasTitle = True .ChartTitle.Caption = Range(C) End With End If

Sub DiagrammeErstellen() Dim rngZelle As Range Dim strStart As String Dim lngStart As Long Dim lngEnde As Long Dim chrDia As ChartObject lngStart = 2 Set rngZelle = Columns(1).Find("Data No.", lookat:=xlWhole, after:=Range("A1")) If Not rngZelle Is Nothing Then strStart = rngZelle.Address Do lngEnde = rngZelle.End(xlDown).Row With ActiveSheet.ChartObjects.Add(0, 0, 0, 0).Chart '0, 100, 300, 150 .SetSourceData Source:=Range(Cells(lngStart, 2), Cells(lngEnde, 6)), PlotBy:=xlColumns .HasTitle = True .ChartTitle.Caption = Cells(lngStart - 1, 1) End With Set rngZelle = Columns(1).FindNext(rngZelle) lngStart = rngZelle.Row Loop While rngZelle.Address strStart End If ' Diagrammgröße und Position einstellen lngStart = 1 For Each chrDia In ActiveSheet.ChartObjects With chrDia .Height = Range("A1:A10").Height '

Hi Detlef,
ersetze diese Zeile:


With ActiveSheet.ChartObjects.Add(0, 0, 0, 0).Chart

durch diese:


With ActiveSheet.Shapes.AddChart2(227, xlLine, 0, 0, 0, 0).Chart

Bei den Versionen nach 2007 kann man den gewünschten Diagrammtyp gleich bei der Erstellung festlegen - in den Versionen davor muss man das nachträglich zuweisen, so wie mit deinem Codeteil .ChartType = xlLine. Diese Zeile hatte ich übrigens vergessen, dadurch wurde der Standardtyp erstellt. Mit der neuen Codezeile ist dies - wie bereits erwähnt - gleich inbegriffen.
Übrigens: es war ein Säulen- und kein Balkendiagramm - oder stehen bei dir zuhause die Dachbalken senkrecht? ;-))
Wo man so etwas lernt? Ganz einfach: jahrelange Erfahrung. :-)
Bis später
Karin

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagramm Dynamisch über Maske

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread