AdvancedFilter mit TextBox ?
15.06.2004 16:23:54
Reto
Ich habe eine Tabelle mit Überschriften. Oberhalb dieser Tabelle habe ich nochmals die gleichen Überschriften und darunter eine leere Zeile (für die Kriterien des AdvancedFilter).
Nun habe ich einen CommandButton gemacht:
Private Sub SpezialFilter1row_Click()
Range("A10:O1426").AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("D7:K8"), Unique:=False
End Sub
Funktioniert soweit alles, ist aber mühsam nach jeder Kriterieneingabe die Maus in die Hand zu nehmen und diesen Button zu drücken ...
Kann ich auch irgendwie die Kriterien des Filters in TextBox's eingeben? Weil dann könnte ich den Filter ausführen lassen, sobald ich die Textbox mit ENTER verlasse.
oder
Kann ich irgendwie programmieren, dass sobald ich eine der "FilterKriterienZellen" mit ENTER verlasse, der Filter ausgeführt wird?
Bin dankbar für jegliche Tipps
Reto E.
Anzeige