Text-URLs in Hyperlinks umwandeln

Forumthread: Text-URLs in Hyperlinks umwandeln

13.08.2014 12:14:46

Burghard

Hallo,
ich habe noch Excel 2000. Ich füge häufiger in Tabellenblätter zahlreiche URLs ein. Diese sind danach aber nur einfacher Text und nicht als Hyperlink markiert.
Wie kann ich mittels VBA alle diese URLs in einem Rutsch in Hyperlinks umwandeln (ohne Öffnen)?
In Excel 2007 ff gibt es dafür eine Lösung. Unter EXTRAS ==> AutoKorrektur:
Während der Eingabe ersetzen ==> Internet- und Netzwerkpfad durch Hyperlinks
Leider ist dies so bei Excel 2000 nicht möglich. Hilfe wäre nett.
Grüße Burghard

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Lösung

13.08.2014 12:55:41

Burghard
AW: Lösung

13.08.2014 12:57:51

Martin
AW: Deine bessere Lösung

13.08.2014 13:47:12

Burghard

AW: Lösung

13.08.2014 12:55:41

Burghard


Sub In_Hyperlink_umwandeln()
Dim Zelle As Range
For Each Zelle In Range(Range("C2"), Cells(Rows.Count, 3).End(xlUp))
Zelle.Parent.Hyperlinks.Add Anchor:=Zelle, Address:=Zelle.Value, TextToDisplay:=Zelle.Value
Next
End Sub

AW: Lösung

13.08.2014 12:57:51

Martin

Hallo Burghard,
da bist du einen Tick schneller gewesen als ich:

Sub TextToURL()
Dim rngCell As Range
For Each rngCell In ActiveSheet.UsedRange
If InStr(rngCell, "http://") > 0 Or InStr(rngCell, "www.") > 0 Then
rngCell.Hyperlinks.Add Anchor:=rngCell, Address:=rngCell.Text
End If
Next
End Sub

Ich mache eine Abfrage, ob "www." oder "http://" im Text der Zelle enthalten ist.
Viele Grüße
Martin

AW: Deine bessere Lösung

13.08.2014 13:47:12

Burghard

Hallo Martin,
Deine Lösung ist eine Klasse besser! Hab ich so übernommen! Danke!
Grüße Burghard

Infobox / Tutorial

Text-URLs in Hyperlinks umwandeln in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um Text-URLs in Hyperlinks umzuwandeln, kannst du VBA (Visual Basic for Applications) in Excel verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

Excel öffnen: Starte Excel und öffne die Arbeitsmappe, in der du die URLs umwandeln möchtest.
Entwicklertools aktivieren: Wenn das Menü "Entwicklertools" nicht sichtbar ist, aktiviere es über die Excel-Optionen.
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Modul einfügen: Klicke im Menü auf Einfügen > Modul, um ein neues Modul zu erstellen.

Code eingeben: Füge einen der folgenden Codes in das Modul ein, um Text in einen Link umzuwandeln:

Für eine bestimmte Spalte (z. B. Spalte C):

Sub In_Hyperlink_umwandeln()
   Dim Zelle As Range
   For Each Zelle In Range(Range("C2"), Cells(Rows.Count, 3).End(xlUp))
       Zelle.Parent.Hyperlinks.Add Anchor:=Zelle, Address:=Zelle.Value, TextToDisplay:=Zelle.Value
   Next
End Sub

Für das gesamte Arbeitsblatt:

Sub TextToURL()
   Dim rngCell As Range
   For Each rngCell In ActiveSheet.UsedRange
       If InStr(rngCell, "http://") > 0 Or InStr(rngCell, "www.") > 0 Then
           rngCell.Hyperlinks.Add Anchor:=rngCell, Address:=rngCell.Text
       End If
   Next
End Sub

Code ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle das Makro aus und klicke auf Ausführen.

Häufige Fehler und Lösungen

Fehler: Makro läuft nicht: Stelle sicher, dass die Makros in deinen Excel-Optionen aktiviert sind.
Fehler: Hyperlinks werden nicht erstellt: Überprüfe, ob die Zellen tatsächlich URLs enthalten (z. B. beginnen mit "http://" oder "www.").
Fehler: Falsche Zellreferenz: Achte darauf, dass die Zellreferenz im VBA-Code korrekt ist (z. B. Range("C2")).

Alternative Methoden

Falls du kein VBA verwenden möchtest, gibt es auch alternative Methoden:

Excel-Funktion: Nutze die Funktion HYPERLINK. Du kannst in einer neuen Zelle den Befehl einfügen:
```
=HYPERLINK(A1, "Linktext")
```
Dabei ersetzt du A1 durch die Zelle mit der URL.
Kopieren und Einfügen: Wenn du die URLs in ein anderes Programm (wie Word) einfügst, werden sie oft automatisch als Hyperlinks erkannt.

Praktische Beispiele

Beispiel 1: Um eine Liste in Spalte A mit URLs in Hyperlinks umzuwandeln, verwende den ersten VBA-Code. Die Hyperlinks werden in der gleichen Spalte angezeigt.
Beispiel 2: Wenn du URLs in Spalte B hast und diese in Spalte C als Hyperlinks darstellen möchtest, kannst du den HYPERLINK-Befehl in Spalte C nutzen:
```
=HYPERLINK(B1, "Besuche Link")
```

Tipps für Profis

Experimentiere mit verschiedenen Zellformatierungen, um deine Hyperlinks hervorzuheben.
Nutze bedingte Formatierung, um Hyperlinks in Excel visuell ansprechender zu gestalten.
Lerne mehr über die Verwendung von VBA, um deine Excel-Fähigkeiten weiter zu verbessern und die Effizienz zu steigern.

FAQ: Häufige Fragen

1. Wie kann ich eine URL in einem Hyperlink umwandeln? Du kannst die Funktion HYPERLINK verwenden oder ein VBA-Skript ausführen, um das schnell zu erledigen.

2. Kann ich mehrere Spalten gleichzeitig umwandeln? Ja, du kannst den VBA-Code so anpassen, dass er mehrere Spalten durchläuft, indem du die Zellreferenzen entsprechend änderst.

Beliebteste Forumthreads (12 Monate)

Text-URLs in Hyperlinks umwandeln

Forumthread: Text-URLs in Hyperlinks umwandeln

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Text-URLs in Hyperlinks umwandeln in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread