Opdeling af celler

Ståpr der altid 23 H? Eller kan der også stå fx 23H?

i excel findes der inder menupunktet DATA noget der hedder tekst til kolonner - der kan du vælge kolonnen med adresserne og derefter tekst til kolonner og vælge fastbredde og så klikke der hvor du vil ha delt cellen

åh - fik ikke lige læst hele dit spm.

Hejsa jkrons

Det kan stå i alle formater og afskygninger som du kan finde på ;o)

med tekst til kollonner kan man jo vælge afgrænset og så angive at mellemrum skal være seperator.
Du får selvfølgelig nogle hvor vejnavne er delt i 2 men det tager velnok en del alligevel

ja den har jeg også tænkt på, men det kræver at jeg bagefter gennemgår temmelig mange adresse bagefter - som sagt vi snakker ca. 2000 og da jeg er en doven hund - så tænkte jeg at der måtte være en nemmere måde ;o)

Hvis der ikke er nogen systematik, er jeg bange for at den eneste vej er den manuelle. En makro eller en UDF (hjemmelavet funktion) kunne måske have løst problemet, men når der ingen systematik er, bliver det umuligt, fordi makroen så skal kunne forudse alle mulige og umulige forekomster, og disse skal så kodes ind.

Hvis der bare skal være en opsplitning så  vejnavn står for sig, er det forholdsvis let at håndtere.  Skal et evt. bogstav altid stå sammen med en evt. etage?

jeg er nu godt klar over at jeg kommer til at gøre noget af arbejdet manuelt.
MEn jeg havde en ide om at hvis man kunne danne en makro som splittede adressen ved første ciffer - jamen så er jeg nok noget 98% af vejen.
Men jeg er jo ikke den store makro ørn - så hvis der er nogen som kan skrive sådan en makro for mig så tror jeg det er løsningen.
Så jeg ville være meget langt med en opdeling af vejnavn og husnunmmer / etage

Prøv med denne makro:

Den forudsætter at adresserne står i B-kolonnen (B2:B2000) og skirver de nye ting i C, D og E så disse skal helst være tomm. fret selv kolonne og celler til noget, der passer dig. Prøv i en kopi først :-)

Sub AdrTilKol()
    For Each c In Range("B2:B2000").Cells
        If Not IsEmpty(c.Value) Then
            adr = c.Value
            For i = 1 To Len(adr)
                If IsNumeric(Mid(adr, i, 1)) Then
                    vej = Mid(adr, 1, i - 1)
                    Exit For
                End If
 
                rest = Mid(adr, i + 1, Len(adr))
                For h = 1 To Len(rest)
                    If Not IsNumeric(Mid(rest, h, 1)) Then
                        husnr = Mid(rest, 1, h - 1)
                        Exit For
                    End If
                Next h
                sidst = Mid(rest, h, Len(rest))
            Next i
        End If
        c.Offset(0, 1).Value = vej
        c.Offset(0, 2).Value = husnr
        c.Offset(0, 3).Value = sidst
    Next c
End Sub

hold kæft det var hurtigt  jeg kigger på det og vender tilbage

Det er bare i orden :-9

hejsa
den virkede 95 %
men alle de adresser hvor der ikke står noget efter husnummer.
F.eks Esplanaden 50 - der flytter den "kun" adressen og udelader derefter husnummer?
Hilsen
IDa

Lukker vi her?