Textboxen
19.08.2015 09:30:58
Raphael
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
Ich würde mich sehr über eure Unterstützung freuen.