Verwendung eines Makros zum Hinzufügen von Beschriftungen zu Datenpunkten in einem XY-Punktdiagramm oder Blasendiagramm in Excel

Zusammenfassung

In Microsoft Excel gibt es keinen integrierten Befehl, der in einem XY-Punktdiagramm oder einem Blasendiagramm automatisch Datenpunkte mit Beschriftungen versieht. Sie können jedoch ein VBA-Makro für diese Funktion erstellen (VBA = Microsoft Visual Basic für Anwendungen). Dieser Artikel enthält ein Beispielmakro, das diese Aufgabe in einem XY-Punktdiagramm durchführt. Derselbe Code kann jedoch auch für ein Blasendiagramm verwendet werden.

Weitere Informationen

Microsoft stellt Programmierbeispiele nur zur Veranschaulichung bereit, ohne ausdrückliche oder implizite Garantie. Dies umfasst, ist aber nicht beschränkt auf die impliziten Gewährleistungen der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. In diesem Artikel wird davon ausgegangen, dass Sie mit der Programmiersprache, die gezeigt wird, und mit den Tools vertraut sind, die zum Erstellen und Debuggen von Prozeduren verwendet werden. Microsoft-Supporttechniker können ihnen helfen, die Funktionalität eines bestimmten Verfahrens zu erläutern. Diese Beispiele werden jedoch nicht geändert, um zusätzliche Funktionen bereitzustellen oder Prozeduren zu erstellen, die Ihren spezifischen Anforderungen entsprechen. Der Beispielcode in diesem Artikel geht davon aus, dass die Daten und zugehörigen Beschriftungen im folgenden Format in einem Arbeitsblatt angeordnet sind:

• Die erste Spalte enthält die Datenbeschriftungen.

• Die zweite Spalte enthält die X-Werte für das XY-Punktdiagramm.

• Die dritte und die nachfolgenden Spalten enthalten die Y-Werte für das XY-Punktdiagramm.

HINWEIS: Das Beispiel in diesem Artikel enthält zwar nur eine Spalte mit Daten für Y-Werte, jedoch können Sie auch mehr als eine Datenreihe verwenden.

Um die Makros in diesem Artikel zu verwenden, erstellen Sie ein Diagramm mit den folgenden Daten: A1: Bezeichnungen B1: X Werte C1: Y-Werte A2: DataPoint1 B2: 12 C2: 5 A3: DataPoint2 B3: 9 C3: 7 A4: DataPoint3 B4: 5 C4: 3 A5: DataPoint4 B5: 4 C5: 8 A6: DataPoint5 B6: 1 C6: 4 HINWEIS: Die Tabelle darf keine leeren Spalten enthalten, und die Spalte, die die Datenbeschriftungen enthält, sollte nicht von der Spalte getrennt werden, die die x-Werte enthält. Die Beschriftungen und Werte müssen in genau dem gleichen Format angeordnet werden wie in diesem Artikel beschrieben. (Die obere linke Zelle muss nicht Zelle A1 sein.)

Führen Sie die folgenden Schritte aus, um Textbeschriftungen an Datenpunkte in einem XY-Diagramm (Punktdiagramm) anzufügen:

1. Markieren Sie in dem Arbeitsblatt mit den Beispieldaten den Zellbereich B1:C6.

2. Vorgehensweise für Microsoft Office Excel 2003 und frühere Versionen von Excel:

   1. Klicken Sie im Menü Einfügen auf Diagramm.

   2. Klicken Sie im Dialogfeld Diagrammassistent - Schritt 1 von 4 - Diagrammtyp auf die Registerkarte Standardtypen. Klicken Sie unter Diagrammtyp auf XY (Punkt) und dann auf Weiter.

   3. Klicken Sie im Dialogfeld Diagrammassistent - Schritt 2 von 4 - Diagrammquelldaten auf die Registerkarte Datenbereich. Klicken Sie unter Reihe in auf Spalten, und klicken Sie dann auf Weiter.

   4. Klicken Sie im Dialogfeld Diagramm-Assistent – Schritt 3 von 4 – Diagrammoptionen auf Weiter.

   5. Klicken Sie im Dialogfeld Diagramm-Assistent – Schritt 4 von 4 - Diagrammposition auf die Option Als neues Blatt , und klicken Sie dann auf Fertig stellen.

   Vorgehensweise für Microsoft Office Excel 2007:

   1. Klicken Sie auf die Registerkarte Einfügen, klicken Sie in der Gruppe Diagramme auf Punkt, und wählen Sie einen Typ aus.

   2. Klicken Sie auf der Registerkarte Entwurf in der Gruppe Speicherort auf Diagramm verschieben, klicken Sie auf Neues Blatt und anschließend auf OK.

3. Drücken Sie ALT + F11, um den Visual Basic-Editor zu starten.

4. Klicken Sie im Menü Einfügen auf Modul.

5. Geben Sie den folgenden Beispielcode im Modulblatt ein:

   Sub AttachLabelsToPoints()
   
      'Dimension variables.
      Dim Counter As Integer, ChartName As String, xVals As String
   
      ' Disable screen updating while the subroutine is run.
      Application.ScreenUpdating = False
   
      'Store the formula for the first series in "xVals".
      xVals = ActiveChart.SeriesCollection(1).Formula
   
      'Extract the range for the data from xVals.
      xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
         Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
      xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
      Do While Left(xVals, 1) = ","
         xVals = Mid(xVals, 2)
      Loop
   
      'Attach a label to each data point in the chart.
      For Counter = 1 To Range(xVals).Cells.Count
        ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
            True
         ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
            Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
      Next Counter
   
   End Sub

6. Drücken Sie ALT+Q, um zu Excel zurückzukehren.

7. Wechseln Sie zum Diagrammblatt.

8. Zeigen Sie in Excel 2003 und früheren Versionen von Excel im Menü Extras auf Makro, und klicken Sie auf Makros. Klicken Sie auf AttachLabelsToPoints, und klicken Sie anschließend auf Ausführen, um das Makro auszuführen.
   
   Klicken Sie in Excel 2007 auf die Registerkarte Entwickler, klicken Sie in der Gruppe Code auf Makro, wählen Sie AnfügenBezeichnungenToPoints aus, und klicken Sie dann auf Ausführen.

Das Makro fügt die Beschriftungen in den Zellen A2:A6 zu den Datenpunkten im Diagramm hinzu.