ich habe gerade das von dir dankenswerterweise auf meinen Bedarf modifizierte Makro (siehe: Diagr.-Datenbeschr. autom. (Livia, Martin Beck) - Martin Beck 24.04.2002 - 12:24:03) in meine Datei hineinkopiert und das Makro laufen lassen. Leider bleibt es bei beiden Varianten (siehe Makros nachstehend) bei der Zeile: .HasDataLabel = True stehen. Wärst du so nett und würdest da mal d'rübersehen. Ich durchblicke es nicht.
Danke im voraus!!!
Nachstehend noch mal meine "Problemstellung" und die beiden Makros von Dir.
Was muss ich denn ändern, wenn meine Datentabelle "Overall_Project_Portfolio" heisst, die Startzelle B4 ist, die Endezelle B104 und mein Blasendiagramm auf dem Sheet "Diagramm1" steht? Ich habe die Anpassung versucht, leider bleibt das Makro immer bei "ActiveSheet.ChartObjects(1).Activate stehen .
Re: Diagr.-Datenbeschr. autom. (Livia, Martin Beck) - Martin Beck 24.04.2002 - 12:24:03 (0)
anbei 2 Varianten. Die erste ist exakt auf Dein Beispiel (Bezeichnungen in B4:B104) abgestellt und daher unflexibel, die zweite ist flexibel einsetzbar.
Sub Datenbeschriftung()
Worksheets("Overall_Project_Portfolio").Activate
For j = 4 To 104
With Charts("Diagramm1").SeriesCollection(1).Points(j - 4 + 1)
.HasDataLabel = True
.DataLabel.Text = Worksheets("Overall_Project_Portfolio").Cells(j, 2).Value
End With
Next j
End Sub
Sub Datenbeschriftung_flexibel()
Worksheets("Overall_Project_Portfolio").Activate
Startzelle = InputBox("Adresse der Startzelle eingeben, z.B. B4", "Startzelle", "B4")
Spalte = Range(Startzelle).Column
Startzeile = Range(Startzelle).Row
Endezeile = Range(Startzelle).End(xlDown).Row
ws = ActiveSheet.Name
For j = Startzeile To Endezeile
With Charts("Diagramm1").SeriesCollection(1).Points(j - Startzeile + 1)
.HasDataLabel = True
.DataLabel.Text = Worksheets(ws).Cells(j, Spalte).Value
End With
Next j
End Sub