Filtern, Userform, Textbox
07.08.2002 18:38:11
Jann
Nochmals ich.....
nun ja, ich möchte die Kriterien in einer Userform in verschiedenen Textboxen anzeigen. Irgendwie haut das einfach nicht hin. Habe auch ein Beispiel gefunden, aber es funzt einfach nicht! Werde noch verrückt!
'ClassModule: frmFilter
Private Sub cmdFilter_Click()
If ActiveSheet.FilterMode = False Then
ActiveSheet.FilterMode = True
End If
Range("A1").AutoFilter field:=5, Criteria1:="AH" & _
txtfilter.Text, Operator:=xlOr
ActiveCell = txtfilter.Value
End Sub
Private Sub cmdWeiter_Click()
Unload Me
End Sub
'StandardModule: basMain
Sub DialogAufruf()
frmFilter.Show
End Sub
Kann mir jemand weiterhelfen?
Danke im voraus
Anzeige