AW: nach letzter beschriebener Zeile einfügen
04.02.2009 09:18:13
lisa
Hallo und danke für die Antworten
Leider bin ich nicht mehr dazu gekommen gestern noch nach Antworten zu sehen, deswegen heute!
Ich habe diesen Macro beigefügt!
Ich hoffe es hilft!
Danke für die Bemühugen.
Sub Makro1()
Selection.AutoFilter Field:=9, Criteria1:="1"
Selection.SpecialCells(xlCellTypeVisible).Select
Range("A11:J10000").Copy
ChDir "P:\Feller\Filter Muster"
Workbooks.Open Filename:="P:\Filter Muster\Mappe2.xls"
lFreie = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Paste
Application.CutCopyMode = False
'-Ab hier werden die Muster gelöscht
Dim raZeile As Range
For loZeile = IIf(IsEmpty(Cells(Rows.Count, 11)), Cells(Rows.Count, 11).End(xlUp).Row, Rows. _
Count) To 1 Step -1
If Cells(loZeile, 11) = "BN" And Cells(loZeile, 7) "Sonderpreis" Then
If raZeile Is Nothing Then
Set raZeile = Rows(loZeile)
Else
Set raZeile = Union(raZeile, Rows(loZeile))
End If
End If
Next loZeile
If Not raZeile Is Nothing Then raZeile.Delete
Set raZeile = Nothing
'-bis hier
ActiveWorkbook.Save
ActiveWindow.Close
Selection.AutoFilter Field:=9
Application.CutCopyMode = False
Range("a1").Select
End Sub
Wenn es hierzu Fragen gibt, ich bin online!
Lieben Dank für die Hilfe!
Gruß Lisa