|
Hallo! Das hier ist dein geposteter COde:
For Each z In Sheet1.[Prüf4] '
z = Split(z, "*Sec:*")
Text = z
If InStr(1, Text, "*Cash:*") > 0 Then
CashISIN = Mid(Text, (InStr(1, Text, "Cash:") + 4), InStr(1, Text, "Sec:") - InStr(1, Text, "Cash:") + 4)
SecISIN = Mid(Text, (InStr(1, Text, "Sec:") + 3), Len(Text) - (InStr(1, Text, "Sec:") + 3))
Debug.Print CashISIN
Debug.Print SecISIN
End If
Next
Das Problem ist, dass durch das splitten z zu einen Array wird. Auf das kannst du dann nicht mehr mit z oder auch Text zugreifen. Du musst jedes einzelen Element des Arrays ansprechen. Die ANzahl erhälst du mit Ubound(). Zu beachten wäre noch, dass es mit dem INdex 0 startet. ALso müsstest du ggf. in einer Schleife prüfen ob dein Cash: vorkommt.
bspwl:
for i = 0 to Ubound(text)
If InStr(1, Text(0), "*Cash:*") > 0 Then
end if
next
Wenn du den TExt in Spalten aufteilen willst, gibt in es in Excel noch die Funktion Text in Spalten. Bei Excel 03 unter dem Reiter Daten. (kann man aber auch programmieren). VG
|