HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal

Thema: Hyperlink öffnen - URL in Zelle

Hyperlink öffnen - URL in Zelle
Mister

Hallo,
folgendes Makro habe ich im Forum gefunden womit man Internet Explorer öffnet und eine bestimmte Webseite anzeigt. 


Private Sub CommandButton1_Click()
Shell "C:\Programme\Internet Explorer\iexplore.exe", vbMaximizedFocus
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "www.herber.de/"
End Sub


Es klappt super aber wir kriege ich es hin, dass eine Webseite angezeigt wird deren URL in eine Zelle steht. z.B. Tabelle1, A1
Danke und Gruß
Martin

wshshell.Run [A1] oT
Backowe

Oder noch etwas kürzer
Backowe

Hi,
VBA-Code:
Private Sub CommandButton1_Click()
Dim a
a = Shell("C:\Programme\Internet Explorer\iexplore.exe " & [A1], vbMaximizedFocus)
End Sub
Gruss Jürgen

AW: Oder noch etwas kürzer
Mister

Hallo Backowe,
das klappt super. Aber was ist wenn die URL in einer anderen Tabelle ist?
z.B. Sheets("Lebensalter"). Range("K54")
Gruß
Martin

Dann so! ;o)
Backowe

Hi Martin,
VBA-Code:
Private Sub CommandButton1_Click()
Dim a
a = Shell("C:\Programme\Internet Explorer\iexplore.exe " & Sheets("Lebensalter").[K54], vbMaximizedFocus)
End Sub
Gruss Jürgen

Perfekt!
Mister

Danke Jürgen,
einen schönen Sonntag noch!
Gruß
Martin