Code in Userform

Forumthread: Code in Userform
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Code in Userform

Code in Userform

04.08.2006 11:04:34

Benjamin

Hallo,
ich habe folgendes Problem:
Ich habe dank dem Forum hier einen Code bekommen um per Button in einem Userform eine Homepage aufzurufen, aber irgendwie bekomm ich das mit dem Code nicht hin.
Der Code ist:
'Homepage aufrufen


Private Sub Homepage_Click()
Sub Hyperlink_For_Homepage_Click()
ActiveWorkbook.FollowHyperlink <a href="Address:="http://www.web.de",">Address:="http://www.web.de",</a> NewWindow:=True
End Sub

Was muss ich denn hier abändern?
Besten Dank
Benjamin

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Code in Userform

04.08.2006 11:55:40

Emilia
AW: Code in Userform

04.08.2006 12:03:47

Benjamin
AW: Code in Userform

04.08.2006 12:07:48

fcs
AW: Code in Userform

04.08.2006 12:03:58

Doppelt

AW: Code in Userform

04.08.2006 11:55:40

Emilia


Sub Hyperlink_For_Homepage_Click()
ActiveWorkbook.FollowHyperlink <a href="Address:="http://www.web.de",">Address:="http://www.web.de",</a> NewWindow:=True
End Sub

'Private


Sub Homepage_Click() Das ist falsch, wenn ich das richtig sehe. Ich bin zwar kein Profi, aber zweimal 

Sub geht nicht
Gruß Emi- info ob es geht währe nett

AW: Code in Userform

04.08.2006 12:03:47

Benjamin

Hey das hat funktioniert
Danke Dir

AW: Code in Userform

04.08.2006 12:07:48

fcs

Hallo Benjamin,
Emilia hat recht du hast nur eine Sub die vom Button gestartet wird. Wenn der Name des Buttons "HomePage" ist, dann schaut das Makro so aus:


Private Sub HomePage_Click()
ActiveWorkbook.FollowHyperlink Address:="XXXX://www.web.de", NewWindow:=True
End Sub

Die "XXXX" in der Zeile muss du durch "http" ersetzen.
Gruß
Franz