In Tabelle suchen
19.02.2020 20:19:39
walter
ich wollte mir eine Suchoption in meiner Datenbank erweitern.
Textbox1 ist auf einer kleinen UF plaziert.
Bisher habe ich immer nach dem Namen in Spalte 5 gesucht, klappt soweit
Private Sub CommandButton1_Click()
Dim LoLetzte1 As Long
If Len(Trim(Me.TextBox1.Text)) > 0 Then
ActiveSheet.Range("$A$2:$R$2").AutoFilter Field:=5, Criteria1:="*" & TextBox1.Text & "*", _
VisibleDropDown:=False
Else
ActiveSheet.Range("I2").CurrentRegion.AutoFilter
End If
End Sub
gruß
walter b
Anzeige