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

    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
    .. , - ...
    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.
    Anzeige
    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)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige