Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1528to1532
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-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

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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige