Varför kör du inte "Text till kolumner" med mellanslag direkt istället för komma-tecken?

Alt2

Istället för formel, kör sök och ersätt [Ctrll+H] och ersätt " " mellanslag med , 

 

>>"Kan man returnera resultatet av en formel (tänker på =byt.ut) till en annan cell så att man därefter kunnat använda "text till kolumner"? "

Kopiera kolumnen med "BYT.UT" formeln och kör klistra in special->värden (klistra in i samm kolumn (förstör din formel) eller annan kolumn)

Hej hej

Gå in i vba editorn, i fönstet vba-project, dubbelclicka på det blad som du vill klistra in dina koder för storlekar i. KListra in nedan kod. Spara som amcro aktiverad (.xlsm)
allt som du lägger in i kolumn A kommer nu att splittas i kolumner jämte där du la in det, på avgränsaren " ". Det går att klistra in flera samtidigt så länge som de läggs i kolumn A :)

mvh
Christian

-----------------------------------
Option Explicit

Public Sub worksheet_change(ByVal target As Range)

Application.EnableEvents = False
'Här bestämmer man vilken kolumn som ska trigga macrot, ändra kolumn genom att byta ut A:A mot annan kolumn
Dim myRange As Range: Set myRange = ActiveSheet.Range("A:A")

If Intersect(target, myRange) Is Nothing Then

Else
Dim vnt As Variant
vnt = target

Dim printArr As Variant
Dim i As Long, L As Long, pos As String
Dim str As String, dest As Range

'För single line entry
If Not IsArray(vnt) Then
printArr = Split(vnt, " ")
L = UBound(printArr, 1)
'Denna skriver ut splittarna till samma blad med dynamisk föskjutning
ActiveSheet.Range(target.Offset(0, 1), target.Offset(0, L + 1)) = printArr
Application.EnableEvents = True
Exit Sub
Stop
End If
For i = 1 To UBound(vnt, 1)
str = vnt(i, 1)
pos = target.Address
If InStr(pos, ":") > 0 Then
pos = Left(pos, InStr(pos, ":") - 1)
End If


If str <> "" Then
'Denna splittar din text med avgränsaren " ", alltså mellansteg
printArr = Split(str, " ")
L = UBound(printArr, 1)
'Denna skriver ut splittarna till samma blad med dynamisk föskjutning
ActiveSheet.Range(pos).Offset(i - 1, 1).Resize(1, L + 1) = printArr
End If

Next i
End If
Application.EnableEvents = True
End Sub