Laufzeitfehler '91'
04.12.2007 12:33:27
Christian
habe ein kleines Problem weiss aber leider nicht wie ich es lösen kann.
Bekomme immer bei der Zeile If suchen "" Then den Laufzeitfehler '91'
Objektvariable oder With-Blockvariable nicht festgelegt.
Dim suchen as Variant
Dim i As Long
With wkbwksData.Range("D11:D65000")
Set suchen = .Find(pnMat)
If suchen "" Then
rowPNData = Range(suchen.Address).Row
If Cells(rowPNData, 26).Value Like ("*" & pNameMat & "*") Then
bool = werteEintragen(rowPNData)
Else:
Cells(rowPNData, 26).Value = Cells(rowPNData, 26).Value & " / " & pNameMat
bool = werteEintragen(rowPNData)
End If
Else:
bool = notFoundPartNumber(pnMat)
End If
End With
End Function
Die restlichen Variablen sind global Variablen.
Hoffe mir ist noch zu RETTEN : )
Gruß und vorab Danke
Christian
Anzeige