Buchstabenfolgen in Variable suchen

Forumthread: Buchstabenfolgen in Variable suchen

Stefan

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

vlt so:

22.01.2011 17:07:16

CitizenX

Hallo Stefan,
probier mal das:
https://www.herber.de/bbs/user/73191.xls
Grüße
Steffen

AW: Buchstabenfolgen in Variable suchen

22.01.2011 17:18:52

fcs

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

AW: Buchstabenfolgen in Variable suchen

22.01.2011 17:52:45

Tino

Hallo,
mit VBA und Regulärer Ausdruck habe ich es mal so versucht.
Du kannst die Liste der Abkürzungen als gesamte Liste verwenden oder auch einzelne Zellen davon.
Wichtig die Abkürzungen dürfen nur durch Komma getrennt in der Liste stehen.
Die Function ist im Modul1 und kann als Formel in der Tabelle verwendet werden.
Kannst ja mal testen.
https://www.herber.de/bbs/user/73192.xls
Gruß Tino

Beliebteste Forumthreads (12 Monate)

Buchstabenfolgen in Variable suchen

Forumthread: Buchstabenfolgen in Variable suchen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Buchstabenfolgen in Variable suchen

Forumthread: Buchstabenfolgen in Variable suchen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread