Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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
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!

300 Forumthreads zu ähnlichen 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
Anzeige
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 14:57:58
Thread-ID: 1006808
9 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
Anzeige
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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
12
8
1
6
6
5
6
3
1
2
12
2
5
3
5
2
2
1
3
3
3
6
3
3