Wie kann ich Touren von Kurviger nach Sygic exportieren?

Kurviger bietet mittlerweile eine Sygic Export Funktion an. Das Excelskript wird also nicht mehr benötigt.

Ich belasse das Excelskript hier im Wiki, falls jemand mal Koordinaten ins Sygic Format umwandeln möchte.

Da der direkte Export von kurviger Routen zu Sygic leider (noch) nicht funktioniert, habe ich dafür ein kleines Excel-Tool erstellt.

Das Makro in der Excel-Datei konvertiert die von kurviger.de erstellten Touren im Format Navigon Mobile Navigator URL (.txt) in das Sygic URL Format.

So können die online erstellten Touren weiterhin einfach in Sygic importiert werden.

Ich hoffe das Tool funktioniert bei euch, ansonsten könnt ihr euch gerne im Forum melden.

1. Tour erstellen und als Navigon Mobile Navigator URL (.txt) exportieren
2. Exportierte Datei öffnen und Inhalt kopieren
3. Kopierten Text neben Navigon URL (in die Zelle C5) einfügen
4. Schalter Konvertieren (Convert) anklicken
5. Die Sygic URL befindet sich bereits im Zwischenspeicher
6. Sygic URL per E-Mail (oder ähnlichem) ans Handy schicken
7. URL auf dem Handy öffnen, die Route sollte in Sygic geöffnet werden

Die Excel-Datei mit dem Makro kann hier heruntergeladen werden.

Wer das Makro in Excel lieber selbst einfügen, oder sich den Code vor dem Download anschauen möchte, kann das hier gerne tun.

Sub convert()
'
' Navigon Link kopieren und in Sygic zelle einfuegen
'

'
    Range("C5").Select
    Selection.Copy
    Range("C7").Select
    ActiveSheet.Paste
    
'
' Header austauschen
'

'
    Worksheets("Tabelle1").Range("C7").Replace What:="navigon://route/?target=coordinate//", Replacement:= _
        "com.sygic.aura://coordinate|", LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'
' Einleitung neuer Koordinate austauschen
'

'
    Worksheets("Tabelle1").Range("C7").Replace What:="&target=coordinate//", Replacement:="|", LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

'
' Trennung Laengen- und Breitengrad austauschen
'

'
    Worksheets("Tabelle1").Range("C7").Replace What:="/", Replacement:="|", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'
' Header korrigieren
'

'
    Worksheets("Tabelle1").Range("C7").Replace What:="||", Replacement:="//", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

'
' Footer in Navigon Link einfuegen
'

'
    Range("C7").Select
    ActiveCell.Value = ActiveCell.Value & "|drive"
    Selection.Copy
End Sub