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

Nummer eines Diagrammes herausfinden

Forumthread: Nummer eines Diagrammes herausfinden

Nummer eines Diagrammes herausfinden
05.10.2002 18:17:21
Thomy
Hallo
Auf einem Tabellenblatt habe ich 8 Diagramme. Damit sich die X-Achse automatisch anpasst verwende ich in diesem Tabellenblatt den folgenden Code:

Private Sub Worksheet_Activate()
Dim i
usw. bis
Dim q

i = Worksheets("Hilfe").Cells(11, 3)
ActiveSheet.ChartObjects("Chart 19").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Hilfe").Range("B1:B" & i), _
PlotBy:=xlColumns

usw. bis

q = Worksheets("Hilfe7").Cells(11, 3)
ActiveSheet.ChartObjects("Chart 27").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Hilfe7").Range("B1:B" & q), _
PlotBy:=xlColumns
End Sub

Das letzte Diagramm wird nicht aktualisiert.
Bei der Zeile "ActiveSheet.ChartObjects("Chart 27").Activate" erhalte ich die folgende Fehlermeldung:
Laufzeitfehler 1004
Die ChartObjects-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden.
Wie kann ich ohne probieren herausfinden, welche Nummer ein Diagramm hat. Ich habe schon über 50 verschiedene Nummern ausprobiert.
Das erste Diagramm muss ich mit Chart 19 ansprechen. Ich habe viele Diagramme eingefügt und wieder gelöscht. Scheinbar werden sie fortlaufend nummeriert.
Im Voraus vielen Dank für einen Tipp.
Thomy

Anzeige

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

Betreff
Datum
Anwender
Anzeige
Re: Nummer eines Diagrammes herausfinden
05.10.2002 18:58:08
jinx
Moin, Thomy,

es klingt bestimmt besserwisserisch, aber wenn Du 8 Diagramme auf dem Blatt hast und die erste Nummer 19 ist, sollte die letzte 26 sein...

Bei 9.0 kann ich die Namen so ausgeben lassen - bitte entsprechend anpassen:


Sub Auslesen()
Dim strText As String
Dim Dia As ChartObject
Dim i As Integer
    Sheets(1).Activate
    For i = 1 To Sheets.Count
        For Each Dia In Sheets(i).ChartObjects
            strText = strText & Sheets(i).Name & ": " & Dia.Name & vbCrLf
        Next
    Next i
MsgBox strText
End Sub

 

     Code eingefügt mit Syntaxhighlighter 1.15

cu
jinx
Anzeige
Habe Nr. herausgefunden, vielen Dank
05.10.2002 19:10:56
Thomy
Hallo jinx
Vielen Dank für den Code. Hat mir einiges Probieren erspart.
Das 8. Diagramm hat die Nummer 78 und nicht wie angenommen die 26.
Vielen Dank
Thomy
;
Anzeige

Infobox / Tutorial

Diagrammnummer in Excel herausfinden


Schritt-für-Schritt-Anleitung

Um die Nummer eines Diagrammes in Excel herauszufinden, kannst Du den folgenden VBA-Code nutzen. Dieser Code listet die Namen aller Diagramme auf dem aktiven Arbeitsblatt auf. So kannst Du sicherstellen, dass Du die richtige Nummer verwendest.

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA)-Editor zu öffnen.

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

  3. Kopiere den folgenden Code in das Modul:

    Sub Auslesen()
       Dim strText As String
       Dim Dia As ChartObject
       Dim i As Integer
    
       Sheets(1).Activate
       For i = 1 To Sheets.Count
           For Each Dia In Sheets(i).ChartObjects
               strText = strText & Sheets(i).Name & ": " & Dia.Name & vbCrLf
           Next
       Next i
       MsgBox strText
    End Sub
  4. Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.

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

Die Diagrammnummern werden in einem Nachrichtenfeld angezeigt. So erhältst Du eine Übersicht über alle Diagramme und deren Bezeichnungen.


Häufige Fehler und Lösungen

Wenn Du beim Ausführen des Codes auf Fehler stößt, hier einige häufige Probleme und deren Lösungen:

  • Laufzeitfehler 1004: Dieser Fehler tritt häufig auf, wenn Du versuchst, ein Diagramm anzusprechen, das nicht existiert. Stelle sicher, dass die Diagrammnummer korrekt ist und das Diagramm tatsächlich auf dem Arbeitsblatt vorhanden ist.
  • Diagramm wird nicht aktualisiert: Wenn ein Diagramm nicht aktualisiert wird, überprüfe, ob der Bezug auf die Datenquelle korrekt ist. Achte darauf, dass die Zeilen- und Spaltenreferenzen stimmen.

Alternative Methoden

Falls Du keine VBA-Lösungen verwenden möchtest, kannst Du auch manuell die Diagrammnummern herausfinden:

  1. Klicke auf das Diagramm, dessen Nummer Du herausfinden möchtest.
  2. Schau in der Formelleiste, dort wird der Name des Diagramms angezeigt (z.B. Chart 1, Chart 2 usw.).
  3. Notiere Dir die Diagrammnummer zur späteren Verwendung.

Praktische Beispiele

Hier sind einige Beispiele, wie Du den VBA-Code anpassen kannst:

  • Wenn Du nur bestimmte Diagramme auflisten möchtest, kannst Du die Schleife anpassen und nur die gewünschten Diagramme ansprechen.

    Beispiel:

    For Each Dia In Sheets(i).ChartObjects
      If Dia.Name Like "Chart*" Then
          strText = strText & Sheets(i).Name & ": " & Dia.Name & vbCrLf
      End If
    Next
  • Du kannst den Code auch so anpassen, dass die Diagrammnummern in einer bestimmten Zelle in Excel ausgegeben werden, anstatt in einem Nachrichtenfeld.


Tipps für Profis

  • Verwende benannte Bereiche: Wenn Du häufig mit Diagrammen arbeitest, kann es hilfreich sein, benannte Bereiche zu verwenden. Diese machen es einfacher, die Daten für Deine Diagramme zu verwalten.
  • Automatisiere die Aktualisierung: Du kannst Deinen VBA-Code so erweitern, dass die Diagramme automatisch aktualisiert werden, wenn sich die Daten ändern.

FAQ: Häufige Fragen

1. Wie finde ich die Diagrammnummer in Excel 2016?
Die Methode ist die gleiche wie in anderen Versionen. Du kannst den oben genannten VBA-Code verwenden, um die Diagramme aufzulisten.

2. Was mache ich, wenn mein Diagramm nicht angezeigt wird?
Überprüfe, ob das Diagramm auf dem aktiven Arbeitsblatt vorhanden ist. Es könnte auch sein, dass es ausgeblendet ist oder auf einem anderen Arbeitsblatt liegt.

3. Gibt es eine Möglichkeit, Diagramme schneller zu nummerieren?
Ja, Du kannst ein Makro erstellen, das die Diagramme automatisch umbenennt und durchnummeriert.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige