title image


Smiley Excel97 VB Anzeige aller Zeilen in denen ein bestimmter Text gefunden wurde
Benötige im Excel 97 über VB "Toolboxbutton und Suchtexteingabe" eine Suchfunktion, welche in allen Spalten einer Tabelle sucht und anschließend alle Zeilen ausgibt, in welchen das betreffende "Suchwort" enthalten sind.

Bisher kann ich nur über einen Filter einer Spalte (siehe unten) suchen:

Private Sub SuchknopfGPLA_Click()

On Error GoTo EndeSuchknopfTEST

If IsNull(SuchbegriffDatum) Then

ActiveSheet.ShowAllData

Else

Kriterium$ = SuchbegriffTEST

Range("F6").Select

Kriterium$ = "=*" & Kriterium$ & "*"

Selection.AutoFilter Field:=6, Criteria1:=Kriterium$, Operator:=xlAnd

ActiveWindow.ScrollRow = 7

End If

EndeSuchknopfTEST:

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: