Gibt es da generell ein Problem, wenn das Arbeitsblatt geschützt ist oder hat das mit dem Diagramm zu tun?
MfG
Jan
Sub Skalierung()
' Skalierung Makro
' skaliert die x-Achse
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlCategory).Select
With ActiveChart.Axes(xlCategory)
.MaximumScale = WorksheetFunction.Max(Sheets("Technik").Range("B61"))
.MinimumScale = 0
End With
End Sub
@Beverly: Wenn ich die erste Zeile durch die von dir gepostete ersetze bringt das leider nichts (Fehler beim Kompilieren)Sub Skalierung()
' Skalierung Makro
' skaliert die x-Achse
With ActiveSheet.ChartObjects("Diagramm 2").Chart
With .Axes(xlCategory)
.MaximumScale = WorksheetFunction.Max(Sheets("Technik").Range("B61"))
.MinimumScale = 0
End With
End With
End Sub