X-Achse Dynamisches Diagramm
Walter
nach langer Pause sind auch die bescheidenen VBA Kenntnisse die ich hatte in Vergessenheit geraten. Bin gerade dabei wieder etwas aufzufrischen und schon stehe ich vor einem Problem wo ich nicht mehr weiter weiss. Daher bitte ich euch um Hilfe.
Hab ein Diagramm das sich durch Angabe de ZeilenNr automatisch aktualisiert, funktioniert auch soweit bis auf die Werte in der X-Achse, die krieg ich einfach nicht hin.
Kann mir jemand weiterhelfen? Bin für jeden Tip dankbar.
hier die Prozedur
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngStrat As Range
Dim i, Start, Ende As Integer
If Target.Address = "$B$2" Or Target.Address = "$B$3" Then
rngStart = ActiveCell.Address
Start = ActiveSheet.Range("B2").Value
Ende = ActiveSheet.Range("B3").Value
For i = 1 To ActiveSheet.ChartObjects.Count
ChartObjects(i).Activate
ActiveChart.SetSourceData Source:=ActiveSheet.Range("B" & Start & _
":F" & Ende), PlotBy:=xlColumns
Next i
Range(rngStart).Select
End If
End Sub
Gruss Walter
Anzeige