Musterlösungen: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
Pwania (Diskussion | Beiträge) |
Pwania (Diskussion | Beiträge) |
||
| Zeile 20: | Zeile 20: | ||
<span style="Color:blue">Public Sub </span>FollowHyperlink<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strHyperlink<span style="Color:blue"> As String</span><span style="Color:gray">)</span> | <span style="Color:blue">Public Sub </span>FollowHyperlink<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strHyperlink<span style="Color:blue"> As String</span><span style="Color:gray">)</span> | ||
<span style="Color:green">' WICHTIG: Der Hyperlink muss mit 'http://' bzw. 'https://' beginnen!</span> | <span style="Color:green">' WICHTIG: Der Hyperlink muss mit <nowiki>'http://' bzw. 'https://'</nowiki> beginnen!</span> | ||
ShellExecute <span style="Color:gray">0,</span> <span style="Color:gray">"Open",</span> <span style="Color:gray">"Explorer.exe",</span> <span style="Color:gray">"/e,"</span> & strHyperlink<span style="Color:gray">,</span> vbNullString<span style="Color:gray">,</span> <span style="Color:gray">1</span><span style="Color:blue"> | ShellExecute <span style="Color:gray">0,</span> <span style="Color:gray">"Open",</span> <span style="Color:gray">"Explorer.exe",</span> <span style="Color:gray">"/e,"</span> & strHyperlink<span style="Color:gray">,</span> vbNullString<span style="Color:gray">,</span> <span style="Color:gray">1</span><span style="Color:blue"> | ||
End Sub</span><span style="Color:gray"> | End Sub</span><span style="Color:gray"> | ||
Version vom 15. November 2018, 09:55 Uhr
Die folgenden Musterlösungen sollen nicht als 'Standardlösungen' gelten, sondern lediglich die Suche nach passenden Beispielen zu ganz speziellen Aufgaben darstellen.
Bei diesen Musterlösungen wird auf eine ausführliche Erklärung größtenteils verzichtet. Hier geht es nicht wie sonst in diesem Wiki um das Verständnis, sondern um eine funktionierende Lösung, die man gleich verwenden kann ;-)
Diese Lösungsvorschläge sind anwendungsunabhängig, wodurch sie also in Excel, PowerPoint und Word einsetzbar sind.
Hyperlink öffnen
Im Kopf des (Klassen-)Moduls (unter 'Option Explicit'):
#If VBA7 Then Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal strOperation As String, ByVal strFile As String, _ ByVal strParameters As String, ByVal strDirectory As String, ByVal lngShowCmd As Long) As Long #Else Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal strOperation As String, ByVal strFile As String, _ ByVal strParameters As String, ByVal strDirectory As String, ByVal lngShowCmd As Long) As Long #End If
Dazu passend die Prozedur:
Public Sub FollowHyperlink(ByVal strHyperlink As String) ' WICHTIG: Der Hyperlink muss mit 'http://' bzw. 'https://' beginnen! ShellExecute 0, "Open", "Explorer.exe", "/e," & strHyperlink, vbNullString, 1 End Sub