ich habe eine Zelle (13,1) deren Inhalt immer dieses Schema hat:
12bla-12bla-12bla-12bla
(Text kann unterschiedlich lang sein ist aber immer mit nem "-" getrennt)
Nun möchte ich diesen String aufsplitten und in vier Textboxen in einer Userform schreiben.
Die Textboxen haben unterschiedliche Namen und der Inhalt soll dann so aussehen:
Textbox1 = "12bla"
Textbox2 = "12bla"
.
.
.
Mein Codeteil dafür sieht so aus.
Nur leider funktioniert der nicht.
Sub FillEditmask()
Dim SRow As Integer
Dim Namecomp1 As String
Dim strArray As Variant
Dim AssemblyDyxcomp1 As String
Dim strArray2 As Variant
On Error GoTo Ende
If Selection.Row "größer gleich" 20 Then
SRow = Selection.Row
Namecomp1 = ThisWorkbook.Sheets(1).Range("A" & SRow).Value
strArray = Split(Namecomp1, "-")
UserForm2.EName1.Text = strArray(1)
UserForm2.EName2.Text = strArray(2)
AssemblyDyxcomp1 = ThisWorkbook.Sheets(1).Range("B" & SRow).Value
strArray2 = Split(AssemblyDyxcomp1, "-")
UserForm2.EAssemblyDyx.Text = strArray2(1)
UserForm2.EAssemblyDyx2.Text = strArray2(2)
UserForm2.EAssemblyDyx3.Text = strArray2(3)
UserForm2.EAssemblyDyx4.Text = strArray2(4)"
Habe "größergleich" geschrieben weil er die Zeichen hier nicht annehemen wollte weil er sie für HTML Tags hält.
Danke im Vorraus.
Greetz
Psus82