AutoFiltern über CommandBar.control
12.12.2005 09:37:16
R.Schmitt
mit nachstehendem Makro filtere ich derzeit über eine TextBox
eine recht lange ExcelListe (> 10.000 Einträge) nach dem vom
Nutzer dort eingegebenem Suchbegriff.
Private Sub TextBox1_Change()
Worksheets("Tabelle1").Range("o12").AutoFilter _
Field:=1, Criteria1:=TextBox1.Value
If TextBox1.Value = "" Then
Selection.AutoFilter Field:=1
End If
End Sub
Statusleiste, Menuleisten etc. ist schon alles ausgeblendet, nun
soll zugunsten einer eigenen Menuleiste auch die Textbox verschwinden
und genau da liegt mein Problem. Eine eigene Menuleiste habe ich schon
erstellt. Dort auch ein msoControlEdit eingefügt, in das man den zu
suchenden Text eingeben kann.
Wie bringe ich nun diesem control bei, die Liste nach dem dort ein-
gegebenem Begriff zu filtern ? (.on action hab´ich schon)
Also wir muß dieses Makro richtig lauten ?
Sub Filtern()
Worksheets("Tabelle1").Range("c6").AutoFilter _
Field:=1, Criteria1:=CommandBars("mycommandbarleft").Controls(1)
.............
..............
Vielen Dank
R.Schmitt