Typenfehler 91 bei Suchfunktion
24.06.2019 08:38:38
Leon.DerProf
Sub findenetwa()
Dim festNr1 As Long
Dim finden1 As Range
festNr1 = ActiveCell.Offset(0, -5).Value
Worksheets(2).Activate
finden1 = Range("D4:NE4").Find(what:=festNr1, LookIn:=xlValues)
MsgBox finden1
End Sub
In Tabelle1 steht ein Datum, d.h. die Prozedur ermittelt für dieses Datum einen Wert von bspw. 43377.
In Tabelle2 wird im Bereich D4:NE4 dieser Wert (daher das LookIn) gesucht.
Leider gibt es genau hier einen Laufzeitfehler 91: Objektvariable oder With-Block Variable nicht festgelegt.
Wo ist das Problem?
Anzeige