Anzeige
Archiv - Navigation
1740to1744
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

In Tabelle suchen

In Tabelle suchen
19.02.2020 20:19:39
walter
Hallo nochmal,
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
ich möchte gern, nach Name, PLZ, Ort etc. suchen und diese stelle sollte ohne filtern Selectiert werden.
gruß
walter b

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Tabelle suchen
19.02.2020 20:24:52
Werner
Hallo,
kann es sein, dass ich das irgendwoher kenne?
Private Sub CommandButton1_Click()
Dim raFund As Range
If Len(Trim(Me.textbox1.Text)) > 0 Then
Set raFund = Cells.Find(what:=Me.textbox1, LookIn:=xlValues, lookat:=xlPart)
If Not raFund Is Nothing Then
raFund.Select
End If
End If
End Sub
Gruß Werner
Danke Werner Super -)
19.02.2020 20:43:44
walter
Hallo Werner,
ich habe es Gegoogelt oder früher mal im Forum gefunden.
gruß walter b
Gerne u. Danke für die Rückmeldung. o.w.T.
19.02.2020 20:59:37
Werner
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige