VBA - Code anpassrn
03.11.2020 20:09:42
Fritz_W
mit dem nachstehenden Makro kann ich als maximalen Achsenwert der vertikalen Achse eines Liniendiagramms im Tabellenblatt "Auswertung" den Wert aus Zelle Daten!E2 zuweisen. Das funktioniert aber nur, wenn ich das Makro auch aus dem Tabellenblatt "Auswertung" starte. Ich möchte jedoch den Code so verändert haben, dass das auch aus anderen Tabellenblättern möglich ist.
Hier mein bisheriger Code:
Sub MaximalwertVertikaleAchse()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MaximumScale = Worksheets("Daten").Range("E2").Value
End Sub
Für eure Unterstützung danke ich im Voraus.mfg
Fritz