ich habe eine Userform mit vielen Textboxen erstellt.
Ich möchte jetzt den Abstand zwischen den Textboxen gleich stellen,
weiß aber nicht wie es geht.
Den Abstand nach links etc., habe ich.
mfg sigrid
Private Sub UserForm_Initialize()
Dim i As Integer
Const iAbstand As Integer = 12
TextBox1.Top = 15
TextBox1.Left = 20
For i = 2 To 10 'anpassen
With Controls("Textbox" & i - 1)
Controls("Textbox" & i).Top = .Top + .Height + iAbstand
Controls("Textbox" & i).Left = .Left
End With
Next i
With TextBox10
Me.Height = .Top + .Height + 50
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen