Numeroiden ja kirjainten erottaminen välilyönnillä

No heti selkeni, kiitti!

Aivolaku kirjoitti:

No heti selkeni, kiitti!

ajankulua pimeiden syysiltojen varalle. Ota selvää miten tuo kaava toimii. (Se toimii. Usko vaan)
Jos solussa A1 on 123abc, muuttaa kaava sen muotoon 123 abc. Ja sitten se kaava.
Kopioi kaava sitten muihin soluihin.

B1=HAKU(9,999999999E 307;--("0"&POIMI.TEKSTI(A1;MIN(KÄY.LÄPI({0;1;2;3;4;5;6;7;8;9};A1&"0 123456789"));RIVI($1:$30))))&" "&VAIHDA(A1;HAKU(9,999999999E 307;--("0"&POIMI.TEKSTI(A1;MIN(KÄY.LÄPI({0;1;2;3;4;5;6;7;8;9};A1&"0 123456789"));RIVI($1:$30))));"")

Koko tuo rimpsu pitää saada yhteen soluun
Lisättäköön vielä lopuksi, ettei ole minun käsistäni lähtöisin tuo. Vain "suomennos".
http://www.excelforum.com/excel-general/697894-seperating-text-from-numbers-in-a-cell.html

hyvääillanjatkoa kirjoitti:

ajankulua pimeiden syysiltojen varalle. Ota selvää miten tuo kaava toimii. (Se toimii. Usko vaan)
Jos solussa A1 on 123abc, muuttaa kaava sen muotoon 123 abc. Ja sitten se kaava.
Kopioi kaava sitten muihin soluihin.

B1=HAKU(9,999999999E 307;--("0"&POIMI.TEKSTI(A1;MIN(KÄY.LÄPI({0;1;2;3;4;5;6;7;8;9};A1&"0 123456789"));RIVI($1:$30))))&" "&VAIHDA(A1;HAKU(9,999999999E 307;--("0"&POIMI.TEKSTI(A1;MIN(KÄY.LÄPI({0;1;2;3;4;5;6;7;8;9};A1&"0 123456789"));RIVI($1:$30))));"")

Koko tuo rimpsu pitää saada yhteen soluun
Lisättäköön vielä lopuksi, ettei ole minun käsistäni lähtöisin tuo. Vain "suomennos".
http://www.excelforum.com/excel-general/697894-seperating-text-from-numbers-in-a-cell.html

Lue lisää

soluun mihin haluat tuloksen esim. solusta C2 =Erottele(C2)

ja moduuliin...
(virhetarkastelu puuttuu kun ei tarkempaa selostusta tarpeista) antaa nyt virheilmoituksen kun solu on tyhjä tai sarjassa ei ole numeroa alussa.

Function Erottele(txt As String) As Variant
If IsNumeric(txt) Then
Erottele = Val(txt)
Exit Function
End If
With CreateObject("VBScript.RegExp")
.Pattern = "-?\d "
Erottele = .Execute(txt)(0)
Erottele = Erottele & " " & Mid(Range("C2"), Len(Erottele) 1)
End With
End Function