Avatar billede andreasbo Nybegynder
21. februar 2012 - 15:23 Der er 5 kommentarer

Gps kordinater og Excel

Hey folks

Mangler (igen) hjælp til GPs koordinater. Hvordan får jeg indholdet af denne kolonne (a) delt ud på kolonne B og C (længdegrad i en kolonne og breddegrad i en - skal ikke bruge adressen).

Tekst til kolonner funktionen i Excel ødelægger nogle data ved at ændre 55.xxxxxxx til 5.xxxxxxx

Jeg kører dansk Excel - nyeste version

55.802114,12.381846,"Frederiksborgvej 101, 3500 Værløse",-,
56.02981,12.600652,"Kongevejen 39, 3000 Helsingør",-,
55.702112,12.582412,"Nordre Frihavnsgade 50, 2100 København Ø",-,
55.702112,12.582412,"Nordre Frihavnsgade 50, 2100 København Ø",-,
55.711156,12.569316,"Vennemindevej 38, 2100 København Ø",-,
55.711156,12.569316,"Vennemindevej 38, 2100 København Ø",-,
55.686481,12.448376,"Grønbækvej 14, 2610 Rødovre",-,
55.769694,12.192957,"Lerbakken 3, Ganløse, 3660 Stenløse",-,
56.137415,8.97689,"Industrivænget 5, Lind, 7400 Herning",-,
55.190668,10.755791,"Vormark Bygade 35, 5874 Hesselager",-,
55.678238,12.581538,"Nikolaj Plads 11, 1067 København K",-,
55.046987,12.056962,"Lilliendalsvej 10, 4735 Mern",-,
55.678004,12.567901,"Studiestræde 41, 1455 København K",-,
55.593955,12.67322,"Kongevejen 20, 2791 Dragør",-,
55.311885,10.791974,"Mellemgade 31, 5800 Nyborg",-,
55.685083,12.567967,"Frederiksborggade 29, 1360 København K",-,
55.680938,12.534057,"Falkoner Alle 19, 2000 Frederiksberg",-,
55.95853,11.853035,"Strandvejen 7 G, 3390 Hundested",-,
55.009221,11.907852,"Algade 79, 4760 Vordingborg",-,

mvh
Andreas
Avatar billede supertekst Ekspert
21. februar 2012 - 15:51 #1
Dim antalRæk As Integer, kolA() As String
Sub adskil()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row

    For ræk = 1 To antalRæk
        kolA = Split(Range("A" & ræk), ",")
       
        Range("B" & ræk) = kolA(0)
        Range("C" & ræk) = kolA(1)
       
    Next ræk
   
    Columns.AutoFit
End Sub
Avatar billede andreasbo Nybegynder
21. februar 2012 - 18:50 #2
Har prøvet at fyre det af i VB. Får fejlmeddelelse Subscript out of range. Er ikke VB haj. Hvor meget skal jeg rette i dit forslag for at det virker. Kan det kun klares i VB?

/Andreas
Avatar billede kabbak Professor
21. februar 2012 - 19:39 #3
koden er ok, hvis du har makeret første celle, inden du kører den

Dim antalRæk As Integer, kolA() As String
Sub adskil()
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row

    For ræk = ActiveCell.Row To antalRæk' RETTET
        kolA = Split(Range("A" & ræk), ",")
       
        Range("B" & ræk) = kolA(0)
        Range("C" & ræk) = kolA(1)
       
    Next ræk
   
    Columns.AutoFit
End Sub
Avatar billede andreasbo Nybegynder
21. februar 2012 - 20:59 #4
Næsten, den deler det godt nok fint op, men så opstår det problem, at punktummerne ændres til kommaer. Husker man at formatere destinationskolonnerne inden til tekst æder den det fint, og jeg er nu i hus. Takker for hjælpen

/A
Avatar billede supertekst Ekspert
21. februar 2012 - 21:07 #5
Selv tak
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester