Skalierung x-Achse
15.03.2017 11:01:48
Jan
Sollte das klappen wenn das alles an Code ist?:
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$AA$34", "$AB$34"
With Charts("Diagramm 6").Axes(xlValue)
.MinimumScale = Range("AA34")
.MaximumScale = Range("AB34")
End With
End Select
End Sub
Anzeige