Trennen des Website-Namens oder der URL vom Text

Der Tipp von: Jay Shukla

Manchmal haben wir eine Situation wie:

1. Yahoo-Website www.yahoo.com
2. Google-Website www.google.com

Wie trennen wir den Website-Namen vom restlichen Text?

Schritt 1.

Wählen Sie die Spalte aus.

Gehe zur Option Ersetzen unter Bearbeiten

Dann http ersetzen:
mit (Leerzeichen)… .http:

(Bsp.:… . = Leerzeichen)

Sie werden feststellen, dass die Namen weit voneinander getrennt sind

Schritt 2

Gehe zu Text zu Spalte Option unter Daten

und wählen Sie die Option Feste Breite

Bringen Sie die Markierung an eine bestimmte Stelle in der Spalte vor dem ersten Websitenamen in der gesamten Spalte

Klicken Sie auf Weiter. Sie werden sehen, dass der Text vor den Webnamen schwarz ist

BEENDEN

Sie finden Ihre Webnamen getrennt vom Text.

Nun, um daraus einen Hyperlink zu machen:

Schritt 1

Drücken Sie Alt + F11

Sie werden feststellen, dass sich ein Makro öffnet

Gehe zu Einfügen und wähle dann Modul

ein weiteres neues Modulfenster erscheint

Schritt 2

Kopieren Sie die unten angegebene Formel und fügen Sie sie ein:

------------------------------------------------------

Unter MakeHyperlinks_D()
Dim cell As Range, Rng As Range
Set Rng = Range("A1:A" & Cells.Rows.Count). _
SpecialCells(xlConstants, xlTextValues)
Wenn Rng nichts ist, dann
MsgBox "Nichts in Reichweite"
Abo beenden
Ende Wenn
Für jede Zelle in Rng
Wenn Trim(cell.Value) "" Then
ActiveSheet.Hyperlinks.Add Anchor:=cell, _
Adresse:=cell.Value, _
QuickInfo:=cell.Value, _
TextToDisplay:=cell.Value
Ende Wenn
Nächste Zelle
End Sub