HERBERS Excel-Forum - das Archiv

Thema: Diagramm mittels Makro erstellen

Diagramm mittels Makro erstellen
jayobar
Hallo liebes Forum,

ich habe eine Datei mit Datensätzen mit folgender Systematik (Kapitalmarktdaten):
jeweils Spalte mit: Datum/Uhrzeit/Open/High/Low/Close

Beispiel: https://www.herber.de/bbs/user/168686.xlsx

Ich möchte nun einen Datensatz auswählen (aktive Zelle ist dann "Uhrzeit") und dann mittels eines Makro ein StockOHLC-Diagramm der 15 darunter folgenden Datensätze erstellen. Das Datum soll, wenn möglich, der Titel des Diagramms werden.

Ich komme leider nicht weiter, habe aber auch absolut keine Ahnung. Ich kriege es mit dem Recorder hin, dass er ein Diagramm erstellt aber sobald ich mit einem anderen Datensatz anfangen möchte, erscheint immer das "aufgezeichnete" Diagramm.

Würde mich freuen, wenn jmd die Zeit findet mir weiterzuhelfen. Danke vorab.

Viele Grüße
Jan

Bitte Beispielmappe hochladen...
Beverly
Hi Jan,

...einschließlich deines aufgezeichenten Makros.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
AW: Bitte Beispielmappe hochladen...
jayobar
Hi Karin,

hier inkl. Makro.

https://www.herber.de/bbs/user/168690.xlsm

LG
Jan
AW: Bitte Beispielmappe hochladen...
Onur
Ich habe dir eben die Lösung gepostet.
AW: Bitte Beispielmappe hochladen...
Beverly
Hi Jan,

du musst das Diagramm nicht jedesmal löschen und neu erstellen - es reicht aus, wenn du es einmal erstellt hast und dann jeweils nur den Wertebereich neu zuweist:

Sub DiagrammWertezuweisen()

With ActiveSheet.ChartObjects("Diagramm 1").Chart
.SetSourceData Source:=Range(Cells(Selection.Cells(1).Row, 2), Cells(Selection.Cells(1).Row + 13, 6))
.ChartTitle.Caption = Cells(Selection.Cells(1).Row, 2)
End With
End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Bitte Beispielmappe hochladen...
jayobar
Danke, hatte es erst danach gesehen. Schaue es mir morgen an aber wird schon passen :)

Vielen Dank!!
VG
Jan
Gerne !
Onur
AW: Diagramm mittels Makro erstellen
Onur