Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Automatisierte Diagrammerstellung und -speicherung
Normale Version: Automatisierte Diagrammerstellung und -speicherung
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

ranieder

31.10.2018, 15:55
Hallo,

ich habe folgendes Problem und suche nach einer (automatisierten) Lösung:

Ich habe zwei Spalten, Spalte 1 mit Namen und Spalte 2 mit Werten.
Ich habe ein bereits erstelltes Diagramm, das mit dem Wert aus der Spalte 2 gespeist werden solll.

Ich habe jetzt folgendes Problem: Ich habe ca. 500 Zeilen und möchte automatisiert zu jeder Zeile eiln Diagramm erstellen lassen. Das Diagramm soll dann (automatisiert) mit dem Namen aus Spalte 1 abspeichert werden. In Summe müssen dann 500 Diagramme abgespeichert werden.

Geht das überhaupt? Hat jemand eine Lösung für mich?

Ich bin für jede Hilfe sehr sehr dankbar.

LG
Rainer

Klaus-Dieter

31.10.2018, 16:04
Hallo,

500 Diagramme mit jeweils einem Wert? Oder habe ich da was falsch verstanden?

Fennek

31.10.2018, 16:05
Hallo,

ja, das sollte möglich sein.

Lade bitte eine Bsp-Datei hoch, die Typen String und Zahlen müssen mit dem Original übereinstimmen, ansonsten sind dummies ok.

mfg

steve1da

31.10.2018, 16:11
Hola,

verlinkst du bitte deine Fragen in allen Foren gegenseitig? (bislang hab ich 3 gezählt).
Danke.

Gruß,
steve1da

ranieder

31.10.2018, 16:34
Vielen vielen Dank für diie schnelle Rückmeldung.

Sehr gerne lade ich eine Beispieldatei hoch, in diesem Fall hab ich nur 12 Werte als Beispiele enthalten.

In der Mitte wäre das Diagramm, bei Pointer Value rechts oben käme der Wert aus Spalte B rein.

Lieben Dank für Eure Hilfe


LG
Rainer

ranieder

31.10.2018, 16:35
Ja, sorry, tut mir leid. Kommt nicht mehr vor.

Fennek

01.11.2018, 08:52
Hallo,

zuerst 2 Ratschläge:

- versuche den Code zu verstehen
- teste in an wenigen Beispielen

Code:
Sub F_en()

For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
    Range("U4") = Cells(i, 2)
    
    Set Cht = ActiveSheet.ChartObjects(1)

     Cht.Chart.Export "c:\temp\" & Cells(i, 1) & ".png", "PNG"

    Set Cht = Nothing
Next i
End Sub

Dies ist ein gutes Beispiel für den Unterschied zwischen einem kostenlosen Forum und einem Dienstleister.

mfg

ranieder

02.11.2018, 10:10
Ich bin sprachlos!!!!

Vielen vielen vielen DANK!!!!!!!!!  Es klappt wie am Schnürchen, einfach nur toll!!!!!!

Liebe Grüße

Rainer

LCohen

02.11.2018, 10:13
(01.11.2018, 08:52)Fennek schrieb: [ -> ]Dies ist ein gutes Beispiel für den Unterschied zwischen einem kostenlosen Forum und einem Dienstleister.
Sehr schöner Gedanke, es mal so offiziell auszudrücken! Danke!
Clever-Excel-Forum > Office-Anwendungen > Excel > Automatisierte Diagrammerstellung und -speicherung