Wert aus aktiver Zelle in Makro übernehmen?
28.04.2005 09:08:18
Gerhard
ich habe muss aus einem Excel-Tabellenblatt Links auf .pdf setzen. Allerdings sind meine User, die darauf zugreifen sollen teilweise nicht in der Lage einen Doppelklick auszuführen (Das soll's tatsächlich geben?!). Deswegen gibt es mit
Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)....
immmer Probleme. Meine Idee war nun, die Zelle mit dem Dateinamen zu markieren, und dan per Makro über einen Button die gewählte Datei zu öffnen. Folgendes Makro funtioniert super:
Sub Link()
Dim strDateiName As String, MyShell As Object, StrPfad As String, StrDtei As String
StrPfad = "\\Server\kataloge\"
StrDtei = "Katalog1"
Set MyShell = CreateObject("WScript.Shell")
strDateiName = StrPfad & StrDtei & ".pdf"
strDateiName = Chr(34) & strDateiName & Chr(34)
MyShell.Run strDateiName
Set MyShell = Nothing
Cancel = True
End Sub
Nur wie schaffe ich es, "Katalog1" durch den Wert der aktiven Zelle zu ersetzen?
Weiß wer eine Möglichkeit?
Gruß
Gerhard