Find - Eigenschaften
04.02.2004 10:10:18
Karsten
ich habe ein Problem, beim dem ich einfach nicht mehr weiterkomme.
Ich erhalte bei dem Skript unten in Zeile 4 folg. Fehlermeldung:
"Laufzeitfehler 1004: Die Find-Eigenschaft des Range Objektes kann nicht zugeordnet werden."
Bin ich nur zu blind oder gibts hierbei einen Haken?
Gruß, Karsten
Private Sub CommandButton1_Click()
2 Dim NewRow As Range
3 With Worksheets("soll")
4 Set NewRow = .Columns(3).Find(InputBox("Eingabe der Händlernummer:"))
5 If NewRow Is Nothing Then
6 Beep
7 MsgBox "Händler " & NewRow & " nicht gefunden"
8 Exit Sub
9 End If
10 .Rows(NewRow.Row).Copy .Rows(6)
11 .Rows("7:" & .Cells(Rows.Count, 1).End(xlUp).Row).Clear
12 End With
13 End Sub