Excel Macro fuer Koordinatenconvertierung in OO

[Karolus]

Hallo

Gib bitte Bescheid ob http://www.oooforum.org/forum/viewtopic ... 420#472420 geholfen hat!

Karo

[bst]

Morgen,

wenn da immer Leerzeichen dazwischen stehen sollte so etwas ausreichen.

Übrigens, der VBA Code funktioniert so nicht, da fehlt eine Zeile, oder?

cu, Bernd
--

Code: Alles auswählen

Function WechselnD(ByVal DMS As String)
	ar = Split(DMS, " ")
	for i = 0 to 2
       faktor = choose(i+1, 1, 60, 3600)
       x = x + val(ar(i)) / faktor
	next
	WechselnD = x
End function