Ich komme hier beim besten Willen nicht weiter.
Ich habe in C8 einen Textstring, der mit Semikolon getrennt ist. In diesem Teilstring ist der Text nochmal mit einem "=" Zeichen getrennt.
Original String, nur ein Teil weil der aus 80 teilen besteht.
MagicNumber=4202021; Show_On_Chart_Panel=true; Draw_Lines=true; BE_Line=DarkOrchid; Draw_Profit_Labels=true; Profit_Label_Mode=0; Profit_Labels=MediumOrchid; XX="---ALERTS & LIMITS---"; Max_Spread=5; Max_Slippage=4; Max_Lot_Size_Allowed=3; Allow_New_Cycle=true; Allow_Hedge_Trades=false; Max_Buy_Trades_Allowed=50;
Soweit bin ich schon gekommen,
MagicNumber=4202021
Show_On_Chart_Panel=true
Draw_Lines=true
BE_Line=DarkOrchid
Draw_Profit_Labels=true
Den code hab ich jetzt so weit, dass er schön trennt und anfängt, die Werte in Q1 abwärts ausgibt.
Soweit so gut, ich bräuchte den ersten aber in Zelle Q10, aber ich finde keine Lösung.
Danach wollte ich eigentlich diese Zellen wieder aufsplitten und bei dem "=" Zeichen wieder trennen,
aber ich denke, man könnte dieses Ergebnis gleich bei der Ausgabe trennen.
Wie mache ich das BITTE,
Johannes
Sub Sepatated_to_columm()
Dim MyArray() As String, MyString As String, N As Integer
MyString = Range("C8")
Debug.Print MyString
MyArray = Split(MyString, ";")
For N = 0 To UBound(MyArray)
Range("Q" & N + 1).Value = MyArray(N)
Next N
End Sub