ich versuche gerade eine Exceldatei zu überarbeiten. Hier wurde in der Eingabemaske eine _
Schaltfläche mit folgendem Code angelegt:
Sub Skalierung_Ziel()
' Skalierung_Ziel Makro
Sheets("GB").Select
ActiveChart.Axes(xlValue).MaximumScale = Sheets("ZB").Range("F3")
ActiveChart.Axes(xlValue, xlSecondary).Activate
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = Sheets("ZB").Range("F3")
Sheets("ZB").Select
End Sub
Hier kommt bei mir immer eine Fehlermeldung bei
ActiveChart.Axes(xlValue, xlSecondary).Activate
Ich hab hier im Forum ein ähnliches Thema und einen Code gefunden. Der funktioniert bei mir leider nicht.
Ist der Diagrammtitel "Diagramm1" den den ich in der Überschrift festlege?
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MaximumScale = WorksheetFunction.Max(Sheets("Tabelle1").Range("B2:D2"))
End With
ActiveWindow.Visible = False
Range("A1").Select
End Sub
Damit ich mich richtig ausdrücke. Ich möchte nicht mit Klick auf das Diagramm die Werte aktualisieren sondern durch Klick auf den Button in der Eingabemaske ein Diagramm in einer anderen Tabelle aktualisieren. Erkennt einer von euch, woran es hier bei mir hängt?
Ganz liebe Grüße und vielen Dank im Voraus.
Meike