VBA nach mehreren Begriffen suchen
28.06.2024 16:56:01
MarC
ich habe zwei Tabellen. In Tabelle1 stehen die Begriffe nach denen ich suche und in Tabelle2 die Texte die durchsucht werden sollen. Der Suchbegriff steht immer links in der Zelle und daneben geht es dann weiter mit Text. Daher habe ich xlPart gewählt. Leider erhalte ich mit meinem Code weder eine Fehlermeldung noch ein Ergebnis obwohl die Begriffe im Text vorkommen. Hat jemand eine Idee wo bei mir der Hund begraben ist? Ich habe mehrere Punkte gesetzt um das Ergebnis bzw. den Vorgang im Code nachzuvollziehen aber ohne Erfolg.
Sub Pruefen()
Dim Gefunden As Range
Dim X As Integer
Dim Y As Integer
Dim LetzteZ1 As Long
Dim LetzteZ2 As Long
LetzteZ1 = Sheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row
LetzteZ2 = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
For X = 0 To LetzteZ1
For Y = 0 To LetzteZ2
With Sheets("Tabelle2")
Set Gefunden= .Cells(15 + Y, 2).Find(what:=Sheets("Tabelle1").Cells(15 + X, 3).Value, lookat:=xlPart)
End With
Next Y
Next X
If Ergebnis Is Nothing Then
MsgBox "Leider nichts gefunden"
Else
MsgBox Sheets("Tabelle2").Cells(Gefunden.Row, 2).Text
End If
End SubAnzeige