"Objekt erforderlich" Fehler
27.01.2004 21:44:36
calle
wenn ich meinen unten aufgeführten code ausführe bringt er mir die Fehlermeldung Object erforderlich aber wenn ich dann ok klicke hat er die Prozedur so ausgeführt wie ich es haben will.
Woran liegt das bzw wie kann man diesen Fehler beheben.
Oder kann man diesen Fehler abfangen? (Fehlerabsicherung?)
danke für eure hilfe
calle
------------------------
Private Sub cmdCancel_Click()
Dim aItem As Variant, suche$
Dim rAlleSp As Range
Dim rGesucht As Range
Dim varArray As Variant
Dim i As Integer
Dim iSelected As Integer
ReDim varArray(1)
For i = 0 To lstMonths.ListCount - 1
If lstMonths.Selected(i) Then
iSelected = iSelected + 1
ReDim Preserve varArray(iSelected)
varArray(iSelected) = lstMonths.List(i)
End If
Next
Set rGesucht = Nothing
For Each aItem In varArray
If (CStr(aItem) = "") Then GoTo NextItem
Set rGesucht = Nothing
suche$ = aItem
Set rGesucht = Cells.Find(What:=suche$, After:=[A1], LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True)
' wenn erstes mal was gefunden
If ((Not rGesucht Is Nothing) And (rAlleSp Is Nothing)) Then
Set rAlleSp = Range(Cells(rGesucht.Row, rGesucht.Column), _
Cells(rGesucht.End(xlDown).Row,
rGesucht.Column))
' wenn zweites usw. male gefunden, dann den ersten und die weiteren
'ranges
' miteinander union
ElseIf ((Not rGesucht Is Nothing) And (Not rAlleSp Is Nothing)) Then
Set rAlleSp = Application.Union(rAlleSp, Range(Cells(rGesucht.Row,
rGesucht.Column), _
Cells(rGesucht.End(xlDown).Row, rGesucht.Column)))
End If
NextItem:
Next aItem
If (Not rAlleSp Is Nothing) Then rAlleSp.Activate
Selection.Copy
Unload Me
End Sub