Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1788to1792
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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.

Anzeige
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
Anzeige
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige