ich möchte über eine UserForm mehrere Werte gleichzeitig in mehrere Textboxen eintragen. Soll heißen wenn ich aus einem Excelsheet, aus 10 Zeilen Werte kopiere möchte ich diese auf einmal in 10 Textbxen einfügen.
Hat damit jemand schon Erfahrung?
Private Sub TextboxM_Change()
Dim t As String
t = TextBoxM.Text
TextBox01.Text = Split(t, vbTab)(0) 'First Word
TextBox02.Text = Split(t, vbTab)(1)
TextBox03.Text = Split(t, vbTab)(2)
TextBox04.Text = Split(t, vbTab)(3)
TextBox05.Text = Split(t, vbTab)(4)
End Sub
Die werte werden alle in die obere textbox eingegeben und in die einzelnen Textboxen gesplittet.dim Zelle as Range
dim i as Long
for each Zelle in Selection
i = i + 1
Me.Controls("TextBox" & i).Text = Zelle.Text
Next
Gruß Daniel