Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Hyperlink-Adresse in Zwischenablage kopieren

Hyperlink-Adresse in Zwischenablage kopieren
24.12.2016 13:37:44
Selma
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink-Adresse in Zwischenablage kopieren
24.12.2016 14:11:19
Nepumuk
Hallo,
teste mal:
Public Sub Hyperlink_in_Clipboard()
    Dim objCell As Range
    Dim objClipBoard As Object
    Dim strText As String
    If TypeOf Selection Is Range Then
        For Each objCell In Selection
            If objCell.Hyperlinks.Count <> 0 Then
                strText = strText & objCell.Hyperlinks(1).Address & vbLf
            End If
        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
        End If
    End If
End Sub

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
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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