sieht jemand von euch den Fehler in der Reihe mit den drei XXX
da geht immer die Fehlermeldung auf, und ich weis nicht weiter.
Könnt ihr mir bitte helfen.
Danke, Gruß udo
Sub Test_übernehmen_VarVergl()
Sheets("VarVergl").Unprotect 'Zieltabelle Blattschutz aufheben
With Sheets("Teile") 'Bezugstabelle wählen
.Range("E1").AutoFilter Field:=21, Criteria1:=1 'Autofilter(21) filtern - Kriterium = 1
.Range("B19:G999").Copy Destination:=Sheets("VarVergl").Range("B19:G999") 'von Bezg nach Ziel übernehmen
.Range("E1").AutoFilter Field:=21 'Autofilter wieder auf "Alles" einstellen
.Range("E1").AutoFilter Field:=22, Criteria1:=2 'Autofilter(22) filtern - Kriterium = 2
XXX .Range("B19:G999").Copy Destination:=Sheets("VarVergl").Range("I19:M999") 'von Bezg nach Ziel übernehmen
.Range("E1").AutoFilter Field:=22 'Autofilter wieder auf "Alles" einstellen
End With
Sheets("VarVergl").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Blattschutz Zieltabelle aktivieren
Range("C3").Select
End Sub