Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Hyperlink öffnen - URL in Zelle

Betrifft: Hyperlink öffnen - URL in Zelle von: Mister B
Geschrieben am: 13.07.2008 16:20:30

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

  

Betrifft: wshshell.Run [A1] oT von: Backowe
Geschrieben am: 13.07.2008 16:24:12




  

Betrifft: Oder noch etwas kürzer von: Backowe
Geschrieben am: 13.07.2008 16:29:36

Hi,

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

Code eingefügt mit Syntaxhighlighter 4.15


Gruss Jürgen


  

Betrifft: AW: Oder noch etwas kürzer von: Mister B
Geschrieben am: 13.07.2008 16:34:31

Hallo Backowe,

das klappt super. Aber was ist wenn die URL in einer anderen Tabelle ist?

z.B. Sheets("Lebensalter"). Range("K54")



Gruß
Martin


  

Betrifft: Dann so! ;o) von: Backowe
Geschrieben am: 13.07.2008 16:37:29

Hi Martin,

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

Code eingefügt mit Syntaxhighlighter 4.15


Gruss Jürgen


  

Betrifft: Perfekt! von: Mister B
Geschrieben am: 13.07.2008 16:40:38

Danke Jürgen,

einen schönen Sonntag noch!

Gruß
Martin


 

Beiträge aus den Excel-Beispielen zum Thema "Hyperlink öffnen - URL in Zelle"