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

Ansicht des Beitrags:
Von:
thorsten		 Datum:
03.04.2014 19:16:05		 Views:
1663		 Rating:
     
Antwort:
 Nein
Thema:
Hyperlink in Zelle setzen nach Auslesen in Textbox (UserForm)

Sorry Sorry Sorry für den vorherigen Eintrag. Im IE waren die Edit-Buttons nicht enthalten, also auch nicht der Code-Button :-(

Guten Abend an alle, die mehr drauf haben als ich (also ALLE :_) )


Warum z.T. (sorry) funktioniert denn der unten zu sehende Code nicht? Ich möchte damit das, was in einer TextBox eingetragen wird, in eine Arbeitsmappe schreiben und dann einen Hyperlink zu einer Datei auf meinem Rechner darauf setzen.

Das funktioniert sogar ( Ole Ole! ), solange keine Leerzeichen vorkommen in der TextBox. Das kapier ich auch noch, denn ein Hyperlink enthält ja in der Regel keine Leerzeichen (bei Textdateien allerdings sehr wohl).

Deshalb habe ich das Script auch erweitert und alle Leerzeichen durch "%20" ersetzt.
Funktioniert aber trotzdem nicht. Excel gibt mir immer einen Laufzeitfehler.

Was z.T. (sorry nochmal) mache ich denn falsch?

LG
Thorsten

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub CommandButton1_Click()
Dim strTitle As String
Dim strHyperAlt As String
Dim strHyperNeu As String
 
strTitel = UserForm1.TextBox1.Value
Range("A1").Activate
ActiveCell.Value = strTitel
 
 
MsgBox (strTitel)
 
strHyperAlt = strTitel
 
MsgBox "strHyperAlt is now " & strHyperAlt
 
strHyperNeu = Replace(strHyperAlt, " ", "%20")
 
MsgBox "strHyperNeu is now " & strHyperNeu
 
 
 
ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:="\\" & strHyperNeu & ".pdf", ScreenTip:= _
"open pdf", TextToDisplay:=strHyperNeu  ' Laufzeitfehler -- Debugging
 
 
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
Rot Hyperlink in Zelle setzen nach Auslesen in Textbox (UserForm)
 03.04.2014 19:16:05 thorsten
Solved
03.04.2014 23:01:10 Gast72316
NotSolved
03.04.2014 23:16:54 thorsten
NotSolved