Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink kopieren

Forumthread: Hyperlink kopieren

Hyperlink kopieren
13.07.2018 16:03:34
Heinz
Hallo im Forum
Ich habe eine Tabelle wo in der Spalte G2:G50 Hyperlinks gesetzt sind.
Nun habe ich in Spalte M2:M50 untere Formel.
  • =RECHTS(G19;LÄNGE(G19)-4)

    • Wie bringe ich die Hyperlinkadresse in Spalte M2:M50
    Habe eine kleine Beispielmappe hochgeladen.
    Danke; Heinz
    https://www.herber.de/bbs/user/122664.xlsm
    Anzeige

    5
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: hierzu ...
    13.07.2018 16:34:12
    neopa
    Hallo Heinz,
    ... formeltechnisch betrachtet, sollte das bei Einsatz von HYPERLINK() kein Problem sein, wenn man die Daten und die Datenstruktur kennt.
    Da ich mich grundsätzlich aus VBA-Lösungen heraus halte, lade ich ich mir u.a. auch aus diesem Grund keine xlsm-Datei aus dem Netz und erkenne deswegen nicht, wo Dein Problem liegen soll.
    Wenn es kein VBA-Anfrage sein sollte, dann lade doch die xlsx-Datei hier hoch.
    Gruß Werner
    .. , - ...
    Anzeige
    AW: hierzu ...Danke Werner
    13.07.2018 17:57:11
    Heinz
    Hallo Werner
    Habe in der Eile total vergessen die Endung auf xlsx zu ändern
    Danke für dein Feedback
    Gruß, Heinz
    AW: Hyperlink kopieren
    13.07.2018 17:13:07
    Torsten
    Hallo Heinz,
    wenn der Link auf die gleiche Seite fuehren soll, dann mit rechtsklick auf die Zelle und den Link manuell einrichten.
    AW: Hyperlink kopieren
    13.07.2018 17:24:44
    Torsten
    Hallo nochmal Heinz,
    hier eine VBA Loesung:
    kopier den Code in ein allgemeines Modul, markiere die Spalte mit den Links und lass den Code laufen.
    Sub CopyHLinkToTheRIGHT()
Dim rng As Range
On Error GoTo SelectionFehler
For Each rng In Selection
If rng.Hyperlinks.Count = 1 Then
ActiveSheet.Hyperlinks.Add Anchor:=rng.Offset(0, 6), Address:=rng.Hyperlinks(1). _
Address
End If
Next rng
Exit Sub
SelectionFehler:
'Tritt z.B. auf wenn keine Zelle ausgewählt ist
MsgBox Err.Description, vbCritical, "Fehler in aktiver Auswahl"
End Sub
    Gruss Torsten
    Anzeige
    AW: Hyperlink kopieren.. Danke Torsten
    13.07.2018 17:58:46
    Heinz
    Hallo Torsten
    Dein Code funktioniert wie gewünscht.
    Recht herzlichen Dank
    SG, Heinz
    ;

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Anzeige