Hyperlink per VBA
03.03.2016 10:18:47
Kranz
mit folgenden CODE habe ich unter Excel2003 einen Hyperlink zu txt Datei gesetzt
aus welcher ich Daten nach Excel importiert habe. Leider funktioniert dieser Code unter Excel2013 nicht mehr.
Dateinepfad suchen
Calculate
Daten_anfang = Range("BB1").Value
Daten_länge = Range("BC1").Value
ActiveSheet.Cells.Hyperlinks.Delete 'alle Hyperlinks löschen
Dim i As Long
'Dim Bereich As Range
'Dim Zelle As Range
Const verz = "H:\1\02\" 'Anpassen!! Muß mit dem Importierortner übereinstimmen!
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Filename = "*.txt"
.Execute
Hyperlink setzen
If Daten_länge + Daten_anfang - 1 Für eure Hilfe wie ich das Lösen könnte wäre ich sehr Dankbar.
Gruß
Birgit
Anzeige