AW: Werte aus String mit Zeilenumbruch filtern
17.02.2011 11:44:12
fcs
Hallo Jan,
z.B. wie folgt. Den Textstring muss du in meinem Beispiel der Variablen sTest zuordnen.
Gruß
Franz
Sub abTest()
Dim sTest As String, sLG As String, sBG As String, dblLG As Double, dblBG As Double
sTest = "Breitengrad: 52.516269 (52° 30' 58.57'' N)" & Chr(10) _
& "Längengrad: 13.377778 (13° 22' 40.00'' E)"
'Text mit Breitengrad, Längengrad extrahieren
sBG = Left(sTest, InStr(sTest, ")"))
sBG = Mid(sBG, 14)
sBG = Left(sBG, InStr(sBG, " ") - 1)
sLG = Mid(sTest, InStr(sTest, "Längengrad:") + 12)
sLG = Left(sLG, InStr(sLG, " ") - 1)
MsgBox "BG: " & sBG & vbLf & "LG: " & sLG
'Cells(1, 1) = "'" & sBG
'Cells(1, 2) = "'" & sLG
'Text-Werte in Zahlen umwandeln (Ländereinstellungen in Systemsteuerung = Deutschland)
dblBG = CDbl(Replace(sBG, ".", ","))
dblLG = CDbl(Replace(sLG, ".", ","))
MsgBox "BG: " & dblBG & vbLf & "LG: " & dblLG
'Cells(2, 1) = dblBG
'Cells(2, 2) = dblLG
End Sub