Weis mir bitte jemand warum in Excel 9 ( Office 2000) er mir unten bei der mit XXXXXX markierten Stelle einen Fehler meldet ?
Muss man hier einen anderen Begriff wählen ? in Excel 10 bei mir privat funktioniert es so, leider haben wir im Geschäft Office 2000, und da bringt er mir an dieser Stelle den Fehler.
Müsste wohl irgend wie damit zusammen hängen, dass ich die Daten wo kopiert werden aus ( mit dem Autofilter gefilterten Tabellenblatt " Teile " ) Zeilen in ein Tabellenblatt " 1 " ohne Filterung ( Zeilen untereinander usw. ) übernehmen will, irgendwie scheint ihm dass nicht zu gefallen.
Wäre euch sehr dankbar für einen heissen Tipp,
vielen lieben Dank im Voraus,
udo
Sub Test_Datenübernahme4()
Application.ScreenUpdating = False 'Bildschirmaktualisierung aus
Sheets("1").Select 'Zieltabelle " 1 " wählen
ActiveSheet.Unprotect 'Blattschutz aufheben
Sheets("Teile").Select 'Bezugstabelle " Teile " mit
Selection.AutoFilter Field:=5, Criteria1:="10" 'Autofilter(5) filtern - Kriterium "10"
Rows("19:999").Select 'Zeilen 19-999 wählen
Selection.Copy 'und kopieren
Sheets("1").Select 'Zieltabelle " 1 " wählen
Rows("19:999").Select 'Zeilen 19-999 wählen
XXXXXX ActiveSheet.Paste 'Werte einfügen
Application.CutCopyMode = False 'Kopiervorgang beenden
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'Blattschutz Zieltabelle aktivieren
Range("H4").Select
Sheets("Teile").Select 'Bezugstabelle " Teile " wieder wählen
Selection.AutoFilter Field:=5 'Autofilter wieder auf "Alles" einstellen
Range("H4").Select 'Zelle " H4 " wählen
Application.ScreenUpdating = True 'Bildschirmaktualisierung ein
End Sub