Registriert seit: 31.10.2018
Version(en): 2016
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
Registriert seit: 11.04.2014
Version(en): Office 365
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
Registriert seit: 06.12.2015
Version(en): 2016
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
Registriert seit: 16.04.2014
Version(en): xl2016/365
Hola,
verlinkst du bitte deine Fragen in allen Foren gegenseitig? (bislang hab ich 3 gezählt).
Danke.
Gruß,
steve1da
Registriert seit: 31.10.2018
Version(en): 2016
31.10.2018, 16:34
(Dieser Beitrag wurde zuletzt bearbeitet: 31.10.2018, 16:35 von ranieder .)
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
Beispiel_Datei_Diagramm.xlsx (Größe: 17,52 KB / Downloads: 5)
Registriert seit: 31.10.2018
Version(en): 2016
Ja, sorry, tut mir leid. Kommt nicht mehr vor.
Registriert seit: 06.12.2015
Version(en): 2016
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: 1 Nutzer sagt Danke an Fennek für diesen Beitrag 28
• LCohen
Registriert seit: 31.10.2018
Version(en): 2016
Ich bin sprachlos!!!!
Vielen vielen vielen DANK!!!!!!!!! Es klappt wie am Schnürchen, einfach nur toll!!!!!!
Liebe Grüße
Rainer
Registriert seit: 21.12.2017
Version(en): MS 365 Family (6 User x 5 Geräte für jeden) Insider-Beta
(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!