Füllen von Flächen in Diagrammen

25.11.2024 17:29:10

Wolfgang

Hallo,

ich würde gerne wissen, ob es in VBA für EXCEL so etwas wie einen FILL-Befehl gibt, der mittels Koordinatenangabe (x,y) eine bestimmte Fläche zwischen zwei Kurven mit einer bestimmten Farbe ausfüllen kann.
In alten allgemeinen Visual Basic-Versionen war der vorhanden, aber ich glaube, dass der in VBA für Excel nicht existiert.
Jedenfalls mittels Flächendiagramm lässt sich mein Problem nicht lösen, da die Füll-Anforderungen zu komplex sind.

Vielen Dank für eine diesbezügliche Auskunft!
Wolfgang

AW: Füllen von Flächen in Diagrammen

25.11.2024 17:48:08

{Boris}

Hil,

gib mal oben in der KI-Unterstützung die Frage ein "Wie kann ich einen bestimmten Bereich in einem Flächendiagramm füllen?"

VG, Boris

AW: Füllen von Flächen in Diagrammen

26.11.2024 10:47:36

Beverly

Hi Wolfgang,

ich nehme an, es handelt sich um ein punkt(XY)-Diagramm? Füge eine zusätzliche Datenreihe ein, welche die XY-Werte des vollen Polygonzuges aus beiden Datenreihen umfasst - dann kannst du die damit umgrenzte Fläche mithilfe folgenden Makros "färben": der Code erstellt ein gefärbtes Shape aus allen Datenpunkten dieser Hilfsdatenreihe.

Sub FleachenEinfuegen2()

    Dim lngPunkte As Long

    Dim chrDia As Chart

    Dim serReihe As Series

    Dim shaShape As Shape

    Set chrDia = ActiveSheet.ChartObjects(1).Chart

    With chrDia

        If .Shapes.Count > 0 Then

            For Each shaShape In .Shapes

                If shaShape.Name = "MeineFlaeche" Then shaShape.Delete

            Next shaShape

        End If

        Set serReihe = chrDia.SeriesCollection(1)

        With .Shapes.BuildFreeform(msoEditingAuto, serReihe.Points(1).Left, serReihe.Points(1).Top)

            For lngPunkte = 2 To serReihe.Points.Count

'                ' diese Zeile erforderlich falls Datenbereich größer gewählt wurde als tatsächlich Daten vorhanden sind

                If IsEmpty(serReihe.XValues(lngPunkte)) Then Exit For

                .AddNodes msoSegmentLine, msoEditingAuto, serReihe.Points(lngPunkte).Left, serReihe.Points(lngPunkte).Top

            Next lngPunkte

            .ConvertToShape

        End With

        With .Shapes(.Shapes.Count)

            .Name = "MeineFlaeche"

            .Fill.Transparency = 0.45

            .Fill.ForeColor.RGB = 12379352

            .Line.Visible = msoFalse

        End With

    End With

    Set chrDia = Nothing

End Sub

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

AW: Füllen von Flächen in Diagrammen

26.11.2024 16:05:08

Wolfgang

Hallo Karin,

nein, es handelt sich um ein Liniendiagramm, in dem sich zwei Kurven (möglicherweise) mehrmals überschneiden.
Leider kann man hier keine Grafik hochladen, sonst könnte ich es zeigen.
lg
Wolfgang

AW: Füllen von Flächen in Diagrammen

26.11.2024 16:15:08

Beverly

Hi Wolfgang,

du könntest aber (d)eine (anonymisierte) Mappe hier hochladen, dann kann ich schauen was sich machen lässt. Eventuell geht sogar etwas ganz ohne VBA,

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

Klar kannst Du hier ein jpg hochladen...oT

26.11.2024 16:19:47

{Boris}

VG, Boris

AW: Klar kannst Du hier ein jpg hochladen...oT

27.11.2024 20:21:35

Wolfgang

Hallo,

also hier ist ein Beispiel eines Diagramms, wie es fertig aussehen soll.
Userbild

lg
Wolfgang

Was hat denn...

27.11.2024 21:23:58

{Boris}

Hi,

...Deine Nachfrage bei der angeregten KI-Unterstützung ergeben?

VG, Boris

AW: Was hat denn...

28.11.2024 08:42:30

Wolfgang

Hallo Boris,
KI hat mich auch nicht weitergebracht ...

AW: Was hat denn...

28.11.2024 12:49:29

{Boris}

Hi,

bei mir sprudelt die KI nahezu. Habe es aber nicht weiter getestet. Wenn das so nicht geht, geht es wahrscheinlich nicht.

VG, Boris

Wie kann ich einen bestimmten Bereich in einem Liniendiagramm füllen?
ChatGPT:

Das Füllen eines bestimmten Bereichs in einem Liniendiagramm in Excel ist eine nützliche Möglichkeit, um Daten hervorzuheben, z. B. Zielbereiche, Toleranzgrenzen oder relevante Abschnitte. Hier ist eine Schritt-für-Schritt-Anleitung, wie Du dies umsetzen kannst:

Einsatzweck
Hervorheben eines Datenbereichs, z. B. Schwellenwerte, Zielwerte oder Toleranzbereiche.
Visualisierung von Differenzen zwischen zwei Linien.
Klarere Kommunikation der Bedeutung bestimmter Wertebereiche.
Vorgehen in Excel
1. Daten vorbereiten
Du benötigst eine Tabelle mit:

Den X-Werten (z. B. Datum oder Kategorien).
Den Y-Werten für die obere Grenze und die untere Grenze des Bereichs.
Optional die tatsächlichen Werte, die Du in einer Linie darstellen möchtest.
Beispiel:
X-Werte Obere Grenze Untere Grenze Tatsächlicher Wert
1 15 10 12
2 18 11 14
3 20 13 16
2. Liniendiagramm erstellen
Diagramm einfügen:
Markiere die Spalten „X-Werte“, „Obere Grenze“ und „Untere Grenze“.
Gehe zu Einfügen → Diagramm → Liniendiagramm.
Füge bei Bedarf eine Linie für die tatsächlichen Werte hinzu.
3. Bereich füllen
Um den Bereich zwischen der oberen und unteren Grenze zu füllen, ist die Füllung von Flächen erforderlich:

Datenreihe für den Füllbereich erstellen:

Erstelle eine neue Spalte, die die Differenz zwischen der oberen und unteren Grenze enthält:
Formel: =Obere Grenze - Untere Grenze.
Benenne diese Spalte z. B. „Füllbereich“.
X-Werte Obere Grenze Untere Grenze Tatsächlicher Wert Füllbereich
1 15 10 12 5
2 18 11 14 7
3 20 13 16 7
Flächendiagramm hinzufügen:

Füge ein weiteres Diagramm ein:
Markiere „X-Werte“ und „Füllbereich“.
Gehe zu Einfügen → Diagramm → Flächendiagramm.
Stelle sicher, dass die Flächenfüllung sich unter die obere Linie legt.
Diagramm kombinieren:

Kombiniere das Linien- und Flächendiagramm:
Markiere das Diagramm → Diagrammtools → Diagrammtyp ändern → Kombiniertes Diagramm.
Wähle für „Obere Grenze“ und „Untere Grenze“ ein Liniendiagramm, für den „Füllbereich“ ein Flächendiagramm.
4. Optische Anpassungen
Farben anpassen: Wähle eine transparente Farbe für den Füllbereich.
Legende bearbeiten: Entferne überflüssige Einträge, die nicht relevant sind.
Achsen beschriften: Beschrifte die X- und Y-Achsen zur besseren Lesbarkeit.
Tipps
Nutze bei komplexen Daten die Sekundärachse, falls die Werte stark unterschiedliche Größenordnungen haben.
Verwende bei Bedarf die Funktion „Benutzerdefinierte Linienformeln“, um differenzierte Bereiche zu markieren.
Speichere das Diagramm als Vorlage, wenn Du es häufiger brauchst.
Mit dieser Methode kannst Du flexibel und optisch ansprechend einen Bereich im Liniendiagramm hervorheben. Bei weiteren Fragen oder spezifischen Anpassungen schau doch im Herbers Excel-Forum vorbei! 😊

Das stimmt zwar vom Prinzip her...

28.11.2024 14:01:08

Beverly

@All,

...und ist schon seit ewigen Zeiten die Lösung, ist aber im gegebenen Fall m.E. nicht anwendbar. Hier handelt es sich nämlich um keinen zusammenhängenden Bereich, weil sich die Linien schneiden. Erschwerend kommt hinzu, dass die Schnittpunkte versetzt zu den Kathegoriegrenzen liegen. Dadurch füllen die Flächen nicht den jeweiligen Teil-Bereich komplett aus, sondern es bleiben kleine Teilfächen übrig, die dann nicht die korrekte Farbe haben.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/

Füllen von Flächen in Diagrammen

Forumthread: Füllen von Flächen in Diagrammen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Füllen von Flächen in Diagrammen

Forumthread: Füllen von Flächen in Diagrammen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread