Del celle i 2, Adresse i en celle og postnr. og by i en anden celle

Med VBA?

Data, Tekst til kolonner, Fast bredde.
Fjern overflødige kolonneskiftlinjer.

Glem #2. Den dur ikke.

Men måske denne her matriksformel:

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

Ja det må meget gerne være med VBA

Koden anbringes "under relevante ark"
Kolonne B og C anvendes til adskilte adresse og postnrBy
--------------------------------------------------------

Dim antalRæk As Long, ræk As Long, adresse As String, postBy As String, ptAdresse As String
Dim t As Integer, antalNum As Byte, tegn As String
Public Sub adskilAdressePostBy()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRæk
        ptAdresse = Range("A" & ræk)
        antalNum = 0
       
        Application.ScreenUpdating = False
       
        For t = Len(ptAdresse) To 1 Step -1
            tegn = Mid(ptAdresse, t, 1)
            If IsNumeric(tegn) = True Then
                antalNum = antalNum + 1
            Else
                antalNum = 0
            End If
           
            If antalNum = 4 Then
                postBy = Mid(ptAdresse, t)
                adresse = Left(ptAdresse, t - 1)
               
                Range("B" & ræk) = adresse
                Range("C" & ræk) = postBy
                Exit For
            End If
           
        Next t
    Next ræk
   
    Columns.AutoFit
    Application.ScreenUpdating = True
End Sub

Tusind tak hvordan giver jeg point?

Jeg har fundet ud af det nu, hvis du ligger et svar får du dine point.

Det gør jeg så..