Sub Test_1()
k = 5
s = 2
n = 1
Do While Not s = 0
Worksheets("Stakeholder_Analyse").Select
If Cells(k, 4).Value = "" Then
s = 0
Else
Worksheets("Grafik").Select
Dim objShp As Object
Set objShp = ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 20#, 20, 0#, 0#)
Laufzeitfehler 91; With Blockvariable nicht festgelegt
With objShp
.Name = Worksheets("Stakeholder_Analyse").Cells(k, 4).Value
With .TextFrame
.AutoSize = msoTrue
.Characters.Text = Worksheets("Stakeholder_Analyse").Cells(k, 4).Value
End With
.Fill.ForeColor.SchemeColor = 9
End With
ActiveSheet.Shapes.Label(Cells(k, 4).Value).Select
ActiveSheet.Shapes.Label(Cells(k, 4).Value).Top = Range("Bn").Top
ActiveSheet.Shapes.Label(Cells(k, 4).Value).Left = Range("Bn").Left
End If
n = n + 1
k = k + 1
Loop
End Sub
Anbei 2 Screenshots zur Veranschaulichung ;)