Per VBA Text aus der Zelle in eine URL schreiben und öffnen

[!NeXT]

Hallo CB Community
Ich habe mal wieder eine Frage zu VBA und Excel...
Ich würde gerne einen Wert aus einer Zelle kopieren und diesen in einen vorhanden Link schreiben. Danach sollte sich wenn möglich diese URL automatisch im Browser öffnen. Der Makrorecorder konnte mir leider auch nicht weiterhelfen.
Zur Veranschaulichung:

Ich möchte die Tracking ID (Beispiel Range A1) Kopieren ...

Und hinter dem "...match=" des folgenden Links schreiben schreiben:
gls-group.eu/DE/de/paketverfolgung?match=

Ist das machbar?
Ich bin leider zu doof.

 

[Rego]

das Anhängen geht auch ohne VBA
dazu kannst Du einfach mit verketten arbeiten
=verketten("http://www.gls-group.eu/DE/de/paketverfolgung?match=";A1")

 

[!NeXT]

das Anhängen geht auch ohne VBA
dazu kannst Du einfach mit verketten arbeiten
=verketten("http://www.gls-group.eu/DE/de/paketverfolgung?match=";A1")

Super! Das ist schonmal nicht schlecht.
Aber ich würde das ganze gerne per VBA realisieren, da ich die fertige Funktion gerne per Knopfdruck starten möchte und sich der Link im Internet öffnen soll

 

[Scientist]

Erster Google-Treffer

Sub herber()
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run "www.herber.de/"
End Sub

 

[!NeXT]

Erster Google-Treffer

Sub herber()
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run "www.herber.de/"
End Sub

Wenn ich euch hier im Forum nicht hätte wär mein Kopf schon Brei...
Aber eine Frage hab ich noch ... Wie kann ich denn nun meinen Zelleninhalt an das Ende der Funktion schreiben?
Tut mir wirklich Leid das ich so blöd bin.. (Habe nach dem ganzen bestimmt ne halbe Stunde gegeoogelt und nichts gefunden.. Ich glaub heute ist nicht mein Tag...)

Ergänzung (29. August 2018)

Ahhh Ok... Ich hab ein wenig Probiert.. Bin aber nicht ganz zum Ziel gekommen.
Ich habe mit dem Verketten nun folgende Formel "gebaut"

=VERKETTEN("http://www.gls-group.eu/DE/de/paketverfolgung?match=";C90)

Das blöde ist nur, dass ich die Formel auf einem anderen Tabellenblatt nutzen will.
Das bedeutet das ich gerne anstatt <Hilfe> mein Tabellenpfad also: Berechnungen!G90 hinschreiben möchte, da sich bei G90 die funktionierende Verkettenformel befindet.

Sub Paketverfolgung()
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run <HILFE>
End Sub

Ich hoffe ich hab mich verständlich genug ausgedrückt

 

[Scientist]

Sowie man jeden Text in VBA verknuepft ...

dim text as string
text = Tabelle1.Range("A1").text & "text"
'oder mit "+" statt "&"; komme da immer durcheinander

 

[!NeXT]

Ich bekomm immer nen Fehler..
Ich komm mir echt blöd vor XD

Sub Paketverfolgung()
Dim text As String
text = Berechnungen.Range("G90").text & "text"
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run text
End Sub

Ergänzung (29. August 2018)

Haha
Ich hab jetzt wie wild auf die Tasten gehauen und siehe da... Funktionert.
Also für alle die es intressiert, so funktionierts jetzt:

Sub Paketverfolgung()
Dim text As String
text = Tabelle6.Range("G90")
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run text
End Sub

Ganz lieben Dank an Scientist! Ohne dich hätt ichs mit sicherheit nicht hin bekommen.
Wenn man sich sieht, geb ich dir n Bier aus
Viele Grüße,
Dustin

 

[Scientist]

Du bist ein bisschen unkonzentriert, oder?

Wenn in Zelle G90 schon die komplette URL enthalten ist, musst du ja nichts weiter in der VBA-Ebene verknuepfen ...
also kannst du die Zeile 2 und 3 weglassen (zu mal "Text" ein Beispiel war und deine URL versaut ...)

Sub Paketverfolgung()
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run Berechnungen.Range("G90").text
End Sub

Das sollte aber kein Fehler produzieren ...

Steht bei dir dort "Berechnungen"? Ansonsten funktioniert diese Schreibweise nicht.

PS: Auch wenn es hier jetzt nicht zu traf: "www" bzw "https://www" erforderlich.