Buchstabenfolgen in Variable suchen

Hallo Zusammen,
ich lese eine Zelle aus, darin stehen Buchstaben und Abkürzungen, siehe angehängte Datei:
https://www.herber.de/bbs/user/73186.xls
nun möchte ich untersuchen, ob ein bestimmter Buchstabe z.B. e oder v vorhanden ist, oder einer der Buchstabenfolgen z.B. sen oder mtr. Wenn ich nach dem e suche, darf nicht das e in sen bemeint sein, das ist das Problem. Mit den einzelnen Buchstaben habe ich es hinbekommen, in dem ich nach e suche und danach kontrolliere, ob davor oder dahinter ein , steht. Nur weiß ich nicht wie man am Besten nach den Buchstabenfolgen suchen kann. Ich hatte schon überlegt, die Wörter durch durch Zahlen uä zu ersetzen und danach nach nur einer Ziffer zu suchen, aber so richtig schön ist die Lösung nicht.
Weiß vielleich jemand eine elegantere Lösung.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Stefan,
hier ein Beispiel, wie du Zellen nach Buchstaben/Buchstabenfolgen durchsuchen kannst, die durch Komma getrennt sind.
Gruß
Franz

Sub ZellenTesten()
Dim Zeile As Long, arrWerte, iJ As Integer
arrWerte = Array("e", "v", "sen", "akt", "mtr", "bgf")
With ActiveSheet
For Zeile = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
For iJ = LBound(arrWerte) To UBound(arrWerte)
With .Cells(Zeile, 2)
If TextAnalyse(.Text, arrWerte(iJ), True) Then
Select Case arrWerte(iJ)
Case "e"
MsgBox """" & arrWerte(iJ) & """ in Zelle " & .Address & " gefunden."
Case "v"
MsgBox """" & arrWerte(iJ) & """ in Zelle " & .Address & " gefunden."
Case "mtr"
MsgBox """" & arrWerte(iJ) & """ in Zelle " & .Address & " gefunden."
Case "sen"
MsgBox """" & arrWerte(iJ) & """ in Zelle " & .Address & " gefunden."
Case "mtr"
MsgBox """" & arrWerte(iJ) & """ in Zelle " & .Address & " gefunden."
Case "akt"
MsgBox """" & arrWerte(iJ) & """ in Zelle " & .Address & " gefunden."
Case "bgf"
MsgBox """" & arrWerte(iJ) & """ in Zelle " & .Address & " gefunden."
End Select
End If
End With
Next
Next Zeile
End With
End Sub
Function TextAnalyse(ByVal sText As String, ByVal sSuchen As String, _
Optional bGrossKlein As Boolean = True) As Boolean
Dim arrText, iJ As Integer
If sText = "" Then
'do nothing
Else
arrText = Split(sText, ",")
For iJ = LBound(arrText) To UBound(arrText)
arrText(iJ) = IIf(bGrossKlein, Trim(arrText(iJ)), LCase(Trim(arrText(iJ))))
If arrText(iJ) = IIf(bGrossKlein, sSuchen, LCase(sSuchen)) Then
TextAnalyse = True
Exit For
End If
Next
End If
End Function

Beliebteste Forumthreads (12 Monate)

Buchstabenfolgen in Variable suchen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread