Suchfunktion FIND Type missmatsch
ing.grohn
mit folgender Suchfunktion finde ich Daten in meiner Tabelle:
Function NameSuchen(SuchName As String, Taste As String) As String
Dim Zelle As Range
Dim SuchR As Long
If Taste = "pgup" Then
SuchR = xlPrevious
Else
SuchR = xlNext
End If
On Error GoTo Errorhandler
'After:=Intersect(ActiveCell.EntireRow, Columns(6)),
Set Zelle = Range("A:F").Find(what:=SuchName, _
After:=ActiveCell, _
LookIn:=xlFormulas, _
lookat:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=SuchR, _
MatchCase:=False, _
SearchFormat:=False)
If Zelle Is Nothing Then
MsgBox "Der Datensatz " & Chr(34) & SuchName & Chr(34) & " konnte nicht gefunden werden"
NameSuchen = ActiveCell.Row
Else
NameSuchen = Zelle.Row
Zelle.Select
End If
Exit Function
Errorhandler:
MsgBox "bei der Suche ist ein Fehler aufgetreten!" & Chr(10) & "Weiter mit Return/Eingabe!"
NameSuchen = ActiveCell.Row
End Function
Funktioniert prima !!!
Aber, wenn ich schreibe:
Set Zelle = Range("F:F").Find(w.....
kommt die Meldung: "Typen unverträglich!"Warum ist das so?
Vielen Dank für Eure Mühe und Antworten
Mit freundlichen Grüßen
Albrecht