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