Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Links mit unterschiedlichen Browsern öffnen

Links mit unterschiedlichen Browsern öffnen
11.10.2018 09:43:02
Gunter
Hallo Zusammen
In einer Tabelle habe ich Links die je nach dem an welchem PC sie geöffnet werden mit dem jeweiligen Standardbrowser geöfffnet werden. Da sie aber nur mit mit Firefox gut aussehen, möchte ich, dass der Link immer mit Firefox geöffnet wird, ohne dass der Standardbrowser geändert werden muss!
Für zweckdienliche Hinweise herzlichen Dank.
Gruss
Gunter

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Das kannst Du so...
11.10.2018 10:15:43
Case
Hallo, :-)
... lösen: ;-)
Option Explicit
#If Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(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
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
#End If
Public Sub Main()
ShellExecute 0, "Open", "Firefox", "https://www.herber.de/forum", "", 1
End Sub
Servus
Case
Anzeige
AW: Das kannst Du so...
11.10.2018 10:38:01
Gunter
Hallo Case
Vielen Dank für deine Antwort!
Das funktioniert prima mit einer Website.
Nun besteht mein Problem darin, dass der Link auf eine html Seite auf einem Netzwerklaufwerk zeigt und im Pfadnamen leider Leerzeichen enthalten sind. Zumindest wird beim Ausführen der Sub ein Browser Fenster mit vier Tabs geöffnet, geht das noch zu ändern?
Danke und Gruss
Gunter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
2
2
34