Hallo

ich habe folgendes problem:

es gibt mehrere (ca 12) datenreihen mit jeweils ~35 datensätzen. er möchte all diese in einem liniendiagramm haben und alle sollen die selbe farbe haben (dazu kommen weitere 4 daten(die aktuellen von diesem jahr) die ich dann von hand einfügen würde, die dann in sonsiten farben sind). ich habe ein makro geschrieben was soweit geht allerdings tauscht excel die achsen sobald ich mehr daten in y richting als in x richtung habe. beim zurücktauschen werden die datenreihen zufällig gefärbt (die die es in y mehr gibt als x).

Sub graph_alles_blau()

    Dim i As Integer

        i = 1

    ActiveSheet.Shapes.AddChart.Select

    ActiveChart.ApplyChartTemplate ( _

        "C:\*\Standarddiagramm_fuer_makro.crtx" _

        )

    ActiveSheet.ChartObjects.Activate

    Do While i < ActiveChart.SeriesCollection.Count + 1

            ActiveChart.SeriesCollection(i).Select

                With Selection.Border

                .ColorIndex = 37

                .Weight = xlMedium

                .LineStyle = xlContinuous

                End With

            Selection.MarkerStyle = -4142

    i = i + 1

    Loop  

End Sub

das wäre das eine

das andere diagramm ist etwas anders. hierbei möchte ich ein diagramm aus dem datensatz erstellen bei dem nur die Ist-kosten betroffen sind.

Sub graph_test()

ActiveSheet.Shapes.AddChart.Select

    ActiveChart.ApplyChartTemplate ( _

        "C:\*\Standarddiagramm_fuer_makro.crtx" _

        )

ActiveChart.SeriesCollection(1).XValues = "='Tabelle1'!$D$3:$AA$3"

Dim i As Integer

i = 11

Dim k As Integer

k = 1

 
    Do While i < 50

        If Range("A" & i) = "Ist" Then

        ActiveChart.SeriesCollection.NewSeries

        ActiveChart.SeriesCollection(k).Name = "='Tabelle1'!$C$" & "i"

        ActiveChart.SeriesCollection(k).Values = "='Tabelle1'!$D$" & i & ":$AA$" & i

        End If

    i = i + 1

    k = k + 1

    Loop

 Dim j As Integer

j = 0

    Do While j < ActiveChart.SeriesCollection.Count + 1

   

        ActiveChart.SeriesCollection(j).Select

                With Selection.Border

                .ColorIndex = 37

                .Weight = xlMedium

                .LineStyle = xlContinuous

                End With

            Selection.MarkerStyle = -4142

           

    j = j + 1

    Loop

End Sub

vom vba programmieren hab ich 0 plan. ausm studium kann ich etwas c und java und nun in den semesterferien bei der arbeit soll ich son unfug machen ;) vom ansatz dürfte das gar nicht so verkehrt sein? ich finde meine überlegung macht zumindest sinn. wahrscheinlich mehrere kleinere syntaxfehler, da ich die syntax eig gar nicht kenne..

danke :)