Worksheet_Change zweimal in Folge geht nicht
10.04.2014 13:45:38
Thomas
Meine Worksheet_Change Funktion:
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Adress = Range("A2") Then
Call Skalierung
End If
End Sub
Ruft die Sub Skalierung auf:
Public Sub Skalierung()
Sheets("Diagramm").Select
ActiveChart.Select
ActiveChart.Axes(xlValue).MinimumScale = Range("A2").Sheets("Daten").Select
End Sub
Das ganze funktioniert auch, wenn sich nach dem öffnen der Datei die Zelle A2 das erste mal ändert. Wenn sich jetzt aber die Zelle nochmal ändert, passiert gar nichts mehr, erst wenn ich die ganze Datei speichere und schließe. Das Problem passiert, wenn das das Sheet Diagramm öffne. Wo ist mein Fehler?