Diagramm je Zeile automatisch erstellen

Forumthread: Diagramm je Zeile automatisch erstellen

12.07.2013 13:47:43

Thorsten

Ich benötige für den Umsatzverlauf je Objekt, das heißt je Zeile ein Diagramm. Die Exceltabelle ist wie folgt aufgebaut (siehe auch Anhang):
Spalte A / Spalte B/ Spalte C / Spalte D / Spalte E / Spalte F / Spalte etc.
Zeile 3 / Objekt A / Name / Umsatz Jan / Gewinn Jan / Gewinn in % Jan / Umsatz Feb / etc. bis Dezember
Zeile 4 / Objekt B / Name / Umsatz Jan / Gewinn Jan / Gewinn in % Jan / Umsatz Feb / etc. bis Dezember
Zeile 5 / etc.
Das Diagramm enthält somit den Umsatzverlauf, den Gewinn und die Prozente als Verlauf, sowie die Prognosezahlen (Umsatz und Prozente Gewinn - als Linienwerte händisch eingetragen). Der Verlauf Umsatz setzt sich aus den Spalten C+F+I+L etc. zusammen.
Ein Diagramm habe ich bereits erstellt. Dies allerdings für alle 200 Objekte von Hand zu erstellen könnte doch evtl. auch automatisch für jede weitere Zeile gehen. Hab aber noch nicht mit Makros oder VBA gearbeitet. Ich hoffe mir kann jemand die Arbeit erleichtern.
Anbei die Datei:
https://www.herber.de/bbs/user/86329.xls
Danke für eure Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Diagramm je Zeile automatisch erstellen

15.07.2013 07:58:50

fcs

Hallo Thorsten,
grundsätzlich kann man so etwas programmieren, ist aber schon etwas mühsehlig.
Ist es aber sinnvoll hier viele Minidiagramme zu erstellen,die man nur in der Druckvorschau oder bei Zoomvergrößerung lesen kann?
Ich hab hier mal eine Lösung vorbereitet, bei der nur ein Diagramm verwendet wird.
Die anzuzeigende Kostenstelle wird per Auswahlbox oder auch Schieberegler ausgewählt.
Die Daten zur gewählten KST werden per Formeln in eine diagrammgerechte Form gebracht.
Die Prgnosewerte für Umsatz und DB2-% sollten dann auch in der Tabelle verwaltet werden.
Gruß
Franz

Die Datei https://www.herber.de/bbs/user/86360.xls wurde aus Datenschutzgründen gelöscht

AW: Diagramm je Zeile automatisch erstellen

16.07.2013 11:12:43

Thorsten

Hallo Franz,
das sieht richtig gut aus - vielen Dank für Deine Mühe.
Da es sich um eine Prognose handelt, die Monat für Monat durch aktuelle IST-Zahlen ersetzt wird, ist die Prognose DB2 und Umsatz in "Diagrammdaten Spalte E und F nicht über 12 Monate fix, sondern kann auch Monat für Monat schwanken - gibt es da eine Möglichkeit von 12 Einzelwerten (daher meine eher schlecht anzupassende Variante mit der Linie in der Grafik oder muss ich die Quelldatei um die 2 Werte erweitern)?
Gibt es eine Möglichkeit alle Grafiken auf einmal zu drucken (eine DINA4-Seite je Diagramm)?
Wie ich gesehen habe, passt sich die Primär-X-Achse () zum Teil den Werten an, die Sekundär-X-Achse (%) leider nicht - ist das noch einstellbar bzw. zu automatisieren (max und min-Werte dynamisch)?
Vielen Dank nochmals

AW: Diagramm je Zeile automatisch erstellen

16.07.2013 12:27:12

fcs

Hallo Thorsten,
wenn die Prognose-Werte sich innerhalb des Jahres ändern können, dann musst du hierfür jeweils 12 entsprechende Eingabespalten haben - entweder in deinem Quellblatt oder auf einem separaten Blatt.
Die Formeln für die Diagrammdaten im Blatt "Diagrammdaten" müssen dann entsprechend angepasst werden.
%-Achse im Diagramm automatisch anpassen.
Hierzu musst du die sekundäre Werte-Achse entsprechend formatieren und die Optionen auf "automatisch" setzen statt "fest".
Alle Diagramme drucken erforderdert ein Makro, das die Index-Nummer in Zelle D2 von 1 bis zum letzen Diagramm hochzählt und nach Neuberechnung jeweils das Diagramm druckt. Zum Drucken wird dabei das separate Diagrammblatt benutzt, da hier die Formatierungen für Papierformat, Kopf- und Fusszeilen einfacher einzurichten sind.
Gruß
Franz

'Code in einem allgemeinen VBA-Modul der Datei
Sub Drucken_Diagramme()
Dim Zeile As Long, intCount As Integer
Dim wks As Worksheet
Dim objChart As Chart
If MsgBox("Alle Diagramme auf Drucker """ & Application.ActivePrinter & """ drucken?", _
vbQuestion + vbOKCancel, "Diagamme Drucken") = vbCancel Then Exit Sub
Set wks = Worksheets("Diagrammdaten")
Set objChart = Charts("Diagramm-Objekt")
objChart.Activate
With wks
For Zeile = 4 To .Cells(.Rows.Count, 4).End(xlUp).Row
If .Cells(Zeile, 4)  0 Then
intCount = intCount + 1
Application.StatusBar = "Diagramm Nr. " & intCount & " wird gedruckt."
.Range("D2").Value = .Cells(Zeile, 1).Value
.Calculate
objChart.PrintOut preview:=False
End If
Next
End With
Application.StatusBar = False
End Sub

Infobox / Tutorial

Diagramm je Zeile automatisch erstellen in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Datenstruktur überprüfen: Stelle sicher, dass deine Excel-Tabelle so aufgebaut ist, dass jede Zeile ein Objekt repräsentiert und die entsprechenden Verkaufsdaten enthält.
Diagramm erstellen:
- Markiere die Daten, die du für das Diagramm verwenden möchtest (z.B. Umsatz- und Gewinnspalten).
- Gehe zu Einfügen > Diagramme und wähle den Diagrammtyp aus, der am besten zu deinen Daten passt (z.B. Liniendiagramm, Säulendiagramm).
Diagramm formatieren:
- Klicke mit der rechten Maustaste auf das Diagramm und wähle Diagramm formatieren, um Achsen und Legenden anzupassen.
- Achte darauf, die Primär- und Sekundärachse entsprechend deiner Daten einzustellen.

Automatisierung mit VBA:

Öffne den VBA-Editor mit ALT + F11.
Füge den folgenden Code in ein neues Modul ein, um alle Diagramme automatisch zu drucken:

Sub Drucken_Diagramme()
   Dim Zeile As Long, intCount As Integer
   Dim wks As Worksheet
   Dim objChart As Chart
   If MsgBox("Alle Diagramme auf Drucker """ & Application.ActivePrinter & """ drucken?", vbQuestion + vbOKCancel, "Diagramme Drucken") = vbCancel Then Exit Sub
   Set wks = Worksheets("Diagrammdaten")
   Set objChart = Charts("Diagramm-Objekt")
   objChart.Activate
   With wks
       For Zeile = 4 To .Cells(.Rows.Count, 4).End(xlUp).Row
           If .Cells(Zeile, 4) > 0 Then
               intCount = intCount + 1
               Application.StatusBar = "Diagramm Nr. " & intCount & " wird gedruckt."
               .Range("D2").Value = .Cells(Zeile, 1).Value
               .Calculate
               objChart.PrintOut preview:=False
           End If
       Next
   End With
   Application.StatusBar = False
End Sub

Testen: Führe das Makro aus, um zu prüfen, ob alle Diagramme korrekt gedruckt werden.

Häufige Fehler und Lösungen

Diagramm wird nicht angezeigt: Überprüfe, ob die Daten korrekt markiert sind und das Diagramm auf dem richtigen Blatt ist.
Achsenwerte passen nicht: Stelle sicher, dass die Achsen auf automatisch gesetzt sind. Dies kannst du unter Diagramm formatieren bei den Achsenoptionen einstellen.
VBA funktioniert nicht: Achte darauf, dass Makros in deiner Excel-Datei aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter und passe die Einstellungen an.

Alternative Methoden

Diagramm mit Excel erstellen ohne VBA: Du kannst auch Excel-Formeln und -Funktionen nutzen, um Daten für ein einzelnes Diagramm zu aggregieren und anzuzeigen.
Excel Schieberegler Diagramm: Nutze einen Schieberegler, um zwischen verschiedenen Datensätzen zu navigieren. Dies ermöglicht eine dynamische Anzeige der Diagramme ohne die Notwendigkeit, mehrere Diagramme zu erstellen.

Praktische Beispiele

Um ein Liniendiagramm aus deiner Tabelle zu erstellen, markiere die Umsatz- und Gewinnspalten für mehrere Monate. Gehe zu Einfügen > Liniendiagramm.
Für ein Tortendiagramm kannst du die Verkaufsanteile der Objekte visualisieren. Markiere die entsprechenden Daten und wähle Tortendiagramm aus den Diagrammoptionen.

Tipps für Profis

Nutze die Funktion Diagramme in Excel erstellen, um verschiedene Diagrammtypen zu vergleichen und so die beste Visualisierung für deine Daten zu finden.
Halte deine Diagramme aktuell, indem du die Datenverbindungen regelmäßig aktualisierst, um sicherzustellen, dass die Diagramme die neuesten Informationen widerspiegeln.
Experimentiere mit Excel Grafiken erstellen, um individuelle Designs und Layouts zu entwickeln, die auf deine spezifischen Bedürfnisse zugeschnitten sind.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Diagramme gleichzeitig erstellen?
Verwende VBA, um die Diagrammerstellung für jede Zeile automatisiert durchzuführen.

2. Kann ich Diagramme aus einer Excel-Tabelle erstellen?
Ja, du kannst ganz einfach Diagramme aus Daten in deiner Excel-Tabelle erstellen, indem du die Daten markierst und den Diagrammtyp wählst.

3. Gibt es eine Möglichkeit, die Diagramme automatisch anzupassen?
Ja, du kannst in Excel die Option für automatische Anpassung des Datenbereichs aktivieren, um sicherzustellen, dass neue Daten automatisch im Diagramm angezeigt werden.

4. Wie verwalte ich Prognosedaten in Diagrammen?
Erstelle zusätzlich zu den echten Daten Spalten für Prognosen und führe die Diagramm-Updates regelmäßig durch, um die aktuellen und prognostizierten Werte darzustellen.

Beliebteste Forumthreads (12 Monate)

Diagramm je Zeile automatisch erstellen

Forumthread: Diagramm je Zeile automatisch erstellen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Diagramm je Zeile automatisch erstellen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Diagramm je Zeile automatisch erstellen

Forumthread: Diagramm je Zeile automatisch erstellen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Diagramm je Zeile automatisch erstellen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread