Wort aus Zeichenkette extrahieren

Hallo zusammen,

ich möchte gern die Farbe aus einer Zeichenkette ermitteln, dazu bin ich im Forum der Sache mit regulären Ausdrücken nähergekommen, jedoch funktioniert das noch nicht perfekt.

Ich möchte gern die Farbe "Black, black oder Black Frame" ermitteln/extrahieren egal was zuvor oder danach steht, wer kann mir dabei helfen?

Private Sub Farbe()
Dim Regex As Object
Dim i As Long

Set Regex = CreateObject("vbscript.regexp")

With Regex
'.Pattern = "(.*)(?=(Black Frame|Black|black))"
.IgnoreCase = False 'ignoriere Groß-Kleinschreibung
.Global = True
End With

For i = 2 To ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row

If Regex.test(ThisWorkbook.Sheets("Tabelle1").Cells(i, 1)) = True Then

ThisWorkbook.Sheets("Tabelle1").Cells(i, 2) = Regex.Replace(ThisWorkbook.Sheets("Tabelle1").Cells(i, 1), "")

End If

Next i

Set Regex = Nothing

End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tim,

hmm... auch wenn VBA teilweise skryptisch wirken kann, ist es lang kein Hieroglyphen: man kann es lesen, und auch mit wenig English sogar verstehen. Diese Übungsaufgabe wird dir nicht erspart bleiben, wenn Du deinen Code im Griff haben möchte. Ein Beispiel:

.IgnoreCase = False 'ignoriere Groß-Kleinschreibung

Die Frage lautet "soll ich die "case" ignorieren?" Wie lautet dann die Antwort?

Private Sub Farbe()

Dim R As Object

Dim Z As Range 'Z wie Zelle

Dim Erg As Object



    Set R = CreateObject("vbscript.regexp")

    R.Pattern = "(black frame|black)"

    R.IgnoreCase = True 'IgnoreCase: ja bitte, ignoriere gross/klein

    R.Global = True

    With ThisWorkbook.Sheets("Tabelle1")

        For Each Z In Range(.Cells(2, "A"), .Cells(Rows.Count, "A").End(xlUp))

            Set Erg = R.Execute(Z.Value)

            If Erg.Count Then Z.Offset(0, 1).Value = Erg(0) 'Anzahl an Ergebnis(se): 0 wird als False, alles anderes als True interpretiert, dann gibt das erste Ergebnis zurück

        Next

    End With

End Sub

VG
Yal

For i = 2 To ThisWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row For each x in Split("Black Frame|Black|black", "|") if Thisworkbook.Sheets("Tabelle1").Cells(i, 1) Like "*" & x & "*" then ThisWorkbook.Sheets("Tabelle1").Cells(i, 2) = x exit for end if next next

Private Sub Farbe() Dim i, txt With ThisWorkbook.Sheets("Tabelle1") For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row txt = UCase(.Cells(i, 1)) If InStr(txt, "BLACK") Then .Cells(i, 2) = "Black" If InStr(txt, "BLACK FRAME") Then .Cells(i, 2) = "Black Frame" Next i End With End Sub

Private Sub Farbe() Dim i, txt, k With ThisWorkbook.Sheets("Tabelle1") For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row txt = .Cells(i, 1).Value For Each k In Split("black frame;black", ";") 'wichtig: bei Überschneidung wie z.b. "black" in "black frame", immer der längste zuerst If InStr(txt, k, vbTextCompare) Then 'vbTextCompare = IgnoreCase .Cells(i, 2).Value = k Exit For 'gehe sofort an die nächste zelle ran, falls die Farbeliste sehr lang wäre End If Next Next i End With End Sub

Beliebteste Forumthreads (12 Monate)

Wort aus Zeichenkette extrahieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wort aus Zeichenkette extrahieren

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread