Please note, Kurviger can export routes for Sygic now. The excel list should not be required anymore.
I will leave excel list script below, if anyone might need to convert coordinates to Sygic from a different source.
Unfortunately the direct export of kurviger routes to Sygic does not work (yet), so I created a small excel-tool.
The script in the Excel file converts the tours created by kurviger.de from the format Navigon Mobile Navigator URL (.txt)
in the Sygic URL format.
In this way the tours created online can still easily be imported into Sygic.
I hope the tool works for you, otherwise you are welcome to contact me in the forum.
Convert
buttonThe Excel file with the macro can be downloaded here.
If you prefer to insert the macro yourself in Excel, or if you would like to view the code before downloading, you are welcome to do so here.
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