Text Extrahierung-

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function MyRegEx(str As String, muster As String) As String Dim RegEx As Object, MyString As String, Funde As Object, Fund As Object Set RegEx = CreateObject("VBScript.RegExp") RegEx.Pattern = muster RegEx.MultiLine = True RegEx.Global = False RegEx.IgnoreCase = False Set Funde = RegEx.Execute(str) For Each Fund In Funde MyRegEx = Fund.Value Exit For Next Fund End Function

Hallo Elfriede
Danke das du mein Makro getestet hast, freut mich.
Der Vorteil bei einem Makro ist, man kann es in Sekunden erweitern. Um den Fehler abzufangen brauchte ich nur wenige Sekunden!
Man erweitere das Makro nach dem Replace noch mal um die For Next Schleife, die vorgestellte Zahlen abschneidet. Das ist Alles!
Schau bitte jetzt mal ob alles zufriedenstellend klappt.
mfg Piet

Option Explicit '26.9.2022 Piet für Herber Forum
Const Senderliste = "BR, ORF, usw" 'Senderliste - beliebig erweiterbar!
'Sender und Filmname extrahieren


Sub Sender_und_Film_Auswahl()
Dim AC As Range, lz1 As Long
Dim Txt As String, i, j, Ary   'Array
lz1 = Cells(Rows.Count, 2).End(xlUp).Row
'Schleife zum Text trennen in allen Zeilen
For Each AC In Range("B2:B" & lz1)
If AC.Value  Empty Then
'Zeit Vorpann abschneiden
Txt = Trim(Mid(AC, 27))
Ary = Split(Senderliste, ", ")
'aktiven Sender über Senderliste ausfiltern
For j = 0 To UBound(Ary)
If Left(Txt, 2) = Left(Ary(j), 2) Then _
Txt = Trim(Replace(Txt, Ary(j), "")): Exit For
Next j
'vorgestellte Zahlen oder "I" (ORF) abschneiden
For i = 1 To 4
If IsNumeric(Left(Txt, 1)) Then Txt = Trim(Mid(Txt, 2))
If Ary(j) = "ORF" Then If InStr(Left(Txt, 5), "I") Then _
Txt = Trim(Mid(Txt, 2))
Next i
''' Länder Text in () löschen - beliebig erweiterbar!!
Txt = Trim(Replace(Txt, "(Österreich)", ""))
Txt = Trim(Replace(Txt, "(Bayern)", ""))
'Erweiterung:
'** vorgestellte Zahlen bei "Fernsehen" abschneiden
For i = 1 To 4
If IsNumeric(Left(Txt, 1)) Then Txt = Trim(Mid(Txt, 2))
Next i
'Sender und Text als Ergebnis speichern
AC.Offset(0, 3) = Ary(j)
AC.Offset(0, 5) = Txt
End If
Next AC
End Sub

Hi
ich vermute mal, dass du für dieses Aufgabe keine allgemeingültige Lösung finden wirst, da die Sendernamen und auch die Schreibweisen (direkt angehängt oder mit Leerzeichen) viel zu vielfältig sind um eine eindeutige Regel abzuleiten, an der man erkennen kann, wo der Sender aufhört und der Titel anfängt.
Da die Anzahl der Sender aber begrenzt sein dürfte, würde ich folgende Lösung vorschlagen:
1. du listest in einer freien Spalte alle möglichen Sendernamen auf (für die Formel G1:G5)
2. verwende dann diese Formel, um den Titel zu extrahieren:


=GLÄTTEN(TEIL(B4;27+AGGREGAT(14;6;LÄNGE($G$1:$G$6)/(FINDEN(" "&$G$1:$G$6;B4)=26);1);99))

sollte ein neuer Sender auftauchen, der in Spalte G nicht gelistet ist, so zeigt die Formel den #Zahl!-Fehler und du kannst die betroffenen Sender leicht finden und ergänzen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

23 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

23
Beiträge zum Forumthread

Beiträge zu diesem Forumthread