Hallo zusammen,
ich laufe hier gerade in ein Problem, wo ich noch keine Lösung für habe.
Ich habe eine Textbox, in der die Adresse in diesem Format steht:
Land, Straße Hnr, PLZ Ort
Nun habe ich festgestellt, dass Google mit manchen Straßennamen nicht klar kommt, wenn sie aus 2 Wörtern bestehen... z.B. Zur Wilhelmshöhe 21.
Wenn ich den String manuell ändere in: "Zur Wilhelmshöhe 21", dann kann Google das umsetzen.... Warum? Keine Ahnung.
Also habe ich mir gedacht, ich splitte den String einfach auf mit:
Als Ausgabe in der MsgBox kommt damit dann z.B: Deutschland, " & subStart(1)& ", PLZ Ort
Wie kann ich das ändern, dass die Anführungszeichen mit übergeben werden?
Viele Grüße
Rigattoni
ich laufe hier gerade in ein Problem, wo ich noch keine Lösung für habe.
Ich habe eine Textbox, in der die Adresse in diesem Format steht:
Land, Straße Hnr, PLZ Ort
Nun habe ich festgestellt, dass Google mit manchen Straßennamen nicht klar kommt, wenn sie aus 2 Wörtern bestehen... z.B. Zur Wilhelmshöhe 21.
Wenn ich den String manuell ändere in: "Zur Wilhelmshöhe 21", dann kann Google das umsetzen.... Warum? Keine Ahnung.
Also habe ich mir gedacht, ich splitte den String einfach auf mit:
Visual Basic-Quellcode
- '####################################
- '### Entfernung ermitteln
- '####################################
- Private Sub ButtonEntfernung_Click()
- Dim strZiel As String, strStart As String, strBerechnung As String, subStart() As String
- 'Start und Zieladresse ermitteln
- subStart = Split(AdressBox.Text, ",")
- strStart = subStart(0) & ", " & """ & subStart(1)& """ & ", " & subStart(2)
- strZiel = "Straßenname Strasse 63,PLZ Ort " '<---- Hier steht natürlich die richtige Zieladresse
- MsgBox strStart
- 'Übergabe der Daten an Google
- Call GetDistance(strStart, strZiel)
- 'Rückgabe der Entfernung von Google in Meter. Teiler 1000 um auf km zu kommen.
- strBerechnung = (GetDistance(strStart, strZiel) / 1000)
- 'Ausgabe der Entfernung gerundet in KM
- BoxEntfernung.Value = (WorksheetFunction.Round(strBerechnung, 0) & " " & "km")
- End Sub
Als Ausgabe in der MsgBox kommt damit dann z.B: Deutschland, " & subStart(1)& ", PLZ Ort
Wie kann ich das ändern, dass die Anführungszeichen mit übergeben werden?
Viele Grüße
Rigattoni