Hey Mansi,
Vielen Dank für deine Hilfe und die hilfreichen Tipp/Ideen.
ich habe es jetzt so gelöst.
Gruss Hansi
Private Sub CommandButton1_Click()
Dim ctl As MSForms.TextBox
Dim zeilen As String
Dim boxTop As Integer
'Call addTextbox(100, 100, 80)
zeilen = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
boxTop = 20
If zeilen < 1 Then Exit Sub '--kleiner 1 gibt es nicht
Set colCtl = New Collection
For i = 3 To CInt(zeilen)
Set ctl = Me.Controls.Add("Forms.TextBox.1", "TextBox0" & CStr(i + 1), True)
With ctl 'Textbox anordnung und größe
.Top = boxTop
.Left = 20
.Value = Worksheets("Tabelle1").Cells(i + 1, 2)
.height = 30
.MultiLine = True
' .AutoSize = True
.Width = 300
boxTop = boxTop + .height + 20
End With
colCtl.Add ctl
Next i
End Sub
|