VBA .Find mit wildcard

Forumthread: VBA .Find mit wildcard

claudia

Hallo,
ich durchsuche über ein VBA-Marco eine Excel-Liste nach einem passenden Kriterium, das jedoch eine Wildkard enthalen muss, da einige Buchstaben aus der Mitte nicht relevant sind.
So nach dem Prinzip:
Set wo=Cells.Find("ALV * EQUITY")
Funktioniert auch, wenn ich den Suchstring dirket im Find-befehl übergebe.
Da es sich jedoch um eine Schleife handelt, mit der ich 1000 Werte suchen muss, habe ich versucht, den Wert zuvor in eine Variable zu schreiben & damit zu suchen:
...
ID = Left(Range("a" & i).Value, InStr(1, Range("a" & i), " ", vbTextCompare)) & "* EQUITY"
Set wo = Cells.Find(What:=ID, LookAt:=xlWhole)

Klappt nicht. kommt immer nur mit Nothing zurück.
Wisst Ihr, wie man es korrekt macht?
Bester Dank,
Claudia

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: VBA .Find mit wildcard

Peter
VBA: Find mit wildcard

Erich

AW: VBA .Find mit wildcard

09.05.2011 18:40:35

Peter

Hallo Claudia,
das 2. Argument bei InStr muß eine Zeichenkette sein. Häng ein .value an.
Gruß

VBA: Find mit wildcard

10.05.2011 01:01:56

Erich

Hi Claudia,
der Code scheint mir schon korrekt zu sein. Was genau steht in Spalte A, Zeile i?
Probier mal


Sub aaaTest()
Dim wo As Range, ID As String, i As Long
i = 5
Set wo = Cells.Find("ALV * EQUITY", LookAt:=xlWhole)
MsgBox wo & " 1. Treffer"
ID = Left(Range("a" & i), InStr(1, Range("a" & i), " ", vbTextCompare)) _
& "* EQUITY"
'besser
ID = Left(Cells(i, 1), InStr(1, Cells(i, 1), " ", vbTextCompare)) _
& "* EQUITY"
MsgBox ID
Set wo = Cells.Find(What:=ID, LookAt:=xlWhole)
MsgBox wo & " 2. Treffer"
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
P.S. @ Peter:
.Value kann, muss aber da nicht stehen, denn das ist die Standardeigenschaft von Range.

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Erstelle ein neues Modul, indem Du auf Einfügen > Modul klickst.

Füge den folgenden Code in das Modul ein:

Sub SucheMitWildcard()
   Dim wo As Range
   Dim ID As String
   Dim i As Long

   ' Setze die Zeilennummer, die Du durchsuchen möchtest
   i = 5

   ' Beispiel für die Suche mit Wildcard
   ID = Left(Cells(i, 1), InStr(1, Cells(i, 1), " ", vbTextCompare)) & "* EQUITY"
   Set wo = Cells.Find(What:=ID, LookAt:=xlWhole)

   If Not wo Is Nothing Then
       MsgBox "Treffer gefunden: " & wo.Address
   Else
       MsgBox "Kein Treffer gefunden."
   End If
End Sub

Stelle sicher, dass die Daten in der ersten Spalte vorhanden sind, bevor Du das Makro ausführst.
Führe das Makro aus, um nach dem Suchbegriff zu suchen, der Wildcards enthält.

Häufige Fehler und Lösungen

Problem: Der Code gibt Nothing zurück.
- Lösung: Überprüfe, ob der gesuchte Wert tatsächlich in der Zelle vorhanden ist. Stelle sicher, dass Du die Wildcards korrekt verwendest.
Problem: .Find funktioniert nicht wie erwartet.
- Lösung: Achte darauf, dass Du das Argument LookAt richtig setzt. Bei der Verwendung von Wildcards kann xlPart sinnvoll sein, wenn Du nur einen Teil des Wertes suchst.

Alternative Methoden

Wenn .Find nicht die gewünschten Ergebnisse liefert, kannst Du auch die AutoFilter-Methode verwenden:

Sub FilterMitWildcard()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("DeinTabellenblatt")

    ws.Range("A1").AutoFilter Field:=1, Criteria1:="ALV * EQUITY"
End Sub

Hier wird die Filter-Funktion von Excel verwendet, um nach Kriterien mit Wildcards zu suchen.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie Du VBA mit Wildcards verwenden kannst:

Suche nach einer bestimmten Kategorie:

Set wo = Cells.Find(What:="*Kategorie*", LookAt:=xlPart)

Suchen und Ersetzen mit Wildcards:

Cells.Replace What:="*Alt*", Replacement:="Neu", LookAt:=xlPart

Diese Beispiele zeigen, wie Du die Flexibilität von Wildcards in Excel VBA nutzen kannst.

Tipps für Profis

Verwende Option Explicit am Anfang Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Fehler zu vermeiden.
Teste Deinen Code mit verschiedenen Wildcard-Kombinationen, um sicherzustellen, dass Du alle möglichen Treffer findest.
Nutze Debug.Print zur Überprüfung, welche Werte in Deinen Variablen gespeichert sind.

FAQ: Häufige Fragen

1. Was sind Wildcards in VBA?
Wildcards sind Platzhalter, die in Suchanfragen verwendet werden, um eine Vielzahl von möglichen Übereinstimmungen zu berücksichtigen. Zum Beispiel steht * für beliebige Zeichenfolgen.

2. Wie kann ich mehrere Wildcards in einer Suche kombinieren?
Du kannst mehrere Wildcards in einem Suchbegriff kombinieren, indem Du sie einfach im Suchstring anfügst, z.B. "*Test*Wildcards*".

3. Welche Excel-Version benötige ich, um VBA mit Wildcards zu verwenden?
VBA mit Wildcards ist in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)