Linien in Diagramm glätten

Forumthread: Linien in Diagramm glätten

27.10.2021 17:31:01

Robert

Hallo!
Habe ein Liniendiagramm, welches Daten aus einem Pivot darstellt, mit Datenschnitten versehen. Im Diagramm werden pro Kalenderwoche Produktabschlüsse in Stück dargestellt und zwar in Form einer Linie pro Jahr (für die letzten 5 Jahre). Um die Lesbarkeit zu erhöhen (und weil bloß Trends abgebildet werden sollen) habe ich festgelegt, dass die einzelnen Linien geglättet dargestellt werden (Datenreihen formatieren / Füllung und Linie / Häkchen bei Linie glätten).
Wenn man nun über die Datenschnitte Filter setzt, welche teile der Daten oder ganze Jahre aus dem Diagramm verschwinden lassen, dann "verlieren" manche Linien aus für mich nicht nachvollziehbaren Gründen die Eigenschaft "Linie glätten". Würde diese Eigenschaft gerne für alle Linien via VBA wieder auf Knopfdruck setzen können. Mit dem nachstehenden Code funktioniert das einwandfrei:
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.FullSeriesCollection(1).Smooth = True
ActiveChart.FullSeriesCollection(2).Smooth = True
ActiveChart.FullSeriesCollection(3).Smooth = True
ActiveChart.FullSeriesCollection(4).Smooth = True
ActiveChart.FullSeriesCollection(5).Smooth = True
Allerdings erhalte ich eine Fehlermeldung wenn zum Zeitpunkt der Ausführung nicht alle 5 Linien im Diagramm angezeigt werden. Würde den Code nun gerne so anpassen dass er nur jene Linien glättet, welche gerade im Diagramm angezeigt werden. Habt ihr eine Idee wie ich das umsetzen kann? Meine Versuche sind bisher erfolglos verlaufen.
Danke & eure Unterstützung & LG

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Bitte Beispielmappe hochladen - o.w.T.

27.10.2021 17:38:39

Beverly

Bitte Beispielmappe hochladen - o.w.T.

27.10.2021 17:38:39

Beverly

Schritt-für-Schritt-Anleitung

Liniendiagramm erstellen: Erstelle dein Liniendiagramm in Excel mit den gewünschten Daten. Achte darauf, dass die Daten aus einer Pivot-Tabelle stammen, wenn du Datenschnitte verwenden möchtest.
Linie glätten aktivieren:
- Klicke mit der rechten Maustaste auf eine der Linien im Diagramm.
- Wähle "Datenreihe formatieren".
- Unter "Füllung und Linie" aktiviere die Option "Linie glätten".

VBA zum Glätten der Linien verwenden:

Öffne den Visual Basic for Applications (VBA) Editor mit ALT + F11.
Füge ein neues Modul hinzu und kopiere den folgenden Code:

Sub LinienGlaetten()
   Dim series As Series
   For Each series In ActiveSheet.ChartObjects("Diagramm 1").Chart.SeriesCollection
       If series.Values.Count > 0 Then
           series.Smooth = True
       End If
   Next series
End Sub

Code ausführen: Schließe den VBA-Editor und führe das Makro aus, um alle Linien im Diagramm zu glätten.

Häufige Fehler und Lösungen

Fehlermeldung beim Ausführen des Codes: Wenn du eine Fehlermeldung erhältst, weil nicht alle Linien angezeigt werden, stelle sicher, dass der Code nur auf die sichtbaren Linien angewendet wird. Der oben gezeigte VBA-Code berücksichtigt dies.
Linie glätten funktioniert nicht: Überprüfe, ob die Option "Linie glätten" tatsächlich aktiviert ist und ob die Daten korrekt formatiert sind. Manchmal kann ein Fehler in den Quelldaten dazu führen, dass die Glättung nicht funktioniert.

Alternative Methoden

Daten glätten: Anstatt die Linien im Diagramm zu glätten, kannst du auch die Daten selbst glätten. Verwende dazu eine gleitende Durchschnittsfunktion oder die GLÄTTEN-Funktion in Excel, um Ausreißer in den Daten zu reduzieren.
Flächendiagramm nutzen: Wenn du ein flächendiagramm verwendest, können die Daten ebenfalls glatter dargestellt werden. Klicke einfach auf "Einfügen" und wähle ein Flächendiagramm aus den Diagrammoptionen.

Praktische Beispiele

Beispiel für das Glätten von Werten: Angenommen, du hast wöchentliche Verkaufszahlen in einer Tabelle. Um die Werte zu glätten, kannst du die folgende Formel verwenden:
```
=GLÄTTEN(A2:A10)
```
Diagramm mit glatten Linien: Erstelle ein Liniendiagramm, das die Verkaufszahlen über mehrere Jahre zeigt, und wende die oben beschriebenen Schritte an, um die Linien zu glätten.

Tipps für Profis

Automatisierung: Wenn du regelmäßig Diagramme mit geglätteten Linien erstellen musst, kannst du den VBA-Code so anpassen, dass er automatisch beim Öffnen der Datei ausgeführt wird.
Grafische Anpassungen: Vergiss nicht, die Linienstärke und die Farbe der Linien anzupassen, um die Lesbarkeit deines Diagramms zu erhöhen. Du kannst die Linienstärke für alle Linien gleichzeitig ändern, um ein einheitliches Erscheinungsbild zu erzielen.

FAQ: Häufige Fragen

1. Warum verlieren meine Linien die Glättung, wenn ich einen Filter anwende?
Das kann passieren, wenn die Datenreihe aufgrund des Filters nicht mehr sichtbar ist. Verwende den VBA-Code, um die Glättung nur auf die sichtbaren Linien anzuwenden.

2. Wie kann ich die Linienstärke für alle Linien in meinem Diagramm ändern?
Klicke mit der rechten Maustaste auf eine Linie, wähle "Datenreihe formatieren" und passe die Linienstärke im entsprechenden Menü an. Du kannst auch den VBA-Code verwenden, um dies automatisch für alle Linien zu tun.

Beliebteste Forumthreads (12 Monate)

Linien in Diagramm glätten

Forumthread: Linien in Diagramm glätten

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial