• 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.

adres opsplitsen

  • Onderwerp starter Onderwerp starter webm
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.
W

webm

Gebruiker
Lid geworden
22 okt 2006
Berichten
70
Hallo,

waarschijnlijk is deze vraag al eens eerder gesteld, maar doe het nog eens.
ik zoek een oplossing voor het volgende. Ik heb zeker 3000 adressen waarvan ik huisnummer moet opsplitsen van adres. Voorbeeld: Langestraat 120 t/m 135. Dus ik moet een kolom hebben met Langestraat en en een kolom met 120 t/m 135. Er zit niet echt een regelmaat in de spaties.
Ik ben benieuwd of jullie mij kunnen helpen.

mvg
 
opsplitsen

ik heb vooral dit soort adressen zie excel bestand voorbeeldBekijk bijlage voorbeeld.xlsx
en heb ik er wel 2000 ik denk dat de formules die ik eerder heb gezien hier niet voor geschikt zijn.
wie zou me kunnen helpen?

mvg
 
Dat is gemakkelijk, de formule voldoet niet volgens u en 'doen jullie het maar even'.
 
ha ha, nee dat was niet de bedoeling ik heb altijd deze formule aangehouden:

=LINKS($A3;MAX(ALS(DEEL($A3;RIJ($1:$100);1)=" ";RIJ($1:$100)))-1)
(matrix)
maar dan wel alle spaties ertussen gehaald, dus best veel handmatige dingen gedaan. Om dit ieder keer weer te doen is best veel werk. Ik was me aan het afvragen of er een betere formule was.

mvg
 
Met deze matrixformule kun je de straatnaam 'extraheren' in kolom B:
Code: 
=LINKS(A2;VERGELIJKEN(WAAR;ISGETAL(WAARDE(DEEL(A2;KOLOM(C:ZZ);1)));0))
Het huisnummer wordt dan:
Code: 
=SPATIES.WISSEN(SUBSTITUEREN(A2;B2;""))
 
Laatst bewerkt:
Timshel je eerste formule, werkt alleen kom ik niet uit met de huisnummers.

Cobbe, jou bestand werkt goed. ik ben helaas nog niet zo bekend met VBA's
 
ideaal Excelamateur,
maar ik heb het nodig in een ander excel bestand, ik vraag me af hoe ik die VBA code kan overnemen in ander excel bestand.
 
Je weet hoe je in de vba editor komt? - ALT+F11
Zoja voeg dan een Module in en plak de code daar.

Maak wel van
With Blad1 'Je eigen Bladnaam
Dit
With Sheets("Blad1") 'Je eigen Bladnaam in vullen tussen de " "

je kunt in de werkbalk Ontwikkelaars bij Macro's de Macro starten.
 
Laatst bewerkt:
ja ik weet hoe ik in VBA editor kom.
Ik kom er nog niet uit, moet me echt verdiepen. het punt is dat ik in een ander kolom de adressen heb. en wel te weten in kolom S. dus ik zit nu met af te vragen hoe ik het moet aanpassen.

Sub Macro1()
With ProefversiemetVBA
regel = [A1048576].End(xlUp).Row

For Each cl In Range("S2:S" & regel)
A = cl.Value
For i = 1 To Len(cl)
If IsNumeric(Mid(cl, i, 1)) Then Exit For
Next
Part = Left(cl, i - 2)
cl.Offset(0, 1).Value = Right(A, Len(A) - Len(Part))
cl.Value = Part
Next
End With
End Sub
 
Laatst bewerkt:
Met een beetje geduld moet het je wel lukken.
Mijn vorige bericht heb ik een beetje aangepast, zodat het je wel moet lukken.
 
Op tab Ontwikkelaars kiezen voor Programmacode weergeven,
Dan Invoegen - Module
Daar dit plakken:
Public Function splits(cel As Range)
For i = 1 To Len(cel)
If IsNumeric(Mid(cel, i, 1)) Then Exit For
Next
splits = Left(cel, i - 2)
End Function
Klik om te vergroten...

Sluiten via het kruisje en nu kan je in je bestand =Splits(A2) gebruiken - A2 is de cel met de straat en nummer.
 
Ik doe het met geduld, wil het graag leren en snappen wat jullie zeggen :)
 
Zo zou het moeten werken.
Vergeet niet om het juiste bladnaam in te vullen in de code, die weet ik dus niet.
Waar nu Blad1 staat, moet dus jouw bladnaam worden.
De kolom letter heb ik aangepast.

Maak een kopie van je file voordat er iets mis gaat, belangrijk.

Code: 
Sub Splitsen()
  With Sheets("Blad1") 'Zet je eigen Bladnaam tussen de " "
    regel = [S1048576].End(xlUp).Row 'Laatste regel in de kolom

    For Each cl In Range("S2:S" & regel)
        A = cl.Value 'Inhoud van de cel
      For i = 1 To Len(cl)
        If IsNumeric(Mid(cl, i, 1)) Then Exit For
      Next
        Part = Left(cl, i - 2) 'Hier wordt het gesplits
        cl.Offset(0, 1).Value = Right(A, Len(A) - Len(Part))
        cl.Value = Part
    Next
  End With
End Sub
 
Laatst bewerkt:
krijg foutmelding:
Fout 9 tijdens opsporing
het subscript valt buiten het bereik. (regel With Sheets... geel gemarkeerd)

Sub Splitsen()
With Sheets("proefversie met VBA") 'Zet je eigen Bladnaam tussen de " "
regel = [S1048576].End(xlUp).Row 'Laatste regel in de kolom

For Each cl In Range("S2:S" & regel)
A = cl.Value 'Inhoud van de cel
For i = 1 To Len(cl)
If IsNumeric(Mid(cl, i, 1)) Then Exit For
Next
Part = Left(cl, i - 2) 'Hier wordt het gesplits
cl.Offset(0, 1).Value = Right(A, Len(A) - Len(Part))
cl.Value = Part
Next
End With
End Sub
fe
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan