Musterlösungen - Versionsgeschichte

Pwania am 28. Januar 2023 um 00:35 Uhr

2023-01-28T00:35:46Z

← Nächstältere Version		Version vom 28. Januar 2023, 00:35 Uhr
Zeile 1:		Zeile 1:
			[[Category:vba-wiki]]
	Die folgenden Musterlösungen sollen nicht als 'Standardlösungen' gelten, sondern lediglich die Suche nach passenden Beispielen zu ganz speziellen Aufgaben darstellen.		Die folgenden Musterlösungen sollen nicht als 'Standardlösungen' gelten, sondern lediglich die Suche nach passenden Beispielen zu ganz speziellen Aufgaben darstellen.

Pwania: /* Hyperlink öffnen */

2018-11-15T10:55:42Z

Hyperlink öffnen

← Nächstältere Version		Version vom 15. November 2018, 10:55 Uhr
Zeile 48:		Zeile 48:

	<span style="Color:green">' WICHTIG: Der Hyperlink muss mit 'http://' bzw. 'https://' beginnen!</span>		<span style="Color:green">' WICHTIG: Der Hyperlink muss mit 'http://' bzw. 'https://' beginnen!</span>
	<span style="Color:blue"> If </span>InStr<span style="Color:gray">(</span>strHyperlink<span style="Color:gray">,</span> <span style="Color:gray">"http",</span> vbTextCompare<span style="Color:gray">)</span> <span style="Color:gray">=</span> <span style="Color:gray">0</span><span style="Color:blue"> Then~~</span>~~		<span style="Color:blue"> If </span>InStr<span style="Color:gray">(1,</span> strHyperlink<span style="Color:gray">,</span> <span style="Color:gray">"http",</span> vbTextCompare<span style="Color:gray">)</span> <span style="Color:gray">=</span> <span style="Color:gray">0</span><span style="Color:blue"> Then
	strHyperlink <span style="Color:gray">=</span> <span style="Color:gray">"http://"</span> & strHyperlink		strHyperlink <span style="Color:gray">=</span> <span style="Color:gray">"http://"</span> & strHyperlink
	<span style="Color:blue"> End If</span>		<span style="Color:blue"> End If</span>

Pwania: /* Hyperlink öffnen */

2018-11-15T10:08:36Z

Hyperlink öffnen

← Nächstältere Version		Version vom 15. November 2018, 10:08 Uhr
Zeile 30:		Zeile 30:

	== Hyperlink öffnen ==		== Hyperlink öffnen ==

			Öffnet den Hyperlink im Standard-Browser. Wenn dieser schon läuft, wird ein neuer Reiter geöffnet.

	Im Kopf des (Klassen-)Moduls (unter 'Option Explicit'):		Im Kopf des (Klassen-)Moduls (unter 'Option Explicit'):
Zeile 44:		Zeile 46:

	<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 <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">		<span style="Color:green">' WICHTIG: Der Hyperlink muss mit 'http://' bzw. 'https://' beginnen!</span>
	End Sub</span~~><span style="Color:gray"~~>		<span style="Color:blue"> If </span>InStr<span style="Color:gray">(</span>strHyperlink<span style="Color:gray">,</span> <span style="Color:gray">"http",</span> vbTextCompare<span style="Color:gray">)</span> <span style="Color:gray">=</span> <span style="Color:gray">0</span><span style="Color:blue"> Then</span>
			strHyperlink <span style="Color:gray">=</span> <span style="Color:gray">"http://"</span> & strHyperlink
			<span style="Color:blue"> End If</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> <span style="Color:gray">"",</span> <span style="Color:gray">1</span><span style="Color:blue">
			End Sub</span>

Pwania: /* Datei in seinem Programm öffnen */

2018-11-15T10:05:15Z

Datei in seinem Programm öffnen

← Nächstältere Version		Version vom 15. November 2018, 10:05 Uhr
Zeile 28:		Zeile 28:
	ShellExecute <span style="Color:gray">0,</span> <span style="Color:gray">"Open",</span> strFullName<span style="Color:gray">,</span> <span style="Color:gray">"",</span> <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> strFullName<span style="Color:gray">,</span> <span style="Color:gray">"",</span> <span style="Color:gray">"",</span> <span style="Color:gray">1</span><span style="Color:blue">
	End Sub		End Sub

	== Hyperlink öffnen ==		== Hyperlink öffnen ==

Pwania am 15. November 2018 um 10:04 Uhr

2018-11-15T10:04:44Z

← Nächstältere Version		Version vom 15. November 2018, 10:04 Uhr
Zeile 9:		Zeile 9:
	Öffnet die angegebene Datei in dem Programm, welches dafür vorgesehen ist. Eine Textdatei wird zum Beispiel standardmäßig im Notepad geöffnet.		Öffnet die angegebene Datei in dem Programm, welches dafür vorgesehen ist. Eine Textdatei wird zum Beispiel standardmäßig im Notepad geöffnet.

			Im Kopf des (Klassen-)Moduls (unter 'Option Explicit'):

			<span style="Color:gray">#</span><span style="Color:blue">If </span>VBA<span style="Color:gray">7</span><span style="Color:blue"> Then</span>
			<span style="Color:blue"> Private </span>Declare PtrSafe<span style="Color:blue"> Function </span>ShellExecute Lib <span style="Color:gray">"shell32.dll"</span> Alias <span style="Color:gray">"ShellExecuteA"</span> <span style="Color:gray">(</span><span style="Color:blue">ByVal </span>hwnd<span style="Color:blue"> As Long</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strOperation<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strFile<span style="Color:blue"> As String</span><span style="Color:gray">,</span> _<span style="Color:blue">
			ByVal </span>strParameters<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strDirectory<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>lngShowCmd<span style="Color:blue"> As Long</span><span style="Color:gray">)</span><span style="Color:blue"> As Long</span>
			<span style="Color:gray">#</span><span style="Color:blue">Else</span>
			<span style="Color:blue"> Private </span>Declare<span style="Color:blue"> Function </span>ShellExecute Lib <span style="Color:gray">"shell32.dll"</span> Alias <span style="Color:gray">"ShellExecuteA"</span> <span style="Color:gray">(</span><span style="Color:blue">ByVal </span>hwnd<span style="Color:blue"> As Long</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strOperation<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strFile<span style="Color:blue"> As String</span><span style="Color:gray">,</span> _<span style="Color:blue">
			ByVal </span>strParameters<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>strDirectory<span style="Color:blue"> As String</span><span style="Color:gray">,</span><span style="Color:blue"> ByVal </span>lngShowCmd<span style="Color:blue"> As Long</span><span style="Color:gray">)</span><span style="Color:blue"> As Long</span>
			<span style="Color:gray">#</span><span style="Color:blue">End If</span>

			Dazu passend die Prozedur:

			<span style="Color:blue">Public Sub </span>OpenFile<span style="Color:gray">(</span><span style="Color:blue">ByVal </span>strFullName<span style="Color:blue"> As String</span><span style="Color:gray">)</span>

			<span style="Color:green">' Prüfen, ob diese Datei existiert</span>
			<span style="Color:blue"> If </span>Dir<span style="Color:gray">(</span>strFullName<span style="Color:gray">)</span> <span style="Color:gray">=</span> <span style="Color:gray">""</span><span style="Color:blue"> Then Exit Sub</span>

			ShellExecute <span style="Color:gray">0,</span> <span style="Color:gray">"Open",</span> strFullName<span style="Color:gray">,</span> <span style="Color:gray">"",</span> <span style="Color:gray">"",</span> <span style="Color:gray">1</span><span style="Color:blue">
			End Sub

	== Hyperlink öffnen ==		== Hyperlink öffnen ==

Pwania: /* Datei in seinem Programm öffnen */

2018-11-15T10:00:42Z

Datei in seinem Programm öffnen

← Nächstältere Version		Version vom 15. November 2018, 10:00 Uhr
Zeile 7:		Zeile 7:
	== Datei in seinem Programm öffnen ==		== Datei in seinem Programm öffnen ==

			Öffnet die angegebene Datei in dem Programm, welches dafür vorgesehen ist. Eine Textdatei wird zum Beispiel standardmäßig im Notepad geöffnet.

	== Hyperlink öffnen ==		== Hyperlink öffnen ==

Pwania: /* Hyperlink öffnen */

2018-11-15T09:56:45Z

Hyperlink öffnen

← Nächstältere Version		Version vom 15. November 2018, 09:56 Uhr
Zeile 4:		Zeile 4:

	Diese Lösungsvorschläge sind anwendungsunabhängig, wodurch sie also in Excel, PowerPoint und Word einsetzbar sind.		Diese Lösungsvorschläge sind anwendungsunabhängig, wodurch sie also in Excel, PowerPoint und Word einsetzbar sind.

			== Datei in seinem Programm öffnen ==



	== Hyperlink öffnen ==		== Hyperlink öffnen ==

Pwania: /* Hyperlink öffnen */

2018-11-15T09:55:30Z

Hyperlink öffnen

← Nächstältere Version		Version vom 15. November 2018, 09:55 Uhr
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">

Pwania: /* Hyperlink öffnen */

2018-11-15T09:54:18Z

Hyperlink öffnen

← Nächstältere Version		Version vom 15. November 2018, 09:54 Uhr
Zeile 7:		Zeile 7:
	== Hyperlink öffnen ==		== Hyperlink öffnen ==

	Im Kopf des (Klassen-)Moduls (unter 'Option Explicit':		Im Kopf des (Klassen-)Moduls (unter 'Option Explicit'):

	<span style="Color:gray">#</span><span style="Color:blue">If </span>VBA<span style="Color:gray">7</span><span style="Color:blue"> Then</span>		<span style="Color:gray">#</span><span style="Color:blue">If </span>VBA<span style="Color:gray">7</span><span style="Color:blue"> Then</span>

Pwania: Die Seite wurde neu angelegt: „Die folgenden Musterlösungen sollen nicht als 'Standardlösungen' gelten, sondern lediglich die Suche nach passenden Beispielen zu ganz speziellen Aufgaben da…“

2018-11-15T09:54:01Z

Die Seite wurde neu angelegt: „Die folgenden Musterlösungen sollen nicht als 'Standardlösungen' gelten, sondern lediglich die Suche nach passenden Beispielen zu ganz speziellen Aufgaben da…“

Neue Seite

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