Hallo Excel-Experten,

ich versuche verzweifelt folgendes Prozedur zu erstellen.

Ich würde gerne in der Tabelle "Stakeholder Analyse" alle Zellen (k,4) auf Befüllung überprüfen.
Wenn die Zellen befüllt sind soll Cells(k,4).Value = Vorname und Cells(k,4).Value = Nachname in eine Textbox in der Tabelle "Grafik" kopiert werden.

Nach dem erstellen der Textbox soll diese unter der vorherigen positioniert werden.

Mein Gedanke geht leider nicht auf:

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 ;)

https://www.dropbox.com/sh/ouvylxykgmnl9v1/AABNw5C1Jtqr4lLSamzvlfB5a?dl=0

https://www.dropbox.com/sh/ouvylxykgmnl9v1/AABNw5C1Jtqr4lLSamzvlfB5a?dl=0