Fehlermeldung FInd

Hallo Forum,
folgende Suchroutine hat immer funktioniert!
Jetzt meldet sie: Type mismatch (Fehler 13) ohne die On Error Zeile
Mit der On Error Zeile wird kein Satz gefunden:

Function NameSuchen(SuchName As String, Taste As String) As Long
Dim Zeile As Long
Dim StrName As String
Dim Suche As Boolean
If StrName  SuchName Then
'On Error GoTo fehler
If Taste = "pgup" Then
Range("A:A").Find(What:=SuchName, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False).Activate
StrName = SuchName
ElseIf Taste = "pgdn" Or Taste = "enter" Then
Range("A:A").Find(What:=SuchName, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
StrName = SuchName
End If
Else
Range("A:A").FindNext(After:=ActiveCell).Activate
End If
Zeile = ActiveCell.Row
Suche = True
NameSuchen = Zeile
Exit Function
fehler:
MsgBox "Ein Datensatz " & Chr(34) & SuchName & Chr(34) & " konnte nicht gefunden werden"
End Function

Hat jemand ne Idee?
Für die Hilfe: danke!
Mit freundlichen Grüßen
Albrecht

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Function NameSuchen(SuchName As String, Taste As String) As Long 'Dim StrName As String Dim rngRange As Range 'If StrName <> SuchName Then '? If Taste = "pgup" Then Set rngRange = Range("A:A").Find(What:=SuchName, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _ MatchCase:=False, SearchFormat:=False) ' StrName = SuchName ElseIf Taste = "pgdn" Or Taste = "enter" Then Set rngRange = Range("A:A").Find(What:=SuchName, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) ' StrName = SuchName End If 'Else ' Set rngRange = Range("A:A").FindNext(After:=rngRange) 'End If If Not rngRange Is Nothing Then NameSuchen = rngRange.Row Else MsgBox "Ein Datensatz " & Chr(34) & SuchName & Chr(34) & " konnte nicht gefunden werden" End If End Function

Function NameSuchen(SuchName As String, Taste As String) As Long Dim Zelle As Range Dim SuchR As Long Select Case Taste Case "pgup": SuchR = xlPrevious Case Else: SuchR = xlNext End Select Set Zelle = Range("A:A").Find(What:=SuchName, _ After:=Intersect(ActiveCell.EntireRow, Columns(1)), _ LookIn:=xlFormulas, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ SearchDirection:=SuchR, _ MatchCase:=False, _ SearchFormat:=False) If Zelle Is Nothing Then MsgBox "Ein Datensatz " & Chr(34) & SuchName & Chr(34) & " konnte nicht gefunden werden" NameSuchen = 0 Else NameSuchen = Zelle.Row Zelle.Select End If End Function

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread