Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Hyperlink in Zelle eintragen

Hyperlink in Zelle eintragen
11.09.2015 17:37:28
Stefan
Nachdem ich eine Excel-Tabelle in eine PDF umgewandelt habe und diese dann per Email verschickt habe werden die wichtigsten Daten dieser Tabelle in eine Übersichtsliste übertragen. Da ich durch VBA immer fauler werde möchte ich auch den Link übertragen. Da ich jedoch nur ein VBA Bastelkönig bin und keine vernünftige Ansätze finde frage ich mal wieder, ob jemand die Lösung hat.
Dies habe ich bis jetzt programmiert:
Workbooks("A_Angebote.xlsm").Sheets("Liste").Cells(Rows.Count, 1).End(xlUp).Offset(0, 6).Value = ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=
"Angebot2015-189.pdf", TextToDisplay:="Angebot2015-189.pdf"
Kann mir jemand sagen, warum diese Zuweisung fehlerhaft ist?

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink in Zelle eintragen
11.09.2015 19:24:49
Beverly
Hi Stefan,
in der Zelle steht bereits der Ordnername und der Dateiname?
Sub LinkEinfuegen()
Dim rngZelle As Range
Set rngZelle = Worksheets("Liste").Cells(Rows.Count, 1).End(xlUp).Offset(0, 6)
rngZelle.Hyperlinks.Add anchor:=rngZelle, Address:=rngZelle.Value, _
TextToDisplay:="Angebot2015-189.pdf"
Set rngZelle = Nothing
End Sub


Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige