Textboxen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Frame Label TextBox
Bild

Betrifft: Textboxen
von: Raphael Rudawski
Geschrieben am: 19.08.2015 09:30:58

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 noch 2 Screenshot zur Veranschaulichung ;)
Userbild
Userbild
Ich würde mich sehr über eure Unterstützung freuen.

Bild

Betrifft: AW: Textboxen
von: Rudi Maintaire
Geschrieben am: 19.08.2015 12:35:51
Hallo,
hast du doch gestern schon gefragt.
Wahrscheinlich kann keiner was mit deiner Frage anfangen.
Gruß
Rudi

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Activen Bereich für resize in Range wählen"