Diagramm - Wechsel von Objekt zu Arbeitsblatt
28.09.2004 14:43:30
Objekt
In meinen Arbeitsblatt ist ein Diagramm eingebettet. Mit Hilfe der unten stehenden VBA-Anweisung werden die Max- & Min-Werte der Y-Achse automatisch angepasst.
So weit so gut, das klappt auch.
Mein Problem: Ich möchte das Diagramm in ein eigenes Arbeitsblatt umwandeln.
Ich finde nicht den richtigen Weg um den Code entsprechend zu ändern.
Hier mein VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zellealt As Range 'Letzte active Zelle merken
Set Zellealt = ActiveCell 'Letzte active Zelle merken
Dim myRange As Range
Set myRange = Worksheets("Protokoll").Range("M23:R49")
Antwortmin = Application.WorksheetFunction.Min(myRange) * 0.98
Antwortmax = Application.WorksheetFunction.Max(myRange) * 1.02
ActiveSheet.ChartObjects("Diagramm 47").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Antwortmin
.MaximumScale = Antwortmax
End With
Worksheets("Protokoll").Activate
Zellealt.Select 'Letzte active Zelle merken
End Sub
Danke für die Hilfe. :-)
Frank
Anzeige