Dele opp adressecelle automatisk. (excel2003)

[arnizzz]

Hei. jeg har massevis av celler i excel som inneholder adresser på dette formatet:

[<Gateadresse>, <postnummer> <poststed>]

 

Skulle gjerne ha delt opp de opp i tre forskjellige celler. Er det en autofunksjon for dette? Er det i mulig å gjøre dette automatisk? Har flere hundre som må endres.

 

[<Gateadresse>] [<postnummer>] [<poststed>]

 

 

Arnis.

[aadnk]

Du kan uten stor problematikk få dette til ved hjelp av VBA. Åpne koderedigeringsvinduet ved å klikke tastekombinasjonen ALT+F11, og legg til følgende i tekstvinduet:

 

Public Sub SplitColumn(srcColumn As Range, destRange As Range)

   Dim Cell As Range, aElements As Variant, aZip As Variant
   
   ' Gå gjennom alle celler i kildeområdet
   For Each Cell In srcColumn

       ' Segmenter strengen, slik at vi ekstrakter gateadresse
       aElements = Split(Cell.Text, ",", 2)
       
       ' Det resisterende elementet er postnummer og poststed
       aZip = Split(aElements(1), " ", 2)

       ' All data er nå hentet ut; sett destinasjonscellene
       destRange.Cells(Cell.Row, 1) = aElements(0)  ' Gateadresse
       destRange.Cells(Cell.Row, 2) = aZip(0) ' Postnummer
       destRange.Cells(Cell.Row, 3) = aZip(1) ' Poststed
       
   Next

End Sub

 

Dernest kan du splitte opp en ønsket kolonne ved å kjøre funksjonen SplitColumn. Dersom du eksempelvis ønsker å dele opp kolonnen A fra rad èn til 28, slik at sluttdata fyller kolonnene A, B og C; må du inkludere følgende i koderedigeringsvinduet:

 

Public Sub Main()

   SplitColumn Range("A1", "A28"), Range("A1", "C28")

End Sub

 

For å kjøre koden ovenfor, plasserer du markøren innenfor Main() og End Sub, hvorpå du deretter trykker på F5. Kolonnen skulle så være oppdelt riktig.