UserForm - Daten auslesen funktioniert nicht
24.03.2006 10:33:56
JMR
Mit folgender UserForm moechte ich Daten aus einer Tabelle auslesen (Suchkriterium ist das Datum der Bestellungen, z.B. so 10/11/2005). Zur Zeit funktioniert dies aber nur fuer einige wenige. In den meisten Faellen gelange ich sofort zur MsgBox (die die Fehlermeldung enthaelt "Datum nicht gefunden") obwohl das Datum vorhanden ist.
Wo liegt der Fehler?
Kann mir jemand helfen?
Vielen dank fuer euere Bemuehungen...
Gruss, Jan
Code:
Private Sub CommandButton1_Click()
'Datensatz suchen
Set frm2 = UserForm2
With frm2
Sheets("PROVV").Activate
On Error GoTo fehler
Columns("A:A").Find(What:=.TextBox1.Value, _
After:=Range("A1"), LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
'.TextBox1.Value = ActiveCell.Value 'Data
.TextBox2.Value = ActiveCell.Offset(0, 1).Value 'N°ns.Ordine
.TextBox3.Value = ActiveCell.Offset(0, 2).Value 'Cliente
.TextBox4.Value = ActiveCell.Offset(0, 3).Value 'Casa Estera
.TextBox5.Value = ActiveCell.Offset(0, 4).Value 'Prodotto
.TextBox6.Value = ActiveCell.Offset(0, 5).Value 'Quantità
.TextBox7.Value = ActiveCell.Offset(0, 6).Value 'Valuta
.TextBox8.Value = ActiveCell.Offset(0, 7).Value 'Prezzo kg/pezzi
.TextBox9.Value = ActiveCell.Offset(0, 9).Value 'PROVV %
.TextBox10.Value = ActiveCell.Offset(0, 12).Value 'Stato
Exit Sub
fehler:
MsgBox "Dati non trovato:" & .TextBox1.Value
End With
End Sub