Autofilter
09.11.2006 17:08:36
Christian
ich selektiere via Autofilter 2 Werte über 2 unterschiedliche Spalten und kopiere die selektierten Werte dann in ein anderes Sheet. Nun habe ich folgendens Problem:
Wenn keine Übereinstimmung mit den Selektionskriterien gefunden wird, dann nimmt kopiert mir Exel alle Werte die in den Basistabellen sind in die Übersicht....lässt sich das irgendwie umgehen?
Anbei mal der Quellcode:
Private Sub Januar2_Click()
Dim Blatt As Worksheet
Dim letzeZeile As Long
Set Blatt = Sheets("Januar A.R.")
If Blatt.AutoFilterMode = False Then
Blatt.UsedRange.Autofilter
End If
Blatt.Range("1:1").Autofilter _
Field:=2, Criteria1:="Beratung", _
Operator:=xlAnd, _
Field:=11, Criteria1:="Firma xyz"
Worksheets("Januar A.R.").Rows("2:33").Copy
Worksheets("Übersicht Firma xyz").Range("A6").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Blatt.Range("1:1").Autofilter _
Field:=2, Criteria1:="Beratung", _
Operator:=xlAnd, _
Field:=11, Criteria1:="Firma xyz"
Worksheets("Januar R.S.").Rows("2:33").Copy
Worksheets("Übersicht Firma xyz").Range("A39").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Worksheets("Januar R.S.").Range("1:1").Autofilter
End Sub
Gruss, christian