Thema Datum  Von Nutzer Rating
Antwort
03.04.2014 19:16:05 thorsten
Solved
Blau Hyperlink in Zelle setzen nach Auslesen in Textbox (UserForm)
 03.04.2014 23:01:10 Gast72316
NotSolved
03.04.2014 23:16:54 thorsten
NotSolved

Ansicht des Beitrags:
Von:
Gast72316		 Datum:
03.04.2014 23:01:10		 Views:
747		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlink in Zelle setzen nach Auslesen in Textbox (UserForm)		 
Option Explicit

Private Sub CommandButton1_Click()

Dim myHyperlk As Hyperlink
Dim myRange As Range
Dim myAddress As String
 
Set myRange = Range("A1")
myRange.Value = myAddress
 
myAddress = "\\" & Trim(UserForm1.TextBox1.Value) & ".pdf"
If InStr(myAddress, Chr(32)) Then myAddress = Chr(34) & myAddress & Chr(34)

'Test alle löschen
For Each myHyperlk In ActiveSheet.Hyperlinks
  myHyperlk.Delete
Next myHyperlk

ActiveSheet.Hyperlinks.Add Anchor:=myRange, Address:=myAddress, _
  ScreenTip:="open pdf" ', TextToDisplay:=??
 
UserForm1.Hide
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.04.2014 19:16:05 thorsten
Solved
Blau Hyperlink in Zelle setzen nach Auslesen in Textbox (UserForm)
 03.04.2014 23:01:10 Gast72316
NotSolved
03.04.2014 23:16:54 thorsten
NotSolved