• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Letters van cijfers splitsen in huisnummer

Status
Niet open voor verdere reacties.
A

alexander321

Gebruiker
Lid geworden
25 jun 2012
Berichten
74
Ik heb als huisnummers:

3e
18boven
1-3

Ik wil dan graag gesplitst hebben in:

3 e
18 boven
1 3

Nu kan ik de 1-3 makkelijk doen met tekst naar kolommen, echter de andere twee niet.
Is er iemand die er een formule voor heeft?
Alvast dank!
 
En verder heb je niets? Dan ben je handmatig toch snel klaar?
 
Met een UDF:
Code: 
Function Spreiden(Var As String) As String
    For i = 1 To Len(Var)
        Spreiden = Spreiden & Mid(Var, i, 1)
        If IsNumeric(Mid(Var, i, 1)) And Not IsNumeric(Mid(Var, i + 1, 1)) And Mid(Var, i + 1, 1) <> " " Then
            Spreiden = Spreiden & " "
        End If
    Next i
    Spreiden = Replace(Spreiden, "-", "")
End Function

Document:
Bekijk bijlage Alexander321-1.xlsm
 
Laatst bewerkt:
Flash-fill had het ook gekund denk ik. Tik naast je data twee voorbeelden, ga op de eerste kolom staan en druk op Gegevens, Flash fill (weet NL benaming even n iet)
 
of

Code: 
Sub M_snb()
  For j = 0 To 9
    For jj = 97 To 122
      Columns(1).Replace j & Chr(jj), j & " " & Chr(jj)
    Next
    Columns(1).Replace j & "-", j & " "
  Next
End Sub
 
Of alleen met formules?

Deel1 (matrixformule, dus afsluiten met Ctrl+Shift+Enter:
Code: 
=IFERROR(MID(A1;1;MATCH(1;ISERR(MID(A1;ROW(INDIRECT("1:"&LEN(A1)));1)*1)*1;0)-1);A1)
Deel2
Code: 
=SUBSTITUTE(SUBSTITUTE(A1;B1;"";1);"-";"")
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan