Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.05.2024 11:17:06
Hyperlink zu Bild in Zelle
17.05.2024 11:15:40
Spalte und Makros gleichzeitig verschieben
17.05.2024 11:03:10
Ganze Zahl in Ganz-Zahl Kombinationen aufteilen (ohne Rest)
17.05.2024 10:40:53
Tabellen (formatiert) über VBA auswählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1956to1960
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
1956to1960
1956to1960
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

in Link umwandeln

in Link umwandeln
13.12.2023 17:11:17
Andre
hi :)

Ich habe viele Links in einer Spalte (also einen in jeder Spalte - aber viele Zeilen mit inaktiven Links)

diese sind aber noch nicht blau, also aktiv - wenn ich in die Zeile und Zelle mit der Maus gehe und auf enter klicke - sind sie dann aktiv.

Soweit so gut, aber gibt es einen einfacheren Weg - denn das 300 x zu machen ist sehr aufwendig.

Hier die Beispieldatei:
https://www.herber.de/bbs/user/165168.xlsx

lg Andre

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

Betreff
Datum
Anwender
Anzeige
AW: in Link umwandeln
13.12.2023 17:43:33
Beverly
Hi Andre,

z.B. mit folgendem Makro werden Hyperlinkadressen, die "www." enthalten, in aktive Hyperlinks umgewandelt: 

Sub HyperlinkErstellen()

    Dim lngZeile As Long

    Application.ScreenUpdating = True

    For lngZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)

        If InStr(Cells(lngZeile, 1), "www.") > 1 Then

            Cells(lngZeile, 1).Hyperlinks.Add Anchor:=Cells(lngZeile, 1), Address:= _

                Cells(lngZeile, 1).Value, TextToDisplay:=Cells(lngZeile, 1).Value

        End If

    Next lngZeile

End Sub


Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Anzeige
AW: in Link umwandeln
13.12.2023 18:37:59
Andre
ja danke funktioniert in der Textdatei - in der anderen datai klappt es nicht ... da stehen sie in einer anderen spalte - aber in der ersten spalte funktioniert es - was muss ich da beachten ... lg Andre
AW: in Link umwandeln
13.12.2023 18:51:28
Beverly
Wenn es eine andere Spalte ist, dann musst du an allen Stellen bei Cells(..., 1) die 1 durch deine Spaltennummer ersetzen.

Bis später
Karin

Link zur Homepage: https://excel-inn.de/
Super gelöst AW: in Link umwandeln
14.12.2023 12:46:01
Andre
ja genau das war die Lösung - vielen Dank :) lg Andre
AW: in Link umwandeln
13.12.2023 19:13:43
Fred
Hallo Andre, wenn du (so habe ich es verstanden) zB die Zeilen (nicht Spalte A) abfragen willst, dann für zB die 1. Zeile: 
Sub HyperlinkErstellen()

    Dim lngSpalte As Long

    Application.ScreenUpdating = True



    For lngSpalte = 1 To IIf(IsEmpty(Cells(1, Columns.Count)), Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count)

        If InStr(Cells(1, lngSpalte).Value, "www.") > 0 Then

            Cells(1, lngSpalte).Hyperlinks.Add Anchor:=Cells(1, lngSpalte), Address:= _

                Cells(1, lngSpalte).Value, TextToDisplay:=Cells(1, lngSpalte).Value

        End If

    Next lngSpalte



End Sub



Gruss

Fred





try/error
Anzeige

Links zu Excel-Dialogen

Frame

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige