Tekst til kolonner

Hej

Adresse
=VENSTRE(A2;FIND(C2;A2)-3)

Postnr
=MIDT(A2;SAMMENLIGN(SAND;(HELTAL(MIDT(A2;RÆKKE(INDIREKTE("1:"&LÆNGDE(A2)));4)/1000))>0;0);4)

Er en matrixformel Afslut indtastning med Ctrl+Shift+Enter

By
=MIDT(A2;FIND(C2;A2)+5;LÆNGDE(A2))

Jan

Hej Jan,

tak for dit svar, kan du prøve at uddybe formler for adresse og By, hvilken celle skal jeg stå i, og jeg forudsætter vi har adresse i A2.

Blot for forklaringens skyld, så er der andre vejnavne end hvidovrevej, det er rent for eksemplets skyld :)

Opgaven er særdeles kompleks, men du kan prøve at tage et kig på vedhæftede. Et af mange problemer kan du se i celle D10 hvor den ikke tager det korrekte bynavn. Der kan være en del andre kompleksiteter som formlerne heller ikke tager højde for. Selv ved hjælp af Regular Expressions (hvis du kender noget til det) er det en svær opgave.

https://www.dropbox.com/s/9nkzyaca8fjry7e/Adresser.xlsx?dl=0

Hej Lars

Adresse
Bruger det fundne postnr i C2
Finder  placeringen i strengen minus 3 og tager alt og til venstre

By
Bruger det fundne postnr i C2
Finder  placeringen i strengen +5 og tager alt herfra og til højre

Jeg bruger postnr da den altid er på 4 cifre til at finde adresse og by

Jan

Forresten der kan opstå et problem hvis der er 4 cifre efter hinanden et andet sted i strengen end post-nummeret!!

Hej igen, begge, det giver super mening nu. Bynavn kan jeg ikke få til at virke med Jans, men det betyder ikke så meget, da man jo altid kan lave et opslag på bynavn ud fra postnummer,

Tusind tak for hjælpen. Jeg giver Jan løsningen, han var først.

I er sgu for seje herinde.

Alternativt forslag:
Option Explicit
Const komma = ","
Dim r?k As Integer, adr As String, opdeltAdr As Variant, postNrBy As String, t As Integer
Dim adresse As String, postNr As Integer, by As String
Private Sub adskilAdresseData()
For r?k = 2 To 4
    adr = Cells(r?k, 1)
    For t = Len(adr) To 1 Step -1
        If Mid(adr, t, 1) = komma Then
            adresse = Left(adr, t - 1)
            postNrBy = Mid(adr, t + 2, Len(adr) - t)
            postNr = Left(postNrBy, 4)
            by = Mid(postNrBy, 6)
           
            Cells(r?k, 2) = adresse
            Cells(r?k, 3) = postNr
            Cells(r?k, 4) = by
            Exit For
        End If
    Next t

Next r?k
End Sub

https://www.dropbox.com/s/e3ttr1l06ydewmj/Adresser.xlsx?dl=0

Jan

#4 Jan
For god ordens skyld skal jeg lige bemærke at postnumre i Danmark er på 4 cifre, men for Færøerne er der kun 3 cifre. I tidernes morgen havde Grønland 3 cifre, men det er nu på 4 cifre i intervallet 3900 til 3999. Dette mere hvis der er adresser fra Færøerne.