AutoFilter - filtern Zahlenwerte nicht heraus
05.06.2007 11:26:00
mattthias
ich beschreibe kurz mein Problem:
Ich habe eine Tabelle mit verschiedenen Spalten, deren Zahlenwerte aus einer *.csv-Datei kopiert werden. Nun habe ich mittels
.... Selection.AutoFilter field:=2, Criteria1:=[J22], Operator:=xlAnd, Criteria2:=[K22]
einen Filter drüberlaufen lassen.
Solang ich nur Werte größer oder kleiner als den eingegeben Wert (also es steht in der Zelle Die Formatierung der Zellen in der Tabelle ist Zahl mit 1000er-Trennzeichen und ohne Nachkommastellen. Bevor ich den AutoFilter drüberlaufen lasse wandel ich sie nochmal in ein Long-Format um. Die Formatierung der Zellen für die Kriterieneingabe ist gleich.
Hier nochmal ein ausführlicherer Ausschnitt des Quellcodes:
Sheets("Input").Range("B" & i).Value = CLng(Sheets("Input").Range("B" & i).Value)
'Filter einstellen
Sheets("Input").Activate
Sheets("Input").Range("A1").Select
If Sheets("Bedienung").Range("J22").Value "" Or Sheets("Bedienung").Range("K22").Value "" _
Then
If Sheets("Bedienung").Range("J22").Value "" And Sheets("Bedienung").Range("K22").Value "" _
Then
Selection.AutoFilter field:=2, Criteria1:=[J22], Operator:=xlAnd, Criteria2:=[K22]
Else
Selection.AutoFilter field:=2, Criteria1:=[J22] & [K22]
End If
End If