String opsplitsen

[ArnoS]

Ik wil in excel een string van 1800 karakters (getallen en letters), die achter elkaar staan (bv. 123456789), opsplitsen in losse karakters. Zodat ik een kolom krijg waarin de bovenste het karakter 1 staat en die eronder 2 enz.

Nu heb ik weinig ervaring met vba maar het lijkt me daarin te moeten/kunnen. Een commandbutton aanmaken is me al gelukt. Maar verder heb ik geen idee... Wie wilt mij (opweg) helpen?

 

[Wigi]

En hoe staat dat dan in Excel? In verschillende cellen achter elkaar?

En in welke cellen?

 

[ArnoS]

In 1 cel A1

 

[Wigi]

Voer dan deze macro uit:

Sub instukkenknippen()

    Dim l As Long
    
    For l = 1 To Len(Range("A1").Value)
        
        Range("B" & l).Value = Mid(Range("A1").Value, l, 1)
        
    Next

End Sub

Wigi

 

[Ginger]

Maar óók zonder macro is het te doen (met een klein beetje handwerk dan).
Als in cel A1 je string staat, kan je in cel B1 en verder naar beneden deze formule plaatsen...(net zolang er een waarde in de cel blijft verschijnen)

=MID($A$1;ROW();1)

NL: =MIDDEN($A$1;RIJ();1)

Nog ff kolom B copieren en plakken als tekst en je hebt de waarden ook...

Groet, Leo

 

[GiMe]

Ginger,

De functie =MIDDEN() bestaat bij mijn weten niet.
Het is : =DEEL(tekst;begin_getal;aantal_tekens)

 

[Ginger]

De functie =MIDDEN() bestaat bij mijn weten niet

Oeps... Had op het moment van reageren geen functieconverter bij de hand. Dus het was eigenlijk een gokje..
Mijn dank voor de correctie! :thumb:

Groet, Leo