Hallo Excel-Profis,
ich habe ein Problem mit einem Code der Datensätze aus einer anderen Liste kopiert.
Der Code:
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Eingabe").Select
Range("W40").Select
ActiveSheet.Paste
Funktioniert hervorragend wenn mehr als eine Zeile gefiltert/gefunden wird.
Wenn aber nur eine Zeile gefunden wird dann kopiert Excel mit dem xlDown alles bis zur letzten Zeile des Arbeitsblattes.
Es fehlt wohl irgendein If das dann bei nur einer gefundenen Zeile etwas anderes macht?! Oder man muss irgendwie anders dafür sorgen, das bei nur einer gefundenen Zelle auch nur eine Zeile kopiert wird.
Der Code davor such per Autofilter die Sätze/den Satz:
Selection.AutoFilter Field:=20, Criteria1:=Variable1
Selection.AutoFilter Field:=21, Criteria1:="nein"
Hat jemand eine Idee?
Vielen Dank und viele Grüße Lutz