Hallo Zusammen

Hab da ein Problem, welches mich seit einiger Zeit beschäftigt und hoffe auf diesem Weg auf Hilfe.

Ich habe ein Blasendiagramm mit 3 verschiedenen Serien, welche je eine Projektgruppe darstellen. Nun möchte ich gerne dieses Bubbles den passenden Projektnamen zuweisen. Da dieses Diagramm ständig aktualisiert wird (mittels VBA und dazugehöriger Maske) wäre es notwendig noch ein passendes Makro für die Beschriftung einzusetzen.

Die Tabelle beginnt auf "A7" mit der Nummerierung (für Diagramm irrellevant)

"B7" wird der Projektname dargestellt

"C7" die Projektgruppe

"D7" die Daten für die x-Achse

ab "E7" werden jeweils die Daten für y-Achse für Projektgruppe 1; "F7" die Grösse der Bubbles für Projektgruppe 1; "G7" die Daten für y-Achse für Projektgruppe 2, usw. bis alle drei Projektgruppen durchgespielt sind.

Nun ich habe meinem Diagramm ein Makro zugewiesen, welches ich gefunden habe und für einfache 1er Serien Diagramme funktioniert. Jedoch durchblicke ich das ganze Makro nicht wirklich. Was muss ich anpassen, damit es auch für mein Diagramm funktiniert?

Sub AttachLabelsToPoints()

   'Dimension-Variablen.
   Dim Counter As Integer, ChartName As String, xVals As String

   ' Bildschirmaktualisierung, während die Unterroutine ausgeführt wird, deaktivieren.
   Application.ScreenUpdating = False

   'Die Formel für die erste Datenreihe in "xVals" speichern.
   xVals = ActiveChart.SeriesCollection(1).Formula

   "Den Bereich für die Daten aus xVals extrahieren.
   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

   'Bezeichnung zu jedem Datenpunkt im Diagramm zuordnen.
   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


Für jede Hilfe wäre ich Euch sehr dankbar.

Gruss
Raphi