CODE-SCHNIPSEL

Option Explicit
' ****************************************************************
' Autor/en und Original-Quelltext unter:
' https://www.online-vba.de/vba_urlzerlegen.php
' Verwendung der Quelltexte auf eigene Gefahr!
' Es gelten die Nutzungsbedingungen von https://www.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