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:
884		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlink in Zelle setzen nach Auslesen in Textbox (UserForm)
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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