TextBox auf Tabelle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Morgen Rudi,
ich habe deinen Vorschlag geprüft aber leider nicht so verstanden.
Habe deine Verlinkung mal so eingesetzt:


Private Sub TextBox1_Change()
Dim FI$
If bolFocus = True Then Exit Sub
FI = ActiveSheet.TextBox1.Text
ActiveSheet.TextBox2.Value = ActiveSheet.TextBox1.Value


Private Sub TextBox2_Change()
Dim FI$
If bolFocus = True Then Exit Sub
FI = ActiveSheet.TextBox2.Text
With Selection
.AutoFilter Field:=6, Criteria1:=FI & "*"
End With
End Sub

Ich habe eine 2. Textbox erstellt, der Wert der Textbox1 wird auch in die Textbox2 reingesetzt.
Jetzt weiß ich natürlich nicht weiter.
Wenn der Wert in aus Textbox1 in Spalte 5 nicht gefunden wird, soll in Textbox2 Spalte 6 suchen und filtern.
gruß sigrid

Hallo
ich benutze privat selten den Autofilter, bin darin unerfahren, habe einen schlauen Code für dich.
Er benutzt bei langen Namen (> 3 Buchstaben) einen Find Suchlauf, zuerst in Spalte 5, dann Spalte 6.
Wird der Name nicht gefunden kommt eine MsgBox Meldung, sonst wird in der richtigen Spalte gefiltert.
Bei Buchtaben wird zuerst Spalte 5 gefiltert, wenn dort nichts vorliegt filtert der Code die Spalte 6.
Ich hoffe der Code ist brauchbar und klappt in der Praxis. Sonst muss man ihn nacharbeiten.
Damit brauchst du wahrscgeinlich keine 2. TextBox mehr!!.
Frohes Weihnachtsfest und ein gutes jeues jahr für dich und die Familie.
mfg Piet

Option Explicit
Dim FI As String, Spa As Integer
Dim rfind As Range, x, lz1 As Long


Sub Filtrn_mit_Suchen()
'LastZell in Spalte B
lz1 = Cells(Rows.Count, 2).End(xlUp).Row
FI = ActiveSheet.TextBox1.Text
Spa = 5  '1. Spalte zum Filtern
With Range("A2:M" & lz1)
such: 'nur lange Namen suchen, keine Buchstaben!!
If Len(FI) > 3 Then
If Spa > 6 Then MsgBox FI & ":  nicht gefunden": Exit Sub
Set rfind = Columns(Spa).Find(What:=FI, After:=Cells(1, Spa), LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If rfind Is Nothing Then Spa = Spa + 1: GoTo such
End If
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
.AutoFilter Field:=Spa, Criteria1:=FI & "*"
'Kein Ergebnis dann auf Feld 6 umschalten
x = Cells(2, Spa).Resize(lz1 - 1, 1).SpecialCells(xlCellTypeVisible).Count
If x

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

TextBox auf Tabelle

28 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

28
Beiträge zum Forumthread

Beiträge zu diesem Forumthread