Thema Datum  Von Nutzer Rating
Antwort
Rot columncharts
27.07.2023 10:23:15 Susanne Schulz
NotSolved
27.07.2023 11:31:26 Mase
NotSolved
27.07.2023 11:42:38 Gast34491
NotSolved
27.07.2023 12:21:28 Mase
NotSolved

Ansicht des Beitrags:
Von:
Susanne Schulz
Datum:
27.07.2023 10:23:15
Views:
264
Rating: Antwort:
  Ja
Thema:
columncharts

Ich versuche, in einem Säulen-Diagramm columnClustered und columnStacked zu kombinieren. Das scheint nicht zu gehen. 

Leider schaffe ich es nicht, das Duagramm einzufügen.

Sub macro3()
    Dim col_chart As chart
    Dim yy(3, 5) As Single
    Dim y(3) As Single
    Dim year(3) As Single
    Dim x(5) As String
    x(1) = "A"
    x(2) = "b"
    x(3) = "c"
    x(4) = "d"
    x(5) = "e"
    year(1) = 23
    year(2) = 24
    year(3) = 25
    
    yy(1, 1) = 1
    yy(2, 1) = 2
    yy(3, 1) = 3
    yy(1, 2) = 15
    yy(2, 2) = 25
    yy(3, 2) = 35
    yy(1, 3) = 10
    yy(2, 3) = 20
    yy(3, 3) = 30
    yy(1, 4) = 6
    yy(2, 4) = 7
    yy(3, 4) = 8
    yy(1, 5) = 40
    yy(2, 5) = 30
    yy(3, 5) = 20
    Set col_chart = ThisWorkbook.Worksheets("Tabelle1").Shapes.AddChart(Left:=350, Width:=500, Top:=50, Height:=200).chart
    
    
    With col_chart
        .Axes(xlValue).TickLabels.NumberFormat = "#.##0 €"
        .HasLegend = True
        For i = 1 To 5
            For j = 1 To UBound(yy, 1)
                y(j) = yy(j, i)
            Next j
            
            .SeriesCollection.NewSeries
            If i = 1 Then
                .FullSeriesCollection(i).ChartType = xlColumnStacked
            ElseIf i > 2 Then
                .FullSeriesCollection(i).ChartType = xlColumnClustered
            End If
            .FullSeriesCollection(i).values = y
            .FullSeriesCollection(i).XValues = year
            .FullSeriesCollection(i).name = x(i)
        Next i
    End With
    
End Sub

 

Wenn ich dagegen:

            If i = 1 Then
                .FullSeriesCollection(i).ChartType = xlColumnStacked
            ElseIf i > 2 Then
                .FullSeriesCollection(i).ChartType = xlLine
            End If

bekomme ich zwei gestapelte Säulne und drei Lines.

(was ich auch nicht verstehe: warum werden ACHT Datenreihen gelistet und VIER Elemente auf der x-Achse)


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot columncharts
27.07.2023 10:23:15 Susanne Schulz
NotSolved
27.07.2023 11:31:26 Mase
NotSolved
27.07.2023 11:42:38 Gast34491
NotSolved
27.07.2023 12:21:28 Mase
NotSolved