Probleme mit Code für Combobox
19.02.2008 10:45:00
J.
kann mal bitte jemand über diesen Code drüberschauen und mir sagen warum ich den Fehler "objekt erforderlich" erhalte. Die fett und kursiv geschriebenen Zeilen werden dabei markiert.
Sub suchen_in_spalten()
Dim raZelle As Range
Set raZelle = Worksheets("Arbeitsgruppen").Range("A1:Z1").Find(Worksheets("Sonstiges"). _
Range("K1"), lookat:=xlWhole)
If Not raZelle Is Nothing Then
With Worksheets("Arbeitsgruppen")
cboArbeitsschritte.ListFillRange = "Arbeitsgruppen!" & .Range(.Cells(2, _
raZelle.Column), _
.Cells(IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp). _
_
_ Row, .Rows.Count), raZelle.Column)).Address
End With
End If
End Sub