einen hab ich noch:
Mit einer Benutzerdefinierten Funktion, Makros muss man zulassen, geht es auch:
Folgende beiden functions in der Standard Makro Bibliothek ablegen:
Code: Alles auswählen
function LAENGE(sText)
aLAENGE = SPLIT(REPLACE( REPLACE(REPLACE(REPLACE(sText,"°",";"),"'",";"),"""","")," ",""),";")
LAENGE = cdbl(aLAENGE(0))+(cdbl(aLAENGE(1))/60)+(cdbl(aLAENGE(2))/3600)
end function
function BREITE(sText)
aBREITE = SPLIT(REPLACE( REPLACE(REPLACE(REPLACE(sText,"°",";"),"'",";"),"""","")," ",""),";")
BREITE = cdbl(aBREITE(3))+(cdbl(aBREITE(4))/60)+(cdbl(aBREITE(5))/3600)
end function
Code: Alles auswählen
=LAENGE(D2)
Code: Alles auswählen
=BREITE(D2)
Gruß R