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

Artikel-ID: 213750 - Produkte anzeigen, auf die sich dieser Artikel bezieht
Dieser Artikel ist eine Übersetzung des folgenden englischsprachigen Artikels der Microsoft Knowledge Base:
213750
(http://support.microsoft.com/kb/213750/EN-US/ )
How to use a macro to add labels to data points in an xy scatter chart or in a bubble chart in Excel
Bitte beachten Sie: Bei diesem Artikel handelt es sich um eine Übersetzung aus dem Englischen. Es ist möglich, dass nachträgliche Änderungen bzw. Ergänzungen im englischen Originalartikel in dieser Übersetzung nicht berücksichtigt sind. Die in diesem Artikel enthaltenen Informationen basieren auf der/den englischsprachigen Produktversion(en). Die Richtigkeit dieser Informationen in Zusammenhang mit anderssprachigen Produktversionen wurde im Rahmen dieser Übersetzung nicht getestet. Microsoft stellt diese Informationen ohne Gewähr für Richtigkeit bzw. Funktionalität zur Verfügung und übernimmt auch keine Gewährleistung bezüglich der Vollständigkeit oder Richtigkeit der Übersetzung.
Alles erweitern | Alles schließen

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

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität sowie ohne Anspruch auf Support zur Verfügung. In diesem Artikel wird vorausgesetzt, dass Sie mit der in den Beispielen verwendeten Programmiersprache und mit den zum Erstellen und Debuggen von Prozeduren verwendeten Tools vertraut sind. Die Spezialisten von Microsoft Support Services können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind. 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.

Erstellen Sie ein Diagramm mit den folgenden Daten, um die Makros in diesem Artikel zu verwenden: 
   A1: Beschriftg.  B1: X-Werte     C1: Y-Werte
   A2: Datenpunkt1  B2: 12          C2: 5
   A3: Datenpunkt2  B3:  9          C3: 7
   A4: Datenpunkt3  B4:  5          C4: 3
   A5: Datenpunkt4  B5:  4          C5: 8
   A6: Datenpunkt5  B6:  1          C6: 4
Hinweis: Die Tabelle sollte keine leeren Spalten enthalten, und die Spalte, die die Datenbeschriftungen enthält, sollte nicht von der Spalte getrennt sein, 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 die Zelle A1 sein.)

Gehen Sie folgendermaßen vor, um Datenpunkte in einem XY-Punktdiagramm mit Beschriftungen zu versehen:
  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 Punkt (XY) und anschließend 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 anschließend auf Weiter.
    4. Klicken Sie im Dialogfeld Diagrammassistent - Schritt 3 von 4 - Diagrammoptionen auf Weiter.
    5. Klicken Sie im Dialogfenster Diagrammassistent - Schritt 4 von 4 - Diagrammplatzierung auf Als neues Blatt. Klicken Sie anschließend 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 Entwicklertools, klicken Sie in der Gruppe Code auf Makro, markieren Sie AttachLabelsToPoints, und klicken Sie auf Ausführen.
Das Makro fügt die Beschriftungen in den Zellen A2:A6 zu den Datenpunkten im Diagramm hinzu.

Eigenschaften

Artikel-ID: 213750 - Geändert am: Donnerstag, 5. April 2007 - Version: 4.1
Die Informationen in diesem Artikel beziehen sich auf:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel X für Macintosh
  • Microsoft Excel 2001 für Mac
  • Microsoft Excel 98 für Macintosh
Keywords: 
kbchart kbdtacode kbhowto kbinfo kbprogramming KB213750
Microsoft stellt Ihnen die in der Knowledge Base angebotenen Artikel und Informationen als Service-Leistung zur Verfügung. Microsoft übernimmt keinerlei Gewährleistung dafür, dass die angebotenen Artikel und Informationen auch in Ihrer Einsatzumgebung die erwünschten Ergebnisse erzielen. Die Entscheidung darüber, ob und in welcher Form Sie die angebotenen Artikel und Informationen nutzen, liegt daher allein bei Ihnen. Mit Ausnahme der gesetzlichen Haftung für Vorsatz ist jede Haftung von Microsoft im Zusammenhang mit Ihrer Nutzung dieser Artikel oder Informationen ausgeschlossen.
Zum Anfang | Ihr Feedback an uns

Ihr Feedback an uns

 
Zum AnfangZum Anfang