Filtern
09.02.2004 12:29:46
Joachim
Hab mir mit Hilfe dieses Forums und viel lesen dieses MAkro gebastelt
Sub Filter_RI()
Dim q As Worksheet 'Quellblatt
Dim z As Worksheet 'Zielblatt
Set q = Worksheets("Abrechnung")
Set z = Worksheets("RI")
Range("d12").AutoFilter Field:=4, Criteria1:="???????RI", Operator:=xlAnd
LZ = Range("d65536").End(xlUp).Row
q.Range("a13:H" & LZ).Copy z.Range("a13")
Selection.AutoFilter
Range("k12").AutoFilter Field:=3, Criteria1:="???????RI", Operator:=xlAnd
LZ = Range("k65536").End(xlUp).Row
q.Range("i13:o" & LZ).Copy z.Range("j13")
q.Range("a13:a" & LZ).Copy z.Range("i13")
Selection.AutoFilter
End Sub
nun hab ich noch folgendes Problem
wenn es nichts zu filtern gibt soll also kein RI vorhanden ist soll das Makro abgebrochen werden ohne zu filtern.
Ich bedanke mich schon mal für eure Bemühungen
noch einen schönen Tag
Joachim
Anzeige