Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Skalierung mehrerer Diagramme gleichzeitig ändern

Skalierung mehrerer Diagramme gleichzeitig ändern
10.02.2014 11:36:32
Anja
Guten Morgen!
Ich habe eine Statistik-Datei mit vielen Arbeitsblättern.
Auf den Arbeitsblättern sind jeweils bis zu 6 Diagramme enthalten, insgesamt gibt es 60 Diagramme.
Alle haben das gleiche Layout und die gleiche Skalierung (20,0 bis -20,0).
Jetzt habe ich festgestellt, dass die Minus-Skalierung nicht ausreicht. Ich müßte in allen Diagrammen von -20,0 auf -25,0 ändern.
Hat jemand einen Tipp, wie ich das bei allen gleichzeitig ändern kann oder wenigstens bei denen in einem Arbeitsblatt?
Ich befürchte, ich muss jedes der 60 Diagramme einzeln ändern...
Schon jetzt 1.000 Dank für eure Hilfe!!!
Viele Grüße
Anja

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Teillösung
10.02.2014 11:51:56
Klaus
Hallo Anja,
nur eine Teillösung: Lege dir folgendes Makro an und packe es in einen Tastenshortcut, zB in STRG+w
Sub Makro1()
ActiveChart.Axes(xlValue).MinimumScale = -25
End Sub
jetzt musst du "nur noch" die Diagramme anclicken und STRG+w drücken.
Geht bestimmt auch per Schleife über alle Diagramme vollautomatisch, ich weiss aber grad nicht wie ... darum auch noch offen.
Grüße,
Klaus M.vdT.

Anzeige
AW: Teillösung
10.02.2014 12:01:20
Anja
Hallo Klaus,
das wäre schon eine Mega-Erleichterung, denn auf "normalem" Weg klick man sich nen Wolf...!
Danke dir! Wir können diesen Betrag nun gerne schließen! Ich bin zufrieden!
Herzlichen Dank und viele Grüße
Anja

Danke für RÜ! mit Text
10.02.2014 14:47:25
Klaus
Hallo Anja,
danke für die RÜ! Einen Beitrag weiter unten hat ein kompetenterer Forumsteilnehmer dir nun auch die Komplettlösung gepostet :-)
Grüße,
Klaus M.vdT.

Anzeige
Alle Charts in allen worksheets
10.02.2014 14:41:41
EtoPHG
Hallo Anja,
In ein Module:
Sub Minus25()
Dim ws As Worksheet
Dim chrt
For Each ws In ThisWorkbook.Worksheets
For Each chrt In ws.ChartObjects
chrt.Chart.Axes(xlValue).MinimumScale = -25
Next chrt
Next ws
End Sub
Setzt alle Charts-x-achsen in allen Tabellenblättern auf -25
Gruess Hansueli

Anzeige
AW: Alle Charts in allen worksheets
10.02.2014 16:07:54
Anja
SUPER!!!! Es hat geklappt!
Vielen lieben Dank an alle!!!
Herzliche Grüße
Anja
;
Anzeige
Anzeige

Infobox / Tutorial

Skalierung mehrerer Diagramme gleichzeitig ändern


Schritt-für-Schritt-Anleitung

Um die Skalierung in mehreren Diagrammen gleichzeitig zu ändern, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne dein Excel-Dokument, das die Diagramme enthält.

  2. Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code in das Modul ein:

    Sub Minus25()
        Dim ws As Worksheet
        Dim chrt
        For Each ws In ThisWorkbook.Worksheets
            For Each chrt In ws.ChartObjects
                chrt.Chart.Axes(xlValue).MinimumScale = -25
            Next chrt
        Next ws
    End Sub
  5. Schließe den VBA-Editor.

  6. Um das Makro auszuführen, drücke ALT + F8, wähle Minus25 aus und klicke auf Ausführen.

Dieses Makro ändert die Achsenskalierung für alle Diagramme in allen Arbeitsblättern auf -25. Damit sparst du dir die mühselige Arbeit, jedes Diagramm einzeln zu formatieren.


Häufige Fehler und Lösungen

  • Problem: Das Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass Makros in deiner Excel-Instanz aktiviert sind. Du kannst dies unter Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Einstellungen für Makros überprüfen.
  • Problem: Ich bekomme eine Fehlermeldung beim Ausführen des Makros.

    • Lösung: Überprüfe, ob alle Diagramme korrekt in den Arbeitsblättern erstellt wurden. Manchmal können leere Diagramme oder nicht zugewiesene Werte Probleme verursachen.

Alternative Methoden

Falls du kein Makro verwenden möchtest, kannst du die Achsenskalierung auch manuell ändern:

  1. Klicke auf das erste Diagramm, das du anpassen möchtest.
  2. Rechtsklicke auf die y-Achse und wähle Achse formatieren.
  3. Ändere dort die Minimum-Skalierung auf -25.
  4. Wiederhole diesen Vorgang für jedes Diagramm.

Diese Methode ist jedoch zeitaufwändig, wenn du viele Diagramme hast.


Praktische Beispiele

Hier sind einige Anwendungsbeispiele:

  • Beispiel 1: Du hast 60 Diagramme in verschiedenen Arbeitsblättern und möchtest die y-Achse für alle Diagramme auf -25 ändern. Das oben genannte Makro erledigt dies in einem Schritt.

  • Beispiel 2: Wenn deine Diagramme unterschiedliche Layouts haben, kannst du die MinimumScale-Eigenschaft für jedes Diagramm individuell anpassen, indem du das Makro leicht abänderst.


Tipps für Profis

  • Nutze Tastenkombinationen, um den Zugriff auf Makros zu erleichtern. Du kannst das Makro mit einem Shortcut verknüpfen, z.B. STRG + W, um die Ausführung zu beschleunigen.

  • Wenn du oft mit Diagrammen arbeitest, erwäge, eine benutzerdefinierte Symbolleiste zu erstellen, um schnell auf häufig verwendete Makros zugreifen zu können.


FAQ: Häufige Fragen

1. Kann ich die Skalierung auch für Diagramme in PowerPoint ändern? Ja, du kannst Diagrammfarben in PowerPoint einzeln ändern, jedoch ist die Skalierung in Excel zu ändern.

2. Funktioniert dieses Verfahren auch in älteren Excel-Versionen? Ja, das VBA-Makro sollte auch in älteren Versionen von Excel funktionieren, solange die Diagrammfunktionen unterstützt werden.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige