Abend,
ich habe folgen Programmcode
On Error GoTo EERR
Dim AAAC As Long
Dim strSuchen As Variant
If ComboBox1.Value <> "" Then
strSuchen = ComboBox1.Value
AAAC = CDbl(TableArticle.Range("a3:a758").Find(What:=strSchen, lookat:=xlWhole).Row)
End If
Exit Sub
MsgBox (Err.Description)
End Sub
Num bekomme ich halt immer "Objektvariable oder With-Blockvariable nicht festgelegt" ausgegeben.
Ich kapier nicht ganz was da falsch sein soll.
|