Makro für Benutzerdefinierter Autofilter
17.12.2006 23:16:00
Fürneisen
vorab folgendes:
finde mein Excel 2002 total langsam, was Filter und Makros betrifft, diese habe ich auf der Symbolleiste mit Buttons verknüpft.
Habe irgendwo gelesen, dass es mir SP3 alles besser läuft und habe es gerade installiert. Habe auch unter Ansicht Statusleiste Häkchen entfernt, was wohl auch ein Bremsklotz sein soll. Bin aber im Ganzen nicht zufrieden.
Habe auch in meiner Liste bestehend aus 30 Blättern mit viele sverweise.
Rechnungsliste, Bestandslisten, Rechnungslisten von div. Kunden.
Bitte sagt jetzt nicht in Access wäre alles einfacher, habe absolut keinen Schimmer davon und auch keine Zeit mich da rein zu wuseln.
Hat jemand einen Tipp, wie Excel schneller filtert bzw Makros schneller laufen?
z.B. das hier
Sub ForceExtraNacht()
' ForceExtra Makro
' Makro am 26.06.2006 von Susanne Fürneisen aufgezeichnet
Selection.AutoFilter Field:=16, Criteria1:="=*Force Extra*", Operator:=xlAnd, _
Criteria2:="=*Nacht*"
End Sub
Nun zum 2ten Problem.
Ich finde es immer sehr müßig über den Benutzerdefinierten Autofilter per Hand auszufüllen und habe mir mit Hilfe von div. Foren folgendes Makro erstellt:
Dim Eingabe As String
Dim Eingabe2 As String
Eingabe = InputBox("1Worteingabe")
Eingabe2 = InputBox("2Worteingabe")
Selection.AutoFilter Field:=16, Criteria1:="=*" & Eingabe & "*", Operator:=xlAnd, _
Criteria2:="=*" & Eingabe2 & "*"
nun wollte ich noch eine Inputbox für den Field erstellen, sämtliche Varianten funktionieren nicht, nehme aber an, dass es geht, weil ich folgendes hier gefunden habe
https://www.herber.de/forum/archiv/120to124/t121631.htm
Auszug daraus:
Sub Makro1()
Dim Eingabe As String
Eingabe = InputBox("Worteingabe")
Selection.AutoFilter Field:=1, Criteria1:="=*" & Eingabe & "*", Operator:=xlAnd
End Sub
Field:=1 gibt in diesem Falle die zu filternde Spalte an (hier 1 = Spalte A). Wenn die Spalten wechseln, könnte man natürlich zusätzlich eine Abfrage für die Spalte einbauen und/oder das Ganze über eine UserForm nachbilden.
Habe aber keine Ahnung von Unserform
Vielen Dank schon mal für Eure Hilfe
Susi