Re: wert in Tabelle suchen
13.12.2002 16:53:56
Robert
hi Darius,ich hoffe ich konnte dir helfen
einfach an deine textboxnamen und comboboxnamen anpassen
Private Sub Suchen_Click()
Set Frm1 = Tabellenname
With Frm1
Sheets("Tabellenname").Select
Range("A2:A65535").Select 'Angabe in welcher Spalte gesucht werden soll
On Error GoTo Fehler
Selection.Find(what:=Textbox1.Value, _
After:=ActiveCell, _
LookIn:=xlFormulas, lookat:=xlWhole, _
Searchorder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate 'wo und nach welchen kriterien soll gesucht werden gefundenes feld wir aktiviert
.Textbox1.Value = ActiveCell.Value
.Combobox???.Value = ActiveCell.Offset(0, 1).Value ' zeigt die Werte der felder an
Exit Sub
Fehler:
MsgBox " Nummer: " & .Textbox1.Value & " konnte nicht gefunden werden!"
end sub