VBA - Code anpassrn | HERBERS Excel Forum

Forumthread: VBA - Code anpassrn

VBA - Code anpassrn

03.11.2020 20:09:42

Fritz_W

Hallo VBA-Experten
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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA - Code anpassrn

03.11.2020 20:12:17

Hajo_Zi
AW: VBA - Code anpassrn

03.11.2020 20:19:36

Regina
AW: VBA - Code anpassrn

03.11.2020 20:28:44

Fritz_W
AW: VBA - Code anpassrn

03.11.2020 20:34:28

Regina
AW: VBA - Code anpassrn

03.11.2020 20:47:21

Fritz_W

AW: VBA - Code anpassrn

03.11.2020 20:12:17

Hajo_Zi

Sheet""Tabelle123").ChartObjects("Diagramm 1").Axes(xlValue).MaximumScale = Worksheets("Daten").Range("E2").Value
Select, Activate usw. ist in VBA zu 99,8% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de
Der Cursor ist kein Hund, der überall rum geführt werden muss.

AW: VBA - Code anpassrn

03.11.2020 20:19:36

Regina

Hi, liegt u.U. daran, dass auf den anderen Blättern das Diagramm nicht "Diagramm 1" heißt.
Teste mal so:

Sub MaximalwertVertikaleAchse()
ActiveSheet.ChartObjects(1).Activate
ActiveChart.Axes(xlValue).MaximumScale = Worksheets("Daten").Range("E2").Value
End Sub

Das unter der Voraussetzung, dass auf jedem Blatt nur ein Diagramm ist.
Gruß Regina

AW: VBA - Code anpassrn

03.11.2020 20:28:44

Fritz_W

Hallo Regina und Hajo,
zunächst vielen Dank für eure Unterstützung.
Ich vermute, dass ihr mich missverstanden habt. Ich möchte schon das Diagramm 1 im Tabellenblatt "Auswertung" ansprechen (also das Diagramm in "Auswertung" verändern), aber eben nicht - wie in meinem Code - wenn das Tabellenblatt "Auswertung" das aktive Tabellenblatt ist, sondern dies soll auch aus anderen Tabellenblättern möglich sein.
mfg
Fritz

AW: VBA - Code anpassrn

03.11.2020 20:34:28

Regina

..ok, dann so:

Sub MaximalwertVertikaleAchse()
Worksheets("Auswertung").ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MaximumScale = Worksheets("Daten").Range("E2").Value
End Sub

Gruß Regina

AW: VBA - Code anpassrn

03.11.2020 20:47:21

Fritz_W

Hallo Regina,
so funktioniert es wie gewünscht, nochmals vielen Dank.
mfg
Fritz

Beliebteste Forumthreads (12 Monate)

VBA - Code anpassrn

Forumthread: VBA - Code anpassrn

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread