Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Diagramnamen auf einem aktuellen Blatt ermitteln

Diagramnamen auf einem aktuellen Blatt ermitteln
24.03.2005 10:50:12
Anja
hallo Profis...
ich habe ein Problemchen, das ich leider alleine nicht lösen kann...
Hoffentlich könnt ihr mir helfen...
Die Aufgabestellung ist folgend:
ich habe einen Sheet "Transports", auf diesem Blatt befinden sich mehrere
Diagramme, z.B. 3... ich möchte dass es per VBA alle Diagrammnamen oder nummer
von dennen errmittelt werden...
Momentan mache ich so, wenn ich auf ein Diagram ancklicke, wird im Namenfeld
der Name von der angezeigt, z.B "Diagramm 1", und auf dem Blatt befinden sich noch "Diagramm 2" und "Diagramm 3"...
Und ich möchte dass es halt automatisch ohne ancklicken alle namen von auf diesem Blatt vorhandenen Diagrammen ermittelt und vielleicht auch irgendwo
angezeigt werden, zb. in A1, A2 A3...
Dort musste dann stehen A1: "Diagramm 1" oder einfach: "1"
A2: "Diagramm 2" oder einfach: "2"
A3: "Diagramm 3" oder einfach: "3"
ich würde mich riesig freuen, wenn ihr mir sagen könntet, wie ich es realisieren konnte...
Viele Grüße
Anja

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramnamen auf einem aktuellen Blatt ermitteln
24.03.2005 11:04:25
Galenzo
folgendes MAkro listet alle Diagramm-Namen der aktuellen Seite auf
Dim objDia As ChartObject, i%
i = 1
For Each objDia In ActiveSheet.ChartObjects
ActiveSheet.Cells(i, 1) = objDia.Name
i = i + 1
Next
Viel Erfolg!
AW: Diagramnamen auf einem aktuellen Blatt ermitteln
24.03.2005 13:03:43
Anja
Hallo Galenzo...
das ist ja echt super...
vielen vielen Dank...
du hast mir sehr weiter geholfen... :-)))))
danke und viele Grüße
Anja
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Diagrammnamen auf einem aktuellen Blatt ermitteln


Schritt-für-Schritt-Anleitung

Um die Diagrammnamen auf einem aktuellen Blatt in Excel mithilfe von VBA zu ermitteln, folge diesen Schritten:

  1. Öffne Excel und lade die Datei, die die Diagramme enthält.

  2. Drücke ALT + F11, um den 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 VBA-Code in das Modul ein:

    Sub DiagrammNamenErmitteln()
        Dim objDia As ChartObject
        Dim i As Integer
        i = 1
        For Each objDia In ActiveSheet.ChartObjects
            ActiveSheet.Cells(i, 1) = objDia.Name
            i = i + 1
        Next
    End Sub
  5. Schließe den VBA-Editor und kehre zu Excel zurück.

  6. Drücke ALT + F8, wähle DiagrammNamenErmitteln aus der Liste und klicke auf Ausführen.

Damit werden alle Diagrammnamen von der aktuellen Seite in die Zellen A1, A2, A3 usw. geschrieben.


Häufige Fehler und Lösungen

  • Fehler: Die Zellen werden nicht ausgefüllt.

    • Lösung: Stelle sicher, dass du das Makro im richtigen Arbeitsblatt ausführst und dass Diagramme auf diesem Blatt vorhanden sind.
  • Fehler: Fehlermeldung beim Ausführen des Makros.

    • Lösung: Überprüfe, ob du die richtigen Berechtigungen für Makros in Excel hast. Aktiviere Makros in den Excel-Optionen.

Alternative Methoden

Eine Alternative zur Verwendung von VBA ist die manuelle Erfassung der Diagrammnamen. Du kannst einfach auf jedes Diagramm klicken und den Namen im Namensfeld oben links ablesen. Diese Methode ist jedoch zeitaufwändig, besonders wenn du viele Diagramme hast.


Praktische Beispiele

Wenn du beispielsweise ein Arbeitsblatt mit Diagrammen für "Jungennamen Charts" oder "Babynamen Charts" hast, kannst du mit dem oben genannten VBA-Skript schnell die Namen der Diagramme auflisten. In Zelle A1 könnte dann "Diagramm 1" erscheinen, gefolgt von "Diagramm 2" in A2 und so weiter.


Tipps für Profis

  • Um deine Diagramme besser zu organisieren, könntest du spezifische Namen zuweisen, wie "Umsatz Diagramm" oder "Verkaufszahlen Diagramm". Dies erleichtert dir die Identifikation, besonders wenn du viele Diagramme hast.
  • Experimentiere mit der Funktionalität von Diagrammen in Excel, um deine Daten visuell ansprechend zu präsentieren. Die Verwendung von klaren und aussagekräftigen Diagramm-Namen kann dir helfen, die Übersicht zu behalten.

FAQ: Häufige Fragen

1. Wie kann ich die Diagramm Namen in einer bestimmten Reihenfolge auflisten? Du kannst die Reihenfolge anpassen, indem du die Methode änderst, wie du die Daten in die Zellen schreibst. Sortiere die ChartObjects-Sammlung, bevor du sie auflistest.

2. Was mache ich, wenn ich keine Diagramme auf meinem Blatt habe? Das Makro wird nur aktive Diagramme erfassen. Stelle sicher, dass Diagramme auf dem aktuellen Arbeitsblatt vorhanden sind. Wenn keine vorhanden sind, wird das Skript keine Daten ausgeben.

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