Probleme mit "Columns(x).Find(what"
04.01.2019 11:23:45
Excel2017
zuerst allen Lesern ein "gute Neues Jahr 2019".
Ich habe Probleme mit "Columns(x).Find(what".
In Spalte 1 stehen untereinander 5 verschiedene Begriffe. In Spalte 2 stehen 4 dieser Begriffe (in einer anderen Reihenfolge) und ein 5. und damit neuer Begriff.
Mein VBA-Code funktioniert, solange der Begriff aus Spalte 1 in Spalte 2 gefunden wird. Wird ein Begriff gesucht, welcher in Spate 2 nicht vorhanden ist, erhalte ich einen "Laufzeitfehler 91"
Um das Problem zu umgehen, arbeite ich mit "On Error Resume Next" und lösche zuvor das Ergebnisfeld. Das kann doch aber nicht der Standard sein!!
Frage 1: was ist an meinem Code falsch
Frage 2: kann ich bei .find auch direkt die Celle benutzen?
Danke im Voraus für jede (brauchbare) Antwort.
Gruß
Werner
hier mein Code:
Sub Suchen()
Dim LCOunt1 As Long
Dim Suchbegriff As String
Dim Fundort As Long
For LCOunt1 = 1 To 5
Suchbegriff = Cells(LCOunt1, 1).Value
'Fundort = 0
'On Error Resume Next
Fundort = Columns(2).Find(what:=Suchbegriff, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Row
'On Error GoTo 0
Cells(LCOunt1, 3).Value = Fundort
Next
End Sub