Bei einer einfachen Suche nach einer ID ist ein Laufzeitfehler 91 aufgetreten ... Warum? (GELÖST: Die Suche ist fehlgeschlagen, da die Zelle als Zahl mit Komma formatiert war – komisch, aber wahr. Habe das Format auf „allgemein“ geändert und es funktioniert einwandfrei! Danke, Leute!)
Public Sub SearchID()
Dim foundCell As Range
Dim searchEmpID As String
Dim searchRange As Range
Dim rowFound As Integer
searchEmpID = "EmpID_0112"
Set searchRange = Sheets("HoursData").Range("DY2:DY999")
Sheets("HoursData").Select
Set foundCell = searchRange.Find(What:=searchEmpID, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
MsgBox Sheets("HoursData").Range("DY115").Value '<<<<< Die Daten/ID sind da, siehe Screenshot.
rowFound = foundCell.Row '<<<<<<<<<<<< Why this produces Runtime Error 91/Object Variable Not Set...???
End Sub