|
Hallo Zusammen,
ich möchte gerne mehre Textboxen automatisch untereinander in einer Userform generieren. Ich habe folgenden Code im Internet gefunden. Ich habe aber leider keinen Weg gefunden die Textboxenhöhe und Abstände der Textboxen zu einander zu verändern. Ich kopiere den Text aus einer Zelle die mehrer Zeilen besitzt. Ich hoffe ihr könnt mir helfen.
Danke schon im Voraus!!!
Gruss Hansi
Public sub commandButton1_Click
Dim colCtl
Dim i As Integer
Dim ctl As MSForms.TextBox
Dim zeilen As String
zeilen = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
If zeilen < 1 Then Exit Sub '--kleiner 1 gibt es nicht
Set colCtl = New Collection
For i = 1 To CInt(zeilen)
Set ctl = Me.Controls.Add("Forms.TextBox.1", "TextBox0" & CStr(i + 1), True)
With ctl 'Textbox anordnung und größe
.Top = 20 + i * .Height
.Left = 20
.Value = Worksheets("Tabelle1").Cells(i + 1, 2)
' .Height = 200
' .Width = 300
.AutoSize = True '
.EnterKeyBehavior = True 'Zeilenumsprung
.MultiLine = True
End With
colCtl.Add ctl
Next i
End Sub
|