Autofilter über ComboBox / Tabelle Kopieren
12.02.2013 08:47:24
Thomas
habe folgendes Problem.
Ich habe einen Autofilter über eine Combobox angesteuert... funktioniert.
Ich möchte jetzt die Tabellenblätter kopieren und diese Funktion soll auch in den anderen Blättern noch funktionieren^^
Leider ist mein VBA recht bescheiden, so dass ich es nicht hinbekommen die eindeutige Bezeichnung des Tabellenblattes variabel zu gestallten.
Hier mein Code:
Sub ComboBox1_Change()
Dim tempCriteria As String, N As String
tempCriteria = ComboBox1.Value
ActiveSheet.ListObjects("Tabelle2").Range.Autofilter Field:=3, Criteria1:=tempCriteria
End Sub
Die "Tabelle2" soll immer das aktive Sheet sein.
Vielen Dank im Voraus.
Gruß Thomas