Beschriftung Blasendiagramm

Hallo zusammen
Ich nutze die Blasendiagramme in Excel (d.h. X-Achse, Y-Achse für Positionierung, letzter Wert für Blasengröße).
Mir ist jedoch noch kein sinnvoller Weg eingefallen, die Blasen automatisch zu beschriften. Folgende Wege nutze bzw. kenne ich bislang:
1. Die reinen Zahlenbereiche (z.B. A2 bis C4) markieren und als Blasen darstellen lassen. Dann die Beschriftung manuell (Textfelder) einfügen.
2. Im Bereich "Datenquelle\Reihe" jeweils eine neue Datenreihe einfügen und mit entsprechendem Aufwand auf jedes einzelne Feld verlinken.
Beide Wege erscheinen mir auf die Dauer extrem unpraktisch, weil:
1. Variante 1 erfordert, dass man jede Blase identifiziert - ausserdem wandert die Beschriftung bei einer Wertänderung nicht mit
2. Variante 2 sehr aufwendig ist - und bspw. bei 15 Blasen einen zu großen Aufwand bedeutet
Habt Ihr vielleicht eine bessere Idee? Ich würde gerne einfach nur den Bereich markieren und fertig sein. Vielleicht kann der eine oder andere Makrokönig mir ja hier weiterhelfen?
Vielen Dank im Voraus.
MfG
Sascha

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Datenbeschriftung_1() Dim Voreinstellung Startzelle = InputBox("Adresse der Startzelle eingeben, z.B. A2") 'Voreinstellung = "A6" Application.ScreenUpdating = False Spalte = Range(Startzelle).Column Startzeile = Range(Startzelle).Row Endezeile = Range(Startzelle).End(xlDown).Row ws = ActiveSheet.Name ActiveSheet.ChartObjects("Diagramm 2").Activate For j = Startzeile To Endezeile With ActiveChart.SeriesCollection(1).Points(j - Startzeile + 1) .HasDataLabel = True .DataLabel.Text = Worksheets(ws).Cells(j, Spalte).Value End With Next j Range("Werte").End(xlDown).Offset(1, 0).Select Application.ScreenUpdating = True End Sub

Hallo Thomas
Vielen Dank für den Tip - der (hoffentlich) funktioniert ... sofern man kein VBA-Anfänger ist.
Leider kann ich den Tip so nicht umsetzen, da mir die Vorkenntnisse in Excel auf diesem Gebiet fehlen.
Hier meine offenen Fragen:
Was soll alles in dem Bereich "Werte" stehen? Wo fängt er an? Annahme: Produktname steht in Spalte A, die zugehörigen Daten (x-;y-Werte sowie Größe) stehen in den Spalten B-D. Insgesamt gibt es 10 Produkte. Ist der Bereich "Werte" dann von A1-A10 oder von A1-D10 definiert?
Und was ist dann die Startzelle (vermutlich A1)?
Last but not least: Wo muss ich das Makro öffnen? Macht es einen Unterschied, ob ich in dem Moment im Sheet mit den Daten oder in dem Sheet mit der Grafik bin?
Vielen Dank im Voraus.
MfG
Sascha

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Beschriftung Blasendiagramm

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread