Zahl suchen über UserForm Commandbutton
05.08.2006 14:44:21
Wolfgang
ich habe aus der Archiv ein Makro kopiert und versucht es für meine Zwecke umzubauen.
Leider habe ich es nicht ganz geschafft und bekomme immer eine Fehlermeldung:
Index außerhalb des gültigen Bereichs
Das Makro wird aus einer Userform gestartet und soll die Zahl im Format ("0000") aus der Textbox1 mit den Bereich A2:A1000 aus der Tabelle DATA vergleichen und wenn die Zahl in dem Bereich gefunden wird eine Meldung machen das die Zahl bereits vorhanden ist.
es wäre super wenn jemand mir das richten könnte.
Das Makro:
Private Sub CommandButton18_Click()
With Sheets("DATA")
.Range("A2:A1000").Find(what:=UserForm.TextBox1.Value, _
LookIn:=xlValue, lookat:=xlWhole, _
Searchorder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False) = Cells.Value
End With
UserForm.TextBox1.Value = Cells.Value
MsgBox " Nummer: " & UserForm.TextBox1.Value & " ist schon vorhanden!"
Exit Sub
End Sub
Vielen Dank für die Hilfe
Gruß Wolfgang
Anzeige