URLs kürzen

Hallo zusammen,
ich benötige eine wahrscheinlich sehr komplexe Formel bzw. weiß ich gar nicht, ob es in der Form möglich ist.
Ich habe eine Liste mit URLs, die ich so bearbeiten möchte, dass nur noch URLs nach diesem Schema auftauchen: beispiel.de
In der Liste sind leider eine Vielzahl von anderen Schreibweisen vorhanden, die es gilt, so umzuformen.
Folgende Schreibweisen treten auf:
beispiel.beispiel.de
beispiel.beispiel.beispiel.de
www.beispiel.de
beispiel.de
www4.beispiel.de
www.beispiel.de/ ( / am Ende sollen auch entfernt werden)
http://www.beispiel.de
https://www.beispiel.de
Gibt es eine Formel, die ich einfach auf die Liste anwenden kann und die mir jede der oben genannten Schreibweisen ändert bzw. wenn es schon richtig geschrieben ist beibehält?
Vielen Dank im Voraus für eure Antworten!
LG
Emanuel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: URLs kürzen

29.10.2015 11:51:45

Rudi

AW: URLs kürzen

29.10.2015 12:07:46

Emanuel

AW: URLs kürzen

29.10.2015 12:19:42

Emanuel

AW: URLs kürzen

29.10.2015 12:23:11

Emanuel

AW: URLs kürzen

29.10.2015 13:15:27

Rudi

mit VBA-Schnipsel

02.11.2015 17:06:05

Michael

Hallo,
in Einzelsteps:

	A	B	C	D
1	beispiel.beispiel.de	beispiel\|beispiel.de	beispiel.de	beispiel.de
2	beispiel.beispiel.beispiel.de	beispiel.beispiel\|beispiel.de	beispiel.de	beispiel.de
3	www.beispiel.de	www\|beispiel.de	beispiel.de	beispiel.de
4	beispiel.de	beispiel.de	beispiel.de	beispiel.de
5	www4.beispiel.de	www4\|beispiel.de	beispiel.de	beispiel.de
6	www.beispiel.de/	www\|beispiel.de/	beispiel.de/	beispiel.de

Zelle	Formel
B1	=WENNFEHLER(WECHSELN(A1;".";"\|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;".";""))-1);A1)
C1	=WENNFEHLER(TEIL(B1;FINDEN("\|";B1)+1;99);B1)
D1	=WENN(RECHTS(C1;1)="/";LINKS(C1;LÄNGE(C1)-1);C1)

in einer Formel ;-)
=WENNFEHLER(WENN(RECHTS(TEIL(WECHSELN(A1;".";"|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;".";""))-1);FINDEN("|"; WECHSELN(A1;".";"|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;".";""))-1))+1;99);1)="/";LINKS(TEIL(WECHSELN(A1;"."; "|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;".";""))-1);FINDEN("|";WECHSELN(A1;".";"|";LÄNGE(A1) -LÄNGE(WECHSELN(A1;".";""))-1))+1;99);LÄNGE(TEIL(WECHSELN(A1;".";"|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;"."; ""))-1);FINDEN("|";WECHSELN(A1;".";"|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;".";""))-1))+1;99))-1); TEIL(WECHSELN(A1;".";"|";LÄNGE(A1)-LÄNGE(WECHSELN(A1;".";""))-1);FINDEN("|";WECHSELN(A1;".";"|"; LÄNGE(A1)-LÄNGE(WECHSELN(A1;".";""))-1))+1;99));A1)
Gruß
Rudi

Option Explicit Public Function reineURL(s0 As Variant) As String Dim a As Variant Dim s As String Dim pos, p As Long ' Stop s = s0 pos = InStr(s, "//") If pos = 0 Then pos = 1 Else pos = pos + 2 p = InStr(pos, s, "/") If p = 0 Then p = Len(s) Else p = p - 1 s = Mid(s, pos, p - pos + 1) a = Split(s, ".") reineURL = a(UBound(a) - 1) & "." & a(UBound(a)) End Function

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread