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.
Navigon Mobile Navigator URL (.txt)
exportierenDie 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