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 :)
|