Excel 365 axis formatting Min/Max values not modifiable

Doppelter Post in anderer Sprache hier:
<br />https://answers.microsoft.com/en-us...lues-not/6144c0b2-297f-42d1-a529-67dc2aee9ba4
<br />

Hallo Mark,
markiere den Bereich in dem MIN durch MAX ersetzt werden soll. Ersetzen wirkt sich dann nur auf den markierten Bereich aus.
Claus

wie mach ich, dass in den spalten ai bis al mini nicht ersetzt wird?, danke im voraus.

Hola,
Suchen/Ersetzen klappt auch in Formeln.
Gruß,

Man kann in einem Diagramm ganz einfach zoomen, man muss nur das Minimum bzw. Maximum der Achse(n) verändern.

Das geht auch von Hand, ist natürlich ein wenig umständlich, aber dafür gibt es ja VBA.

Mach Dir mal eine UserForm und erstelle diese Steuerelemente und bennene sie:

2 x Label : lbPosition, lbSize

2 x Scrollbar : sbPosition, sbSize

2 x Commandbutton: cbClose, cbAuto

Dann kopierst Du den Code unten in das Codemodul der Userform. Die Userform selber benennst zu ufChartScale um und machst Dir noch ein normales Modul mit diesem Makro:

Sub ChartScale()

ufChartScale.Show 0

End Sub

Fertig, mehr braucht es nicht. VBA zu, klick auf ein Diagramm, drück Alt-F8 und führe ChartScale aus.

Mit der Size-Scrollbar kannst Du zoomen, mit der anderen in der Zeitachse scrollen.

Andreas.

Option Explicit

Dim ThisAxis As Axis

Dim ThisMaximumScale, ThisMinimumScale

Private Sub cbAuto_Click()

'Zoom all

ThisAxis.MinimumScaleIsAuto = True

ThisAxis.MaximumScaleIsAuto = True

'Update the scrollbars

With sbPosition

.Max = ThisMaximumScale

.Value = ThisAxis.MinimumScale

sbSize.Value = .Max - .Min

End With

End Sub

Private Sub cbClose_Click()

'Done

Unload Me

End Sub

Private Sub sbPosition_Change()

'Exit if we are called during initialization

If Not Application.EnableEvents Then Exit Sub

'Scale the chart

ThisAxis.MinimumScale = sbPosition.Value

ThisAxis.MaximumScale = sbPosition.Value + sbSize.Value

UpdateLabels

End Sub

Private Sub sbSize_Change()

'Exit if we are called during initialization

If Not Application.EnableEvents Then Exit Sub

'Update the limit of the position scrollbar

With Me.sbPosition

.Max = ThisMaximumScale - Me.sbSize.Value

.LargeChange = (.Max - .Min) / 10

If .LargeChange = 0 Then .LargeChange = 1

End With

'This control is combined with the position

sbPosition_Change

End Sub

Private Sub UserForm_Activate()

Dim SaveMinimumScale, SaveMaximumScale

'Close the form by ENTER and ESC

Me.cbClose.Default = True

Me.cbClose.Cancel = True

'Is a chart selected?

If ActiveChart Is Nothing Then

MsgBox "Select a chart and try again.", vbInformation, "ChartScale"

Unload Me

Exit Sub

End If

'Show the name of the chart

If ActiveChart.HasTitle Then

Me.Caption = "Chart '" & ActiveChart.ChartTitle.Caption & "'"

Else

Me.Caption = "Chart '" & ActiveChart.Name & "'"

End If

'Get the axis to scale

Set ThisAxis = ActiveChart.Axes(xlCategory)

Application.ScreenUpdating = False

'Save the current settings

SaveMinimumScale = ThisAxis.MinimumScale

SaveMaximumScale = ThisAxis.MaximumScale

'"Zoom all"

ThisAxis.MinimumScaleIsAuto = True

ThisAxis.MaximumScaleIsAuto = True

DoEvents

'Get the limits

ThisMinimumScale = ThisAxis.MinimumScale

ThisMaximumScale = ThisAxis.MaximumScale

'Restore the settings

ThisAxis.MinimumScale = SaveMinimumScale

ThisAxis.MaximumScale = SaveMaximumScale

DoEvents

'Let the change event routines know that we are working

Application.EnableEvents = False

'Get the limits for our scroll bars

With Me.sbSize

.Min = 1

.Max = ThisMaximumScale - ThisMinimumScale

.LargeChange = (.Max - .Min) / 10

.Value = ThisAxis.MaximumScale - ThisAxis.MinimumScale

End With

With Me.sbPosition

.Min = ThisMinimumScale

.Max = ThisMaximumScale - Me.sbSize.Value

.LargeChange = (.Max - .Min) / 10

If .LargeChange = 0 Then .LargeChange = 1

.Value = ThisAxis.MinimumScale

End With

'Update the labels

UpdateLabels

'Done

Application.EnableEvents = True

Application.ScreenUpdating = True

End Sub

Private Sub UpdateLabels()

'Update our labels to show the current position and size

Me.lbPosition = ThisAxis.CategoryNames(sbPosition.Value - sbPosition.Min + 1)

Me.lbSize = sbSize.Value + 1

End Sub