Autor: Peter Haserodt  --- Aus Excel VBA - Gruppe: Verschiedenes

Mit Labelklick Webadresse aufrufen

Autor: Peter Haserodt - Erstellt: --      - Letzte Revision: --
Ein KLick auf das Label öffnet die entsprechende Internetseite.


' **************************************************************
'  Modul:  UserForm1  Typ = Userform
' **************************************************************

Option Explicit
'*********************************************
' Steuerelemente: Ein Label mit Namen Label1
'*********************************************

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
	
Private Sub Label1_Click()
	Dim iErfolg As Long
	iErfolg = ShellExecute(0, "open", _
	Label1.Caption, _
	vbNullString, vbNullString, vbNormalFocus)
	If iErfolg < 33 Then _
		MsgBox "Kein Zugriff auf Standardbrowser ", vbExclamation
End Sub
	
Private Sub UserForm_Initialize()
	Label1.Caption = "http://www.online-excel.de/"
End Sub

Weitere Artikel der Gruppe: Verschiedenes Aus Excel VBA
Nach oben