Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 08:39:33
Fehler bei: BlattBereich als .jpg in andere .xlsm kopieren
16.05.2024 23:36:08
IFNA Funktion in WENNNV übertragen
16.05.2024 19:31:55
Zellenfarbe beim.Filtern ändern
16.05.2024 19:29:08
Mit INDIREKT() auf andere Tabellenblätter referenzieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1952to1956
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1952to1956
1952to1956
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

hyperlinks in hoher Anzahl aktivieren

hyperlinks in hoher Anzahl aktivieren
29.11.2023 10:04:00
JanaK
Beispieldatei: https://www.herber.de/bbs/user/164647.xlsx

Servus, in automatisch erstellter Liste möchte ich die hyperlinks in hoher Anzahl aktivieren, damit sie für einen anderen Nutzer sehr schnell abrufbar sind. Im Moment löse ich es, indem ich in jeder Zelle mit hyperlink ans Ende klicke und Enter, dann ist er aktiviert. ist aber leider nicht praktikabel bei einer Liste mit 100 Links ;) Über einen Tip freue ich mich!

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

Betreff
Datum
Anwender
Anzeige
AW: hyperlinks in hoher Anzahl aktivieren
29.11.2023 10:25:22
UweD
Hallo

- Den Code in ein normales Modul kopieren.
- den Bereich markieren
- und makro starten 


   Sub Hyper()

    Dim Z

    

    For Each Z In Selection

        ActiveSheet.Hyperlinks.Add Anchor:=Z, Address:= _

        Z.Value, TextToDisplay:=Z.Value

    Next

End Sub


LG UweD
AW: hyperlinks in hoher Anzahl aktivieren
29.11.2023 10:26:42
Alwin Weisangler
Hallo JanaK,

mit VBA wäre der Weg so: 



Sub LinksErzeugen()

    With Tabelle1

        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row

            Cells(i, 2).Hyperlinks.Add Cells(i, 2), Cells(i, 2)

        Next i

    End With

End Sub


Gruß Uwe
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige