bekomms leider nich hin ...
24.06.2008 16:00:00
christian
Ich habe mich auf Beverly´s Seite mal umgeschauen und etwas gefunden, wovon ich ausgehe das es die Lösung meines Problems sein könnte.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim loLetzte As Long ' Variable für die letzte belegte Zeile
Dim inLetzte As Integer ' Variable für die letzte belegte Spalte
Dim loReihen As Long ' Variable für die Anzahl der Datenreihen
Dim chDiagramm As Chart ' Variabel für das Diagramm als Objekt
' Bildschirmaktualisierung aus
Application.ScreenUpdating = False
With ActiveSheet
' letzte belegte Zeile ermitteln
loLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
' letzte belegte Spalte ermitteln
inLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
' prüfen ob Änderung im definierten Bereich liegt
If Not Intersect(Target, .Range(.Cells(11, 1), .Cells(loLetzte, inLetzte + 1))) Is _
Nothing Then
' der Variablen das Diagrammobjekt zuweisen
Set chDiagramm = .ChartObjects(1).Chart
' Datenbereich insgesamt dem Diagramm zuweisen
chDiagramm.SetSourceData Source:=.Range(.Cells(11, 1), .Cells(loLetzte, inLetzte))
End If
End With
' Bildschirmaktualisierung ein
Application.ScreenUpdating = True
' Variable leeren
Set chDiagramm = Nothing
End Sub
Bei mir würde das mit der letzten beschriebenen Spalte entfallen. er soll in Spalte B ab Zeile 3 schauen. und dann dynamisch skalieren. Aber ich bekomms aufgrund meiner dürftigen Kenntnisse leider nich hin, das umzuschrieben.
christian