gefilterte Liste kopieren
23.02.2021 08:56:46
tursiops
Ich filtere seit Jahren eine Liste und kopiere die gefilterten Ergebnisse in per VBA in ein anderes Blatt.
Nun habe ich plötzlich das Problem, dass sobald in der zu filternden Spalte gar kein Wert steht, die ungefilterte komplette Liste kopiert wird.
Existiert mindestens ein Wert, funktioniert mein Code weiterhin. An der Datei hat sich so nichts geändert und ich finde den Fehler einfach nicht.
Die Datei ist leider etwas zu groß und kritisch in Bezug auf den Datenschutz.
Hat trotzdem jemand eine Idee?
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'03
Sub Uebertragung_03()
Sheets("Plan").Select
ActiveSheet.Range("$N$14:$BL$289").AutoFilter Field:=4, Criteria1:=""
Range("BO15:BR289").Select
Selection.Copy
Sheets("03").Select
letztezeile = ActiveSheet.Cells(1048576, 3).End(xlUp).Row
Rows(letztezeile).Select
ActiveCell.Offset(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B11").Select
Sheets("Plan").Select
ActiveSheet.Range("$N$14:$BL$289").AutoFilter Field:=4
End Sub