Hallo zusammen,
ich habe eine Frage bezüglich Filtern in Excel 2007.
Ich habe zB eine Tabelle mit verschiedenen Kundennummern. Ich will jetzt jede Nummer durch Filtern einzeln aufrufen. Im alten Excel konnte ich einfach eine nach der anderen im Filter anklicken.
Beim neuen Excel ist es aber so, dass bei der Auswahl ein Kästchen vor jeder Nummer ist, das zum Auswählen angeklickt werden muss. Will ich die nächste Nummer aufrufen, muss ich also erst das Häkchen aus der letzten raus nehmen und bei der nächsten setzen.
Bedeutet also, dass ich immer einen Klick mehr habe, als beim alten Excel.
Gibt es auch hier eine Möglichkeit, dass das Häkchen aus der zuletzt ausgewählten Nummer automatisch rausgeht, wenn ich die nächste anklicke?
Danke für Rat
und nen schönen Sonntag noch!
Kathrina
2007 - Filtern durch Kominationsfeld / ComboBox
Bedeutet also, dass ich immer einen Klick mehr habe, als beim
alten Excel.
Gibt es auch hier eine Möglichkeit, dass das Häkchen aus der
zuletzt ausgewählten Nummer automatisch rausgeht, wenn ich die
nächste anklicke?
Hallo Kathrina,
probiere mal diese Mappe:
http://rapidshare.com/files/393536254/Filterersatz.x…
Sie hat den nachstehenden Code.
Gruß
Reinhard
in Modul1:
Sub Fuellen()
Dim Zei As Long, colC As New Collection, C As Long
On Error Resume Next
With Worksheets("Tabelle1")
For Zei = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
colC.Add Key:=CStr(.Cells(Zei, 1).Value), Item:=CStr(.Cells(Zei, 1).Value)
Next Zei
.ComboBox1.Clear
.ComboBox1.AddItem "Alles"
For C = 1 To colC.Count
.ComboBox1.AddItem colC(C)
Next C
End With
End Sub
im Modul Tabelle1:
Private Sub ComboBox1\_Change()
Dim Zei As Long
With Worksheets("Tabelle1")
Zei = .Cells(Rows.Count, 1).End(xlUp).Row
If ComboBox1.Value = "Alles" Then
.Range("$A$1:blush:A$" & Zei).AutoFilter
Else
.Range("$A$1:blush:A$" & Zei).AutoFilter Field:=1, Criteria1:=ComboBox1.Value
End If
End With
End Sub
Im Modul DieseArbeitsmappe:
Private Sub Workbook\_Open()
Call Fuellen
End Sub