nummers weghalen

[jacking]

Hallo, is er ook een formule om de huisnummers te verwijderen, ik wil alleen de straat overhouden.

alvast bedankt.

gr Jack

 

[Thankyou]

Deze:

=LINKS($A2;MAX(ALS(DEEL($A2;RIJ($1:$90);1)=" ";RIJ($1:$90)))-1)

Invoeren als Matrixformule - afsluiten met CTRL+SHIFT+ENTER i.p.v. enter.

Succes,

 

[jacking]

werkt goed en nieuwe vraag

Dit werkt perfect! super bedankt hiervoor.

Nu heb ik nog een vraag ik weet niet of ik deze nu moet afsluiten of hierop kan verder gaan?

van bijgaand bestand staat in 1 kolom bijvoorbeeld mevr.A van Muiswinkel

en dat moet worden

4 kolommen
mev
A
van
Muiswinkel

Benieuwd of dat ook met een formule kan.

Laat me even weten als ik er een nieuwe vraag van moet maken.

mvg Jack

 

[Thankyou]

Een stukje code, eerlijk "geleend" van WiGi. Kijk maar eens of je hier wat mee kan.

Sub NaamSplitsen()
Dim X As Integer, Y As Integer, RijTeller As Long, Spatie(10) As Integer, c As Range
Dim Voorvoegsel As String, Achternaam As String, Naam As String, Voornaam As String

Voorvoeg = MsgBox("Wilt u de voorvoegsels in een aparte kolom?", vbYesNo)
    If Voorvoeg = vbNo Then
        StopZoek = MsgBox("Wilt u de voorvoegsels (van der, v/d) naar de kolom van de achternamen meekopiëren?", vbYesNo)
    End If

For Each c In Range("A1", Range("A1").Range("A" & Rows.Count).End(xlUp))
    
    Naam = Replace(Trim(c.Value), "  ", " ")
    Y = 0
    Spatie(1) = 0
    For X = 1 To Len(Naam) ' Zoeken naar eerste spatie
        If Mid(Naam, X, 1) = " " Then
            Y = Y + 1
            Spatie(Y) = X
            If StopZoek = vbYes Then Exit For ' Voorvoegsels bij Achternaam.
        End If
    Next
    
    If Spatie(1) <> 0 Then ' Spatie gevonden
        If Voorvoeg = vbNo Then
            If StopZoek = vbYes Then Y = 1
            Voornaam = Mid(Naam, 1, Spatie(Y) - 1)
            c = Voornaam
            Achternaam = Mid(Naam, Spatie(Y) + 1)
            c.Offset(, 1) = Achternaam
        Else ' Voorvoegsels apart naar kolom C
            Voornaam = Mid(Naam, 1, Spatie(1) - 1)
            c = Voornaam
            Achternaam = Mid(Naam, Spatie(Y) + 1)
            c.Offset(, 1) = Achternaam
            If Y > 1 Then
                Voorvoegsel = Mid(Naam, Spatie(1), Spatie(Y) - Spatie(1) + 1)
                c.Offset(, 2) = Trim(Voorvoegsel)
            End If
        End If
    Else ' Naam naar kolom B
        c = Naam
    End If
Next
End Sub

Succes,

 

[jacking]

in formulebalk?

Hoi Martin, bedankt voor je reactie.

Ik heb de formule in de formulebalk geplakt maar dan gebeurd er niets.

excel ziet het dan als tekst

doe ik iets fout?

gr Jack

 

[Thankyou]

Het is een VBA code.

 

[jacking]

waanzinnig!

het werkt!

hier ben ik echt heel blij mee! super bedankt.

anders moest ik al die namen handmatig doen.

groeten jack

 

[Thankyou]

Wil je dan de vraag nog op opgelost / afgehandeld zetten ?

Bedankt.