Zeichenketten neu zusammensetzen
SteffenS
ich zerlege mit dem Code eine Zeichenketten
Zum Beispiel Test 1 (12345)
Bei meinem Code kommt 54321 raus.
Was muss ich tun damit richtig 12345 heraus kommt.
Hier mein Code:
nval = ""
aval = tb_dat.Cells(i, 9).Value
j = Len(aval)
Do Until Mid(aval, j, 1) = "(" Or j = 0
If Mid(aval, j, 1) ")" Then nval = nval & Mid(aval, j, 1)
j = j - 1
Loop
Viele Grüße
Steffen Schmerler