Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Keine Filterung wenn nicht gefunden

Keine Filterung wenn nicht gefunden
26.03.2020 20:55:41
Longo
Hallo
Ich habe eine Textbox (tb_such). Deren Inhalt soll mit Enter über 2 Spalten gesucht werden. Dies funktioniert einwandfrei.
Ich möchte nun, dass wenn kein Begriff gefunden wurde kein Filterung gemacht wird und eine MsgBox "Begriff nicht gefunden" erscheint. Mein Code sieht wie folgt aus:
Private Sub tb_such_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If tb_such = "" Then
ActiveWindow.SmallScroll Down:=-8
If Sheets("Worksheet").FilterMode Then Sheets("Worksheet").ShowAllData
Else
Sheets("Such").Cells(3, 2) = "*" & tb_such.Value & "*" 'Spalte H
Sheets("Such").Cells(2, 1) = "*" & tb_such.Value & "*" 'Spalte J
Application.CutCopyMode = False
Range("Tabelle1434[#All]").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Such").Range("A1:C3"), Unique:=False
End If
End If
ThisWorkbook.Worksheets("Worksheet").Activate
ActiveWindow.ScrollRow = 5
End Sub
Gruss Longo
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Keine Filterung wenn nicht gefunden
26.03.2020 21:35:32
Daniel
Hi
Du kannst mit ZählenWenn prüfen, ob der Suchbegriff vorhanden ist:
If Worksheetfunction.CountIf(Range (...), "*" & tb_such.Value & "*") > 0 then
'--- Filterung durchführen
Else
'--- Messagebox ausgeben
End if
Gruß Daniel
AW: Keine Filterung wenn nicht gefunden
27.03.2020 10:02:15
Longo
Vielen Dank Daniel. Es funktioniert wunderbar.
Gruss Longo
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige