Adskille tal og tekst i excel, f.eks. abc123

Et hurtigt skud fra hoften :-)


Function splittext(strText As String)
    Dim i As Integer
    Dim text As Boolean
    Dim strResult
    text = Not IsNumeric(Mid(strText, 1, 1))
    strResult = Mid(strText, 1, 1)
    For i = 2 To Len(strText)
        If text Then
            If IsNumeric(Mid(strText, i, 1)) Then
                text = False
                strResult = strResult & " " & Mid(strText, i, 1)
            Else
                strResult = strResult & Mid(strText, i, 1)
            End If
        Else
            If Not IsNumeric(Mid(strText, i, 1)) Then
                text = True
                strResult = strResult & " " & Mid(strText, i, 1)
            Else
                strResult = strResult & Mid(strText, i, 1)
            End If
        End If
    Next
    splittext = strResult
End Function

Funktionen skal oprettes i et modul i VBA editoren og kan bruges i excel ved at skrive =splittext(A1)

Jeg tænkte nok, at der skal noget kodning til.... jeg prøver ad :-)

Fantastico :-) Takker!

Nu er tal og bogstaver skildt ad.... Det andet med at få dem lagt ud i celler (tabuleringen) kunne jeg forestille mig, ikke er så lige til.

Så smidt et svar!

Hermed et svar.

At få splittet i celler er egentligt også simpelt - det skal bare løses med en makro og kræver at jeg ved lidt mere om, hvordan informationerne er struktureret og hvor jeg må aflevere resultaterne.

Opret evt. et nyt spørgsmål til den sag.

Nu leger lidt med dette og så kan det være behovet melder sig :-)

Er det rigtigt forstået, at makroen kun følger det enkelte excel-ark og ikke er globalt til stede i Excel?

Dvs. at jeg skal oprette makroen på ny, når jeg skal løse samme opgave i et andet Excel-ark?

Mht. fordelingen i celler. Der er blot brug for at "xyz987æø" udlæses "xyz 987 æø" til hver sin celle mod højre.

Kan algoritmen evt. udstyres så den kan finde specialtegn og separere dem også - f.eks. "$xyz987æø" til "$ xyz 987 æøe" eller slette dem?

Skal jeg evt. oprette det som nyt spgm "xyz987æø"

Ja, Excel makroer er i udgangspunktet gemt med Excel filen.

Desværre er det ikke "blot" at fylde til andre celler. Det er jo kodet som en funktion, der i udgangspunktet kun kan reagere på den celle den bruges i.

OK, men er det du så siger at det IKKE kan lade sig gøre eller...?

Jo, det kan godt lade sig gøre - det bliver bare ikke så elegant og vil kræve en knap i regnearket til aktivering af koden.