Hallo Leute,
ich bin momentan dabei, ein kleines Tool zu entwickeln, mit dem ich die einzelnen Werte einer Reihe in einem Punktediagramm (Grid) in Excel beschriften kann. Ich möchte das Programm so gestalten, dass immer die gerade markierte Reihe beschriftet wird. Allerdings weiß ich nicht, wie ich rausfinden kann, welche Reihe gerade markiert ist.
Hab schon überall im Internet gesucht und nichts gefunden... Hättet ihr eine Idee? Irgendeine Funktion in der Art activechart.seriescollection(1).isselected (die so natürlich leider nicht existiert :( )
Unten findet ihr den Code des Programmes, wie ich ihn bisher habe. Vielen Dank schonmal für die Hilfe! :)
Grüße
Tomas
Sub Datenbeschriftung()
Dim Startzelle
Dim j as Integer
Dim Spalte
Dim Startzeile
Startzelle = "a1"
Spalte = Range(Startzelle).Column
Startzeile = Range(Startzelle).Row
For j = 1 To activechart.SeriesCollection(1).Points.Count
With activechart.SeriesCollection(1).Points(j)
.HasDataLabel = True
.DataLabel.Text = activesheet.Cells(Startzeile + j - 1 , Spalte).Value
End With
Next
End Sub |