ich habe mir ein Makro aufgezeichnet mit dem ich eine Tabelle filter und den gefilterten Inhalt in eine neue Tabelle kopiere.
Aber wenn der ausgewählte Bereich keine Daten enthält, dann soll auch nicht kopiert und eingefügt werden.
So sieht das Makro aus:
ActiveSheet.Range("$A$18:$L$320").AutoFilter Field:=12, Criteria1:="1"
ActiveSheet.Range("$A$18:$L$320").AutoFilter Field:=3, Criteria1:="1"
ActiveSheet.Range("$A$18:$L$320").AutoFilter Field:=2, Criteria1:="5"
Range("A19").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A19:K19").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Richtung1").Select
Range("F4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
Sheets("Basis").Select
ActiveSheet.Range("$A$18:$L$320").AutoFilter Field:=2
ActiveSheet.Range("$A$18:$L$320").AutoFilter Field:=3
ActiveSheet.Range("$A$18:$L$320").AutoFilter Field:=12
Range("E13").Select
Ich nehme mal an, das irgendwie um den FETT markierten bereich herum eine IF...THEN Geschichte hin muss, aber wie das geht ist mir grad zu hoch ;)
Danke schonmal fürs Ideen sammeln,
Gruß Ben