Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hyperlink ergänzen.

Forumthread: Hyperlink ergänzen.

Hyperlink ergänzen.
20.05.2016 09:40:53
Jens
Hallo,
wie kann man nach dem einfügen eines Dateinamens einen Hyperlink auf den Datei setzen.
In dem code wird eine Datei in eine andere Datei eingelesen(1.cvs)und danach umbenannt(1_IMPORT.cvs).
Der Umbenannte Dateiname steht in Spalte A.
Wie erzeugt man bei den Eintragungen in Spalte A einen Hyperlink, sodass die Datei 1.pdf geöffnet werden kann.
Der Pfad der Pdf-datei ist der gleiche wie der Pfad der CVS-Datei.
Sub importCSV()
Dim Datei As Variant, dNr%, s$, a, b, c()
Dim dateiNeu As String
Dim i&, j&, bZ&, sp&, zl&
Dim strpath As String
Datei = Application.GetOpenFilename("CSV-Datein *.csv ,*.csv")
If Datei = False Then Exit Sub
bZ = Range("A" & Rows.Count).End(xlUp).Row
s = String(FileLen(Datei), 0)
dNr = FreeFile
Open Datei For Binary Access Read As #1
Get dNr, , s
Close #1
a = Split(s, vbCrLf): zl = UBound(a)
If Trim(LTrim(a(zl))) = "" Then zl = zl - 1 'Leerzeile am Ende ignorieren
b = Split(a(0), ";"): sp = UBound(b)
ReDim c(1 To zl, 0 To sp)
For i = 1 To zl
b = Split(a(i), ";")
For j = 0 To sp
'c(i, j) = b(j)
'oder, wenn keine "" erwünscht, dann so:
c(i, j) = Replace(b(j), """", "")
Next
Next
Range("B" & bZ + 1).Resize(zl, sp + 1) = c
dateiNeu = Left(Datei, Len(Datei) - 4) & "_IMPORT" & ".csv"
Name Datei As dateiNeu
dateiNeu = Mid(dateiNeu, InStrRev(dateiNeu, "\") + 1)
Range("A" & bZ + 1).Resize(zl).Value = dateiNeu
Hyperlinks.Add Anchor:=Range("A" & bZ + 1).Resize(zl).Value, _
Address:=strpath & Application.Substitute("sada", ".xlsx", ".pdf"), _
TextToDisplay:="sada"
End Sub
Mit einem Hyperlink Zusatzcode bekomme ich nur Fehler.

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink ergänzen.
20.05.2016 10:23:10
Fennek
Hallo,
mit dem Rekorder bekam ich folgenden Code:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="C:\Temp\Leo2.txt", _
TextToDisplay:="Leo"
Im Vergleich dazu sieht dein Code "überzogen" aus, m.E. sollte es EINE Zelle sein, keine (merkwürdige) Range-Definition und auch die Adresse ist m.E. einfach "kompliziert" und damit fehleranfällig.
mfg

Anzeige
AW: Hyperlink ergänzen.
20.05.2016 10:47:59
Jens
Eigentlich geht es mir nur darum das dann jeder Eintrag in Spalte A mit dem Hyperlink versehen wird.
Da hilft mit eine ausgewählt zelle dann leider nicht viel.

schon woanders vorhanden
20.05.2016 16:59:48
Michael
Hi Jens,
warum machst Du eigentlich einen Thread nach dem anderen auf?
Die Lösung ist hier: https://www.herber.de/forum/messages/1493878.html
Gruß,
Michael
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige