Office: MsgBox mit Hyperlink

Hallo,

Ich habe derzeit folgenden VBA eintrag erstellt und möchte diesen erweitern...

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("f5") = "x" Then
MsgBox ("Message")
Exit Sub
End If
End Sub

... nun möchte ich zusätzlich einen Hyperlink in das popup einbauen. Und zwar sollte unterhalb der "Message" ein zusätzlicher text erscheinen (z.b. "Brauchen Sie nähere Details?" hinter welchem sich ein hyperlink verbirgt. beim anklicken dieses textes soll sich ein word dokument öffnen welches irgendwo abgespeichert ist (z.b. unter c\porgram files x86).

Ich arbeite mit office 2010.

kann mir jemand hier weiterhelfen?

Gruss
Michi

:)

 

Hi Michi,

mit einer MsgBox geht das nicht, da musst du schon ein UserForm z.B. mit einem Label (oder anderen Steuerelement) verwenden. Für das Label benutzt du dann das Click_Ereignis um das Worddokument zu öffnen.

 

Ich habe jetzt mal rausgefunden, wie ich das ganze umsetzen könnte wenn ich eine URL öffnen möchte. Für ein Word file mit Pfad funktioniert es aber nicht. wie könnte ich dies nun so umbauen, dass es ein word file öffnet (anstatt www.google.com)?

Private Sub Worksheet_Change(ByVal Target As Range)

Const strURL As String = "Google"

If Target.Address = Range("F5").Address Then
If UCase(Target) = "X" Then
If MsgBox("Du benötigst spezielle Berechtigungen - brauchst du mehr infos?", vbInformation + vbYesNo, "Check this out") = vbYes Then
Shell Environ("ComSpec") & " /c start " & strURL, vbMaximizedFocus
End If
End If
End If

End Sub

 

...warum sollte das nicht mit Messagebox gehen? Natürlich kann man den Link nicht direkt darauf verlinken, aber.... fragen wird man ja wohl mal dürfen....*wink.gif*

Code:

Das musst Du natürlich noch an Deine Bedingungen anpassen....

 

Hallo,

geht auch direkt:

Code:

 

Hier mein Vorschlag mit UserForm - ein Label mit folgendem Code:

Code:

 

...warum nicht als Formel in einer Zelle:

Code:

Damit es als üblicher Hyperlink erkannt wird Schrift blau und unterstrichen setzen.

 

Hallo zusammen,

Vielen herzlichen Dank für all die Rückmeldungen. Mit meinem Beispiel funktioniert es nun (URL Pfad hat aus anderen Gründen nicht funktioniert) auch, allerdings habe ich festgestellt, dass im Range Feld der Wert, sprich im Beispiel ein X manuell eingegeben werden muss. Eigentlich wollte ich auf dieses Feld ein Vlookup ziehen, welcher ein X als Ergbenis bringen kann. Das wiederum funktioniert aber nicht. das X muss manuell im Feld gesetzt werden.

Weiss da vielleicht noch jemand Rat?

Gruss
Michi

 

Hi Michi,

dann musst du nicht Zelle F5 überwachen sondern die Zellen, auf die sich deine Formel in F5 bezieht.

 

... was bei einem zugrunde liegenden Vlookup natürlich nicht geht.

 

Weshalb sollte es nicht gehen? Du hast doch sicher ein Suchkriterium, das aus einer Zelle genommen wird - oder sehe ich das falsch? Poste doch mal deine Formel.

 

Ich habe doch noch ein zusätzliches problem festgestellt...

ich will die meldung ja nicht nur bei einem wert, sondern bei verschiedenen...

z.b. bei x oder y oder z

die formel von xlph funktioniert tip top wenn ich aber den bereich wie folgt erweitere erscheint die MsgBox bei allem was ich in das feld gebe und nicht nur bei x y oder z:

If Range("F5") = "x" OR "y" OR "z" Then

wie kann ich das anpassen?

Danke und Gruss
Michi

 

Also Formel oder als Code?

Formel:
Code:

 

Als Code... anpassung der VBA programmierung:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) = "F5" Then
If Range("F5") = "x" Then
If MsgBox("Wollen sie nähere Informationen zu XYZ?", vbYesNo + vbInformation, "Info") = vbYes Then
On Error Resume Next
Call ThisWorkbook.FollowHyperlink("X:\0_Transfer\SGML_Daten.docx", "", True)
On Error GoTo 0
End If
End If
End If
End Sub

hier wird ja die msgbox ausgegeben, wenn ich auf F5 ein x eingebe. das soll aber auch passieren, wenn ich ein y oder ein z eingebe.

 

Code: