Nu kommer jag med mina tokiga frågor igen. Jag har en textbox med flera arbetsnummer i (hämtat från ett arbetsschema) Varje arbetsnummer har ett -(bindestreck) framför sig. Textboxen kan se ut så här: Svarar mig själv. Provade att lägga över alla nummer till en listbox istället. Ska pröva om det är enklare att hämta dom från en listbox och placera dom i varsin textbox. Det verkar onödigt att använda en ListBox.Ta ut en bestämd text från en textbox
-201-204-RE-311-TD-101
Ibland kan det vara 5 personer, ibland 6 och ibland 7. Nu skulle jag vilja att dom här numren hamnar i varsin textbox, (har 7 st. så ibland blir någon textbox tom) givetvis utan bindestrecket, när jag trycker på en knapp. Jag är dålig på lopar så nån hanske kan hjälpa mig.Sv: Ta ut en bestämd text från en textbox
Sv:Ta ut en bestämd text från en textbox
Använd Split functionen enl ex nedan.
Dvs du lägger de olika arbnummer i en array och sedan läser in i dina TextBoxar.
<code>
Option Explicit
Private Sub Command1_Click()
Dim ArbNummer() As String, testStr As String, i As Long
'testar strängen. Ta bort det inledande "-" annars börjar det på ArbNummer(1)
testStr = "201-204-RE-311-TD-101" ' Eller testStr = Text1.Text
ArbNummer = Split(testStr, "-")
'Du har en Array av TextBoxar 0-6 här Text2(0-6)
For i = 0 To UBound(ArbNummer)
Text2(i).Text = ArbNummer(i)
Next 'i
End Sub
</code>