hente tekst i en celle

Du kan prøve at eksperimentere lidt med funktionen "Tekst til kolonner" under "Data"-menuen. Her kan du bruge mellemrum som adskiller-tegn, for at få opdelt din tekststreng.

men så sprænger den også vej og hus nr eller hvis bynavnet er i to ord.

Umiddelbart ville jeg læse de 1500 adresser ud i en tekst-fil og importere dem igen i excel fra samme teks-fil, som en kommasepareret fil dog med mellemrum som seperator.
Det vil være rimelig let at gennemgå de 1500 for fejl og rette demm om nødvendigt.

Public Sub SplitAdresse()

Dim A As Variant, Res As Variant, N As Long, KOL As String
KOL = "A" ' ret A til din kolonne med adresser
rw = Range(KOL & "65536").End(xlUp).Row

For N = 1 To rw
Res = Empty
    For I = 1 To Len(Cells(N, KOL)) - 6
        A = Mid(Cells(N, KOL), I, 6)
            If IsNumeric(A) And Val(A) > 1000 Then
                Res = Empty
                Res = Split(Cells(N, KOL), A)
                GoTo Videre
            End If
    Next
   
Videre:
        If Not IsEmpty(Res) Then
            Cells(N, KOL).Offset(0, 1) = Res(0)
            Cells(N, KOL).Offset(0, 2) = A
            Cells(N, KOL).Offset(0, 3) = Res(1)
        Else
            Cells(N, KOL).Offset(0, 1) = Cells(N, KOL)
        End If
Next
End Sub

den skriver i de 3 næste kolonner

Man vil altid have et problem, hvis man ikke kan lave faste regler uden undtagelser.

Denne formel tager de første 2 ord (eller tegn) adskilt med mellemrum.
Bruger du "Vanggårdsvej 2 6660 Lintrup"
får du returneret "Vanggårdsvej 2"

=VENSTRE(FJERN.OVERFLØDIGE.BLANKE(A11);(FIND(" ";FJERN.OVERFLØDIGE.BLANKE(A11)&"  ";FIND(" ";FJERN.OVERFLØDIGE.BLANKE(A11)&" ")+1)-1))

Denne formel finder adressen og den næste finder postnr og by
formlerne vil fejle hvis bynavnet er to-delt
=MIDT(A2;1;FIND(",";UDSKIFT(A2;" ";",";LÆNGDE(A2)-LÆNGDE(UDSKIFT(A2;" ";""))-1)))

=MIDT(A2;FIND(",";UDSKIFT(A2;" ";",";LÆNGDE(A2)-LÆNGDE(UDSKIFT(A2;" ";""))-1))+1;99)

Blot en strøtanke.... Kunne man ikke, som noget af det første, kontrollere hvor mange mellemrum der i den enkelte tekststreng? På denne måde burde det være muligt at lave en sortering, så byer bestående af flere ord kan behandles særskilt.

Jo, ideen er da nærliggende, men selve adressen kan jo også have flere mellemrum feks. H. C. Ørstedsvej
Jeg tæller faktisk antal mellemrum og starter fra næstsidste
LÆNGDE(A2)-LÆNGDE(UDSKIFT(A2;" ";""))

Jeg ville kopiere kolonnen over i word og bruge søg og erstats "flere" funktioner, vilkårligt ciffer fjerner alle tallene, og vilkårligt tegn fjerner bogstaver i en kolonne. Derefter flyttes kolonnen hjem til Excel igen.