Clever-Excel-Forum

Bitte um Hilfe :
Wie kann ich via VBA die Internet Seite mit einem Button von Weltsparen öffnen ??
Vielen Dank für Eure Hilfe
DAnke für Eure Hilfe

Gruß Gerhard

Hallo Gerhard,

wenn Du einfach nur Internetseiten z.B. mit Deinem Standard-Browser öffnen möchtest, ohne später per VBA auf irgendwelche Daten zugreifen zu wollen, bietet sich die Shellexecute-Funktion an.

Diese gibt es über die Window-API oder über die Shell. Such Dir was aus....

Code:

Private Declare PtrSafe Function ShellExecuteA Lib "Shell32.dll" ( _
        ByVal hwnd As LongPtr, ByVal lpOperation As String, _
        ByVal lpFile As String, ByVal lpParameters As String, _
        ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr

Sub Web_Site_Open_API()
  '9 = SW_RESTORE
  ShellExecute 0&, "Open", "https://www.clever-excel-forum.de/Thread...BA-oeffnen", 0, 0, 9
End Sub


Sub Web_Site_Open_Shell()
  With CreateObject("Shell.Application")
       .ShellExecute "https://www.clever-excel-forum.de/Thread...BA-oeffnen", "", "", "Open", 4
  End With
End Sub

_________
viele Grüße
Karl-Heinz

Hallo,

tja, wenn man mal schnell nachträglich was ändert.....

Es muss natürlich so sein:

Code:

Sub Web_Site_Open_API()
  '9 = SW_RESTORE
  ShellExecuteA 0&, "Open", "https://www.clever-excel-forum.de/Thread...BA-oeffnen", 0, 0, 9
End Sub

_________
viele Grüße
Karl-Heinz

Ein Hyperlink wäre auch ein denkbarer Ansatz.

nicht nur denkbar, doch der beste Ansatz.

derhard

volti

volti

EarlFred

snb