HI lEUTE ich bräuchte eure Hilfe, und zwar habe ich eine Excel tabelle mit mehreren Éintragungen durchgehend in einer zelle ich will die Teilen und in verschiedene Zellen schreiben( das in Zellen schreiben mach ich spatter.. aber es funktioniert gerade nicht mal das aufteilen (was ich mit DEbug Print überprüfe)--> ES WIRD NIX AUSGEGEBEN... Die frage ist WARUM...
[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 z
[/Code] |