Aktuell kann es Probleme bei der Anmeldung mit dem Chrome oder Edge Browser geben. Ihr müsstet in die Einstellungen des Browsers gehen und Cache, Cookies und sofern vorhanden, gespeicherte Passwörter vom CEF löschen oder alternativ auf einen anderen Browser ausweichen. Ursache sind vermutlich kürzliche Browserupdates. x

Automatisierte Diagrammerstellung und -speicherung
#1
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
Top
#2
Hallo,

500 Diagramme mit jeweils einem Wert? Oder habe ich da was falsch verstanden?
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Top
#3
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
Top
#4
Hola,

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

Gruß,
steve1da
Top
#5
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


Angehängte Dateien
.xlsx   Beispiel_Datei_Diagramm.xlsx (Größe: 17,52 KB / Downloads: 5)
Top
#6
Ja, sorry, tut mir leid. Kommt nicht mehr vor.
Top
#7
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
[-] Folgende(r) 1 Nutzer sagt Danke an Fennek für diesen Beitrag:
  • LCohen
Top
#8
Ich bin sprachlos!!!!

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

Liebe Grüße

Rainer
Top
#9
(01.11.2018, 09: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!
WIN/MSO schicken angeblich alle 5 Sekunden Deinen Screen heim zu Papa (recall-Klausel). 
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste