Hallo zusammen,
bekomme in der Zeile "If Search_Set.Count"
Die Fehlermeldung "Object variable or With block variable not set"
Die Funktion läuft im Produkt ohne Problem durch.
Leider nicht im Drawing. Hat jemand eine Idee?
Code:
Function Parameter_pruefen(Check_Name As String, Search_Set As Parameters) As BooleanDim Anzahl_Params As Integer
Dim Laenge_Orig_String As Long
Dim New_String As String
Dim CheckLength As Long
Dim ExactString As String
Laenge_Orig_String = Len(Check_Name)
CheckLength = Laenge_Orig_String + 12
ExactString = "Projektinfo\" & Check_Name
If Search_Set.Count = 0 Then
Parameter_pruefen = True
Exit Function
Else
For Anzahl_Params = 1 To Search_Set.Count
New_String = Right(Search_Set.Item(Anzahl_Params).Name, CheckLength)
If New_String = ExactString Then
Parameter_pruefen = False
Exit Function
Else
Parameter_pruefen = True
End If
Next
End If
End Function
------------------
Gruß Uwe
Auch Catia ist nur ein Mensch!
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP