zin omzetten in aparte cellen

[danny147]

Beste,

Hoe kan ik een zin omzetten in aparte cellen.

Vb: wie doet wat

w i e d o e t w at

Elke letter moet in een aparte cel staan en een spatie is een lege cel.

Groetjes Danny. :thumb:

 

[Wigi]

Bijvoorbeeld.

Sub f()

    Const sZIN As String = "wie doet wat"
    
    Dim arr() As String
    Dim i As Integer
    Dim sTemp As String
    
    ReDim arr(Len(sZIN))
    
    For i = 1 To Len(sZIN)
    
        sTemp = Mid(sZIN, i, 1)
        
        If sTemp = " " Then sTemp = vbNullString
        
        arr(i - 1) = sTemp
    
    Next
    
    Range("A1").Resize(, Len(sZIN)).Value = arr

End Sub

Wigi

 

[tilpi]

Met de tekst in A1

Zet onderstaande formule in A2 en trek hem zover als nodig door naar rechts.

=DEEL($A$1;KOLOM();1)

Mvg

Piet

 

[danny147]

Beste Wigi

Bijvoorbeeld.

Sub f()

    Const sZIN As String = "wie doet wat"
    
    Dim arr() As String
    Dim i As Integer
    Dim sTemp As String
    
    ReDim arr(Len(sZIN))
    
    For i = 1 To Len(sZIN)
    
        sTemp = Mid(sZIN, i, 1)
        
        If sTemp = " " Then sTemp = vbNullString
        
        arr(i - 1) = sTemp
    
    Next
    
    Range("A1").Resize(, Len(sZIN)).Value = arr

End Sub

Wigi

Bedankt voor de werkende code, maar kan het ook andersom ?
De aparte cellen in een zin omvormen.

Beste tilpi

Met de tekst in A1

Zet onderstaande formule in A2 en trek hem zover als nodig door naar rechts.

=DEEL($A$1;KOLOM();1)

Mvg

Piet

Voor U dezelfde vraag, kan je aparte cellen omvormen in een zin ?

Groetjes Danny. :thumb:

 

[tilpi]

=A2&B2&C2&D2&E2&F2 enz.

Mvg

Piet

 

[danny147]

Beste tilpi

De spaties staan er dan wel niet tusssen.

Groetjes Danny. :thumb:

 

[tilpi]

Als in de bewuste cel een spatie staat dan staat hij er wel tussen. Niet als de cel leeg is.

Mvg

Piet

 

[danny147]

Beste tilpi

Voorwat jouw denkpiste betreft is deze voor mij opgelost.
Bedankt voor je bijdrage.

Nu nog eens afwachten of Wigi of iemand anders een code heeft om de aparte cellen weer tot een zin kan vormen.

Groetjes Danny. :thumb:

 

[Wigi]

Als je letters weer tot een zin wil vormen, waarom vraag je dan het omgekeerde?

 

[Wigi]

Anyways. Hier is code.

Sub g()
    
    Dim arr() As String
    Dim i As Integer
    Dim sTemp As String
    Dim iLastColumn As Integer
    
    iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ReDim arr(1 To iLastColumn)
    
    For i = 1 To iLastColumn
        
        sTemp = Cells(1, i).Value
        
        If sTemp = vbNullString Then sTemp = " "
        
        arr(i) = sTemp
    
    Next
    
    MsgBox Join(arr, vbNullString)

End Sub

Wigi

 

[danny147]

Beste Wigi,

Bedankt voor de code.

Groetjes Danny. :thumb: