unter bestimmten Bedingungen Teil von URL ausgeben

Forumthread: unter bestimmten Bedingungen Teil von URL ausgeben
6 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen

Forumthread: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 17:25:34

Christian

Hallo,

ich bitte euch um eure Hilfe bei folgender Datei

https://www.herber.de/bbs/user/173696.xlsm

ich würde gerne in den 300 Zeilen, die eine Ordnungszahl zu Beginn haben (zwischen 1. und 300.) und eine URL haben, den nm-Code aus der im Hyperlink steckenden URL auslesen, sowie ich es bei den ersten 4 betroffenen Zeilen im Beispiel vorgemacht habe. Wie kann ich das mit z.b. einer UDF machen?

Texte wie in A9 oder A19, die zwar eine URL haben, aber nicht mit einer Ordnungszahl beginnen, sollen außen vor bleiben.
Es gibt auch Texte, wie z.b. in A1851 die mit einer Zahl beginnen, die aber keine Ordnungszahl ist. Wie gesagt, wirklich nur die 300 Zeilen mit den Ordnungszahlen.

Ich habe es mit Chatgpt und der UDF probiert, die in der Datei gespeicher ist, aber die gibt nur #Wert! aus. Aber vielleicht hilft euch diese ja trotzdem zumindest in Teilen weiter.

Danke
Christian

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 17:46:23

Fennek
AW: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 18:05:20

Christian
AW: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 17:55:50

Uduuh
Du arbeitest ja schon...

18.11.2024 18:52:36

Case
AW: Du arbeitest ja schon...

18.11.2024 19:21:50

Christian
AW: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 18:07:52

Christian

AW: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 17:46:23

Fennek

Hallo,

teste mal:


Option Explicit



Sub Extract_nm()

Dim Hy As Hyperlink, Nr As Integer, lr As Long, i As Long



lr = Cells(Rows.Count, 1).End(xlUp).Row



For i = 1 To lr

    If Cells(i, 1).Hyperlinks.Count Then

        If Split(Cells(i, 1), ".")(0)  301 Then

            Set Hy = Cells(i, 1).Hyperlinks(1)

            Cells(i, 2) = Split(Hy.Address, "/")(4)

        End If

    End If

Next i

End Sub

mfg

AW: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 18:05:20

Christian

Hallo Fennek,

ich hätte zwar eine UDF bevorzugt, aber funktioniert einwandfrei. Danke

Gruß
Christian

AW: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 17:55:50

Uduuh

Hallo,
als UDF:

Function URLCheck(rng As Range) As String

  Dim sText, aText

  sText = rng.Text

  aText = Split(sText, ".")

  If IsNumeric(aText(0)) Then

  Select Case CLng(aText(0))

    Case 1 To 300

      aText = Split(rng.Hyperlinks(1).Address, "/")

      If UBound(aText) > 3 Then

        URLCheck = aText(4)

      Else

        URLCheck = ""

      End If

    Case Else

      URLCheck = ""

  End Select

  Else

    URLCheck = ""

  End If

End Function

B3: =urlcheck(A3)

Gruß aus'm Pott
Udo

Du arbeitest ja schon...

18.11.2024 18:52:36

Case

Moin Christian, :-)

... mit RegEx, dann kannst du auch darauf aufbauen: ;-)
https://www.herber.de/bbs/user/173697.xlsb

Servus
Case

AW: Du arbeitest ja schon...

18.11.2024 19:21:50

Christian

Hallo Case,

funktioniert auch, danke.

Christian

AW: unter bestimmten Bedingungen Teil von URL ausgeben

18.11.2024 18:07:52

Christian

Hallo Udo,

erstmal vielen Dank.
Kann man da noch was einbauen, dass die UDF nichts ausgibt, wenn die Zelle in Spalte A leer ist?
Ich weiß, das geht auch, indem ich ne wennfehler Formel drumherummache, aber irgendwie wäre mir eine Lösung innerhalb der UDF lieber, wenn es geht.

Ansonsten funktioniert auch deine Lösung einwandfrei
Danke