Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel vba Begriff suchen
#1
Hallo zusammen,

ich habe da im Netz ein tolles VBA-Skript von "ransi" für die Suche und das Zählen nach Begriffen gefunden und etwas auf meinen Bedarf abgeändert. Funktioniert toll aber eines bekomme ich nicht gebacken.
Ich suche nach Namen in einem benannten Bereich. Ich will aber nur ganze Namen finden z.B. "Wolf". Wenn ähnliche Worte wie "Wolfgang" vorkommen, wird dieses Wort auch mitgezählt.
DAs soll natürlich nicht sein.

Hier mal der Code. Wie müsste der abgeändert werden dass die Suche sich nur auf ganze Worte stürzt und nicht auch noch auf Teilstrings?

Code:
Sub SucheNamen()
  Dim Regex As Object
  Dim M As Object
  Dim Bereich As Range
  Dim sTitle As String
  Dim sTxt As String
 
  Set Regex = CreateObject("VbsCript.Regexp")
 
  'Mit Bereichs-Eingabe-Option
  'Set Bereich = Application.InputBox("Bitte markieren Sie einen Bereich", "Bereich wählen", , , , , , 8)
 
  'Mit fester Vorgabe ... hier Namensbereich
  Set Bereich = ActiveSheet.Range("Wettspielzeitraum")
  'MsgBox "Sie haben den folgenden Bereich ausgewählt: " & Bereich.AddressLocal(False, False)
  On Error GoTo 0
 
  ActiveSheet.Range(Bereich.AddressLocal(False, False)).Copy
 
  sTitle = Application.UserName & " says:"
  sTxt = InputBox(prompt:="Eingabe Suchbegriff:", Title:=sTitle)
  If sTxt = "" Then Exit Sub
  MsgBox sTxt
 
  'ActiveSheet.Range("A32:H106").Copy
  With Regex
     .Pattern = sTxt
     .Global = True
     Set M = .Execute(lesen)
     MsgBox M.Count
     anzEinsatz = M.Count
  End With
  Application.CutCopyMode = False
End Sub

Function lesen()
  Dim CLP As Object
  On Error Resume Next
  Set CLP = CreateObject("HTMLfile")
  lesen = CLP.ParentWindow.ClipboardData.GetData("text")
  Set CLP = Nothing
End Function

Vielleicht kann mir jemand helfen?
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antworten Top
#2
Hallo, :19:

in RegExp benötigst du dann noch den Parameter "\b": :21:

Code:
.Pattern = "\b" & sTxt & "\b"

Oder schreibe es so: :21:

Code:
Option Explicit
Public Sub Main()
    Dim strText As String
    strText = InputBox("Auswahl!", "Name eingeben!", "Wolf")
    If strText <> "" Then
        MsgBox Application.Evaluate("=COUNTIF(Wettspielzeitraum," & """" & strText & """" & ")")
    End If
End Sub
________
Servus
Case
[-] Folgende(r) 1 Nutzer sagt Danke an Case für diesen Beitrag:
  • sharky51
Antworten Top
#3
Super,

vielen Dank ... funktioniert.

Hab die erste Variante eingebaut.

Was bedeutet der Parameter "b"? nur zum Verständnis!
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antworten Top
#4
Hallo,

hilft dir das weiter? Unter den Punkt 3.2 Wortgrenzen.
Gruß Stefan
Win 10 / Office 2016
[-] Folgende(r) 1 Nutzer sagt Danke an Steffl für diesen Beitrag:
  • sharky51
Antworten Top
#5
Oh ja das ist gut und hilft für's Verstehen weiter!

Vielen Dank nochmals!
Mit freundlichen Grüßen / Best regards
                          //
----------o00o---°(_)°---o00o----------------------

Erich
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste