Individuelle Formel: URL in Hauptadresse zerlegen
Ausgangslage - Was tut dieser Code-Schnipsel?
Mit dieser Formel können Sie eine lange URL in die Hauptadresse zerlegen. Ein Beispiel: https://www.wershovenonline.de/online-vba/VBA-Expresshilfe erzeugt das folgende Formelergebnis: www.wershovenonline.de
Ergebnisse statt Aufwand & Arbeit?
Wir liefern Ergebnisse - Schicken Sie uns kurz Ihre Datei und Ihre Wünsche; wir integrieren den notwendigen Code professionell, beheben ggf. vorhandene Fehler, machen optional ein Code-Review, liefern bei Bedarf Performance-Optimierungen & setzen gewünschte Erweiterungen effizient für Sie um (und das zum Festpreis nach kurzer Sichtung).
Express-Service beauftragen
Der Quelltext
Option Explicit
' Original-Quelltext unter: https://www.online-vba.de/individuelle-formel-url-in-hauptadresse-zerlegen
' Express-Hilfe für VBA unter https://www.online-vba.de/vba-expresshilfe
' Es gelten die Nutzungsbedingungen von Online-VBA.de
' Verwendung: Als Excel Formel in einer Zelle: =OVBAde_URLZerlegen(Z1S1)
' Kopieren Sie dieses Makro in ein Modul im VBA Projekt
Public Function OVBAde_URLZerlegen(ByVal sURL As Range) As String
Dim lPos As Long
URLZerlegen = sURL.Value
' Step 1: http entfernen
lPos = InStr(1, sURL, "//", vbTextCompare)
URLZerlegen = Mid(URLZerlegen, lPos + 2, Len(URLZerlegen) - spos - 2)
' Step 2: Alles nach der Domain abschneiden
lPos = InStr(1, URLZerlegen, "/", vbTextCompare)
URLZerlegen = Left(URLZerlegen, lPos - 1)
End Function
Anmerkungen und Hinweise
Dieser Codeschnipsel wurde geschrieben von Marc Wershoven im Jahr 2013.
Die Nutzung erfolgt auf eigene Gefahr.
Bitte denken Sie immer zuerst an eine ausreichende Datensicherung.
Wir können keinen kostenlosen Support anbieten.
Es gelten unsere Nutzungsbedingungen.
