Hallo Leute,
ist es möglich per VBA nur für die markierten Zellen die Hyperlink-Adressen in die Zwischenablage zu speichern?
Besten Dank im Voraus!
Gruß,
Selma
PublicSub Hyperlink_in_Clipboard() Dim objCell As Range Dim objClipBoard AsObject Dim strText AsString If TypeOf Selection Is Range Then For Each objCell In Selection If objCell.Hyperlinks.Count <> 0 Then strText = strText & objCell.Hyperlinks(1).Address & vbLf EndIf Next If strText <> vbNullString Then strText = Left$(strText, Len(strText) - 1) Set objClipBoard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") Call objClipBoard.SetText(strText) Call objClipBoard.PutInClipboard Set objClipBoard = Nothing EndIf EndIf EndSub
Gruß
Nepumuk
Anzeige
AW: Hyperlink-Adresse in Zwischenablage kopieren
24.12.2016 15:01:30
Selma
Hallo Nepumuk,
ich habe es getestet und es wird nichts in Zwischenablage kopiert.
Vielleicht leigt es daran, das meine Hyperlinks über die Formeln =HYPERLINK... aufgebaut sind.
Im Anhang habe ich eine Beispieldatei beigefügt. https://www.herber.de/bbs/user/110191.xls
Ich möchte nachher in einer Textdatei die kopierten Hyperlink-Adressen untereinander einfügen, wenn es geht.
Gruß,
Selma