Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Diagrammdaten aus Berechnung

Forumthread: Diagrammdaten aus Berechnung

Diagrammdaten aus Berechnung
15.02.2019 10:11:37
Luisa
Hallo,
Ist es möglich Daten, die aus einer Berechnung hervorgehen in einem Diagramm darzustellen, ohne, dass sie irgendwo aufgeschrieben sind? Es geht konkret einfach um die Summe von ein paar Zeilen, die dargestellt werden sollen und nicht die Werte der einzelnen Zeilen an sich.
Zur Not müsste ich irgendwie "tricksen" mit weißer Schrift oder so, aber dass will ich eigentlich vermeiden. Und die Daten möchte ich nicht unbedingt hinschreiben, da ich sie nur im Diagramm brauche und auch nicht weiß, wo ich sie sinnvoll platzieren soll...
Danke euch schon mal!
Luisa
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagrammdaten aus Berechnung
15.02.2019 11:08:33
Nepumuk
Hallo Luisa,
ja das geht. Ein Beispiel:
Public Sub Luisa()
    Dim objChartObject As ChartObject
    Dim objSeries As Series
    Dim lngSum As Long
    lngSum = 123
    Set objChartObject = Tabelle1.ChartObjects.Add(Left:=100, Top:=100, Width:=100, Height:=100)
    With objChartObject.Chart
        .ChartType = xlColumnClustered
        Set objSeries = .SeriesCollection.NewSeries
        With objSeries
            .Values = lngSum
            .XValues = 1
        End With
        Set objSeries = Nothing
    End With
    Set objChartObject = Nothing
End Sub

Es wird der Wert lngSum als Säule dargestellt.
Gruß
Nepumuk
Anzeige
AW: Diagrammdaten aus Berechnung
15.02.2019 11:17:31
Luisa
Vielen Dank Nepumuk! Das funktioniert soweit!
Wie ändere ich den Quellcode ab, wenn ich mehrere Säulen und mehrer Datenreihen habe (gestapelte Säulen)?
Danke Dir!
LG Luisa
AW: Diagrammdaten aus Berechnung
15.02.2019 11:19:49
Nepumuk
Hallo Luisa,
wie sehen denn deine Daten aus? Zeig mal die Prozedur.
Gruß
Nepumuk
AW: Diagrammdaten aus Berechnung
15.02.2019 11:33:40
Luisa
Hallo,
Ich habe mal eine Beispieldatei mit ein paar Kommentaren erstellt:
https://www.herber.de/bbs/user/127675.xlsx
Hoffe, Du verstehst, was ich meine.
Lieben Dank
Luisa
Anzeige
AW: Diagrammdaten aus Berechnung
15.02.2019 11:49:47
Nepumuk
Hallo Luisa,
ja ok. Aber in welcher Form stehen die Diagrammdaten in deinem Makro zur Verfügung? Einzelne Variablen Arrays … ?
Gruß
Nepumuk
AW: Diagrammdaten aus Berechnung
15.02.2019 11:56:49
Luisa
Soweit bin ich noch nicht, hatte aber gedacht, dass ich sie in zwei Arrays speichern muss.
Array 1: Beschriftungen
Array 2: Grüne Daten
rote Daten ergeben sich aus 100%-Grüne Daten
LG Luisa
Anzeige
AW: Diagrammdaten aus Berechnung
15.02.2019 12:53:52
Nepumuk
Hallo Luisa,
dann kann ich dir natürlich nur eine Vorlage liefern:
Public Sub Luisa()
    Dim objChartObject As ChartObject
    Dim objSeries As Series
    Dim vntValues1 As Variant, vntValues2 As Variant, vntXvalues1 As Variant
    Dim ialngIndex As Long
    vntValues1 = Array(0.32, 0.18, Empty, 0.43, 0.5, 0.39)
    Redim vntValues2(LBound(vntValues1) To UBound(vntValues1))
    For ialngIndex = LBound(vntValues1) To UBound(vntValues1)
        If Not IsEmpty(vntValues1(ialngIndex)) Then vntValues2(ialngIndex) = 1 - vntValues1(ialngIndex)
    Next
    vntXvalues1 = Array("2017", "2018", Empty, "06 + 07", "08 + 09", "10 + 11")
    Set objChartObject = Tabelle2.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
    With objChartObject.Chart
        .ChartType = xlColumnStacked100
        Set objSeries = .SeriesCollection.NewSeries
        With objSeries
            .Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
            .Name = "out of target"
            .Values = vntValues1
            .XValues = vntXvalues1
        End With
        Set objSeries = .SeriesCollection.NewSeries
        With objSeries
            .Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
            .Name = "in target"
            .Values = vntValues2
        End With
        Set objSeries = Nothing
        .HasTitle = True
        .ChartTitle.Text = "Production Start on Time DOMBE/F"
        .HasLegend = True
        .Legend.Position = xlLegendPositionBottom
    End With
    Set objChartObject = Nothing
End Sub

Gruß
Nepumuk
Anzeige
AW: Diagrammdaten aus Berechnung
15.02.2019 13:35:43
Luisa
Danke! Ich denke das hilft mir schon mal weiter und ich werde mal ein bisschen rumprobieren!
;

Forumthreads zu verwandten Themen

Geometriereihe aus Geadaten erstellen (Winkel)
Mindjogger

Servus,
eine Problem aus der Praxis der Soolartechnik:
welchen Abstand muß ich haben, damit eine Verschattung nicht stattfindet?
Ich habe Module der Größe 80x160cm.
In welchem Abstand muß ich diese Setzen, wenn
- der Aufstellwinkel beliebig (zwischen 15 ind 40 Grad) sein k...
13.08.2008 21:55:00
Thread-ID: 1001668
6 Beiträge
Kontextmenü für Diagramm deaktivieren
Armin

Hallo,
ich bin auf der Suche nach einer Möglichkeit, den Rechtsklick für ein Diagramm zu deaktivieren, so dass das Kontextmenü nicht mehr angezeigt wird.
Gibt es dafür unter VBA eine Lösung?
Vielen Dank
Armin
29.08.2008 19:32:00
Thread-ID: 1005956
13 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
Liste aus Daten mittels Drop-Down Menüs erstellen
Marco

Hallo liebes Forum,
ich habe mal wieder ein Problem und hoffe auf Eure hilfe. Wahrscheinlich ist das für einen VBA Profi ein lacher, für mich allerdings ein Krampf.
Ich will automatisch einen Packplan erstellen. Hierfür existieren vordefinierte Vorlagen, hinsichtlich des jeweiligen Item...
11.10.2008 19:51:00
Thread-ID: 1015785
7 Beiträge
3D Diagramm erstellen aus Matrix
Kay

Hallo,
Ich habe in Excel eine Matrix, die folgendermaßen aufgeteilt ist
A B C D
15 12% 10% 15% 20%
30 10% 13% 17% 19%
45 8% 12% 15% 17%
Wie bekomme ich es nun hin, dass mir auf der Größenachse alle %-Werte, auf der Rubrikenachse die Zeile...
29.10.2008 21:38:38
Thread-ID: 1020422
7 Beiträge
Anzeige
Wiedergabe von Werten aus einer Spalte
Werten

Hallo zusammen,
ich habe in einem Tabellenblatt in einer Spalte ca. 16000 Werte stehen (Form: Buchstaben+Zahlenkombinationen (Auftragsnummern)) die beliebig häufig vorkommen können. Es sind aber nur ca. 30 verschiedene Werte. Nun möchte ich in einer automatisierten Ausgabe in einer neuen Sp...
16.01.2009 10:27:00
Thread-ID: 1040456
6 Beiträge
Von Excel aus eine Access Datenbank erstellen!
Adi

Hallo,
Eine Export.mdb soll von Excel aus erstellt und mit Daten gefüllt
werden.
Export.mdb wird vom Makro erstellt, aber die Daten werden
nicht übernommen. Es kommt eine Fehler Meldung.
Ich sende direkt ein Testprogramm mit, vielleicht
kann mir jemand weiter helfen.
10.02.2009 22:28:27
Thread-ID: 1049371
7 Beiträge
Anzeige
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Aus Mastertabelle Berechnungstabelle erstellen
juergen

Hallo Ich bin mal wieder am kämpfen.
Ich habe eine Mastertabelle wo Ich meine eingaben machen kann.
Nun nach Fertigstellung der Tabelle sollen nur die benutzten Zeilen in eine neue Tabelle eingefügt werden ohne leere Zeilen.
Hab da zwar was gefunden aber das klappt nicht. Wobei in S...
22.02.2009 17:38:41
Thread-ID: 1052888
2 Beiträge
Diagramm-Datenquelle ausgeblendet
Alex

Hallo an alle,
ich habe eine Frage:
auf meinem Tabellenblatt habe ich einige Diagramme erstellt, die ich per Makro ein und ausblenden kann.
Die Datenquelle befindet sich ebenfalls auf diesem Sheet, nur viel weiter rechts.
Problem: Ich möchte die Daten rechts gern ausgeblendet ha...
01.03.2009 23:43:48
Thread-ID: 1055391
3 Beiträge
Liniendiagramm aus meheren Log-Dateien erstellen
michikimmig

Hallo zusammen,
ich habe 5 Log-Dateien, die in mehreren Reiten meiner Excel-Tabelle stehen.
Jeweils in Spalte A steht der Zeitstempel, in Spalte B die Antwortzeit.
Ich kann pro Reiter ein Liniendiagramm erstellen.
Ziel ist aber, alle 5 Linien in ein Diagramm zu bekommen.
Wie...
17.04.2009 10:56:05
Thread-ID: 1069265
13 Beiträge
Anzeige
VBA - Rahmen für Textfeld im Diagram erzeugen
Bellof

Hallo Forum,
ich erzeuge mit einem umfangreichen Makro ein Diagram. In diesem Diagram erzeuge ich einige Textfelder - z.B. so:
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 370, 150, 40, 20).TextFrame.Characters.Text = "today"
so Jetzt möchte ich um dieses Textfeld forma...
21.04.2009 14:48:39
Thread-ID: 1070087
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige