alles es löschen ausser wenn,...Makro
13.05.2009 16:01:20
Josef
ich brauche wieder einmal eure Hilfe und zwar folgendermassen
Ich habe folgendes Makro per Recorder aufgenommen, welches eine bestimmten Range kopiert und auf dem Blatt "Liste" in der Zelle A19 einfügt..
Jetzt möchte ich, dass jede eingefügte Zeile gelöscht wird, welche nicht irgendwo den Wert aus Zelle A1 des Blattes "Liste" enthält. Wie habe ich hier das zu machen...
Hier das Makro:
Sub Makro1()
Sheets("Bestellungen").Select
Range("A2:N60000").Select
Selection.Copy
Sheets("Liste").Select
Range("A19").Select
ActiveSheet.Paste
Range("A18:N18").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("G19"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select
End Sub
Nochmals zusammengefasst: Der eingefügte Range soll jetzt Zeile für Zeile nach dem Wert aus Zelle A1 durchsucht werden, falls eine Zeile in diesem Range den Wert aus Zelle A1 nicht enthält, soll diese gelöscht werden. Der Wert, welcher in der Zeile gesucht werden muss, steht übrigends immer in Spalte G sprich, wenn Gx nicht gleich A1, ganze Zeile in dem entsprechenden Range löschen.
Wäre euch sehr dankbar, wenn mir jemand Helfen könnte bei diesem Makro!
Vielen Dank für eure Hilfe!
Mit freundlichen Grüssen
Josef