Wertebereich in Diagrammen per vba
16.10.2006 17:25:41
Lueckii
Ich würde gerne per vba wertebereiche in Diagramme einfügen. Hab hier mal n makro gebastelt.
Dim Zeitreihe As String
Dim h As Variant
Select Case h
Case ("1")
Zeitreihe = "='Zuordnungstabellen'!R9C3:R9C14"
Case ("2")
Zeitreihe = "='Zuordnungstabellen'!R10C3:R10C14"
Case ("3")
Zeitreihe = "='Zuordnungstabellen'!R11C3:R11C14"
Case ("4")
Zeitreihe = "='Zuordnungstabellen'!R12C3:R12C14"
Case ("5")
Zeitreihe = "='Zuordnungstabellen'!R13C3:R13C14"
Case ("6")
Zeitreihe = "='Zuordnungstabellen'!R14C3:R14C14"
Case ("7")
Zeitreihe = "='Zuordnungstabellen'!R15C3:R15C14"
Case ("8")
Zeitreihe = "='Zuordnungstabellen'!R16C3:R16C14"
Case ("9")
Zeitreihe = "='Zuordnungstabellen'!R17C3:R17C14"
Case ("10")
Zeitreihe = "='Zuordnungstabellen'!R18C3:R18C14"
Case ("11")
Zeitreihe = "='Zuordnungstabellen'!R19C3:R19C14"
Case ("12")
Zeitreihe = "='Zuordnungstabellen'!R20C3:R20C14"
Case ("13")
Zeitreihe = "='Zuordnungstabellen'!R21C3:R21C14"
Case ("14")
Zeitreihe = "='Zuordnungstabellen'!R22C3:R22C14"
Case ("15")
Zeitreihe = "='Zuordnungstabellen'!R23C3:R23C14"
Case ("16")
Zeitreihe = "='Zuordnungstabellen'!R24C3:R24C14"
End Select
For h = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(h).Activate
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).ChartType = xlLine
With ActiveChart.SeriesCollection(3)
.Values = Zeitreihe
End With
Rem leider bleibt der Wert für Zeitreihe egal für welches h = ""
ActiveChart.SeriesCollection(3).Name = "=""Ziel"""
ActiveChart.SeriesCollection(3).Select
With Selection.Border
.ColorIndex = 54
.Weight = xlMedium
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlNone
.MarkerForegroundColorIndex = xlNone
.MarkerStyle = xlNone
.Smooth = False
.MarkerSize = 5
.Shadow = False
End With
Next h
Weiß evtl. jemand, wie ich die im Case Fall vorgegebenen Datenbereiche in das Diagramm (die dritte Reihe) einfügen kann?
Mfg Martin