|
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
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 |