Clever-Excel-Forum

Hallo zusammen,

Ich habe ein seltsames Problem!
Wenn ich folgendes Modul ausführe klappt das bei mir wunderbar!
Wenn jedoch mein Kollege es ausführt kommt folgende Fehlermeldung:
Lauzeitfehler 9: "Index außerhalb des gültigen Bereichs"

Code:
Sub Schaltfläche8_Klicken()

    ActiveSheet.Unprotect Password:="scc"

    Workbooks.Open "M:\WE-WA\Retouren\WE Retouren.xlsx" ' WE Retouren öffnen

    Workbooks("Retouren Scannliste").Activate 'Geöffnete Datei Aktiv setzen

With Sheets("Tabelle1")

    .Range("A5:I" & .Cells(Rows.Count, 1).End(xlUp).Row - 3).Copy 'bis letzte beschriebene zelle kopieren

    Worksheets("Archiv").Activate 'bestimmtes Tabellenblatt ansprechen

    Range("A" & Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues ' in ersten Freien zelle einfügen

    Worksheets("Tabelle1").Activate 'bestimmtes Tabellenblatt ansprechen

    Range("J4:J3005").AdvancedFilter Action:=xlFilterInPlace, Unique:=True 'Spezialfilter setzen und duplikate raus filtern

    .Range("A5:I" & .Cells(Rows.Count, 1).End(xlUp).Row + 1).Copy 'bis letzte beschriebene zelle kopieren

    Workbooks("WE Retouren").Activate 'Geöffnete Datei Aktiv setzen

    Range("A" & Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues ' in ersten Freien zelle einfügen

    Application.CutCopyMode = False

    Workbooks("WE Retouren").Activate 'Geöffnete Datei Aktiv setzen

    Dim zelle As Range

For Each zelle In Range("A5:A" & Cells(Rows.Count, 2).End(xlUp).Row) 'Zellen ind Spalte A bis 6 Zeichen von Links abschneiden

zelle = Left(Trim(zelle), 6)

Next

    Workbooks("Retouren Scannliste").Activate 'Geöffnete Datei Aktiv setzen

    Sheets("Tabelle1").ShowAllData 'Spezialfilter löschen

    Sheets("Tabelle1").Range("A5:B3005").ClearContents 'Inhalt von Scannliste löschen

    Sheets("Tabelle1").Range("I5:I3005").ClearContents 'Inhalt von Scannliste löschen

    Workbooks("WE Retouren").Activate 'Geöffnete Datei Aktiv setzen

    ActiveWorkbook.Close SaveChanges:=True 'Datei WE Retouren speichern und schließen

    Workbooks("Retouren Scannliste").Activate 'Geöffnete Datei Aktiv setzen

    Worksheets("Tabelle1").Activate 'bestimmtes Tabellenblatt ansprechen

    Range("A4:J3005").Select

    Selection.AutoFilter 'Autofilter setzen

    Range("A5").Select

    ActiveSheet.Protect Password:="scc", AllowFiltering:=True, AllowSorting:=True

    ActiveWorkbook.Save

End With

End Sub

Zeile: "Workbooks("Retouren Scannliste").Activate 'Geöffnete Datei Aktiv setzen" wird gelb markiert.

Habt ihr vielleicht zufällig eine Idee?

Danke & viele Grüße

Hallo,

dann wird es diese Datei bei den Kollegen wohl nicht geben.

Hallo zusammen,

es lag an diesem Fehler hier:
https://www.clever-excel-forum.de/Thread...n-Bereichs

Ohne Google wäre ich im leben nicht darauf gekommen.

Trotzdem Danke an alle.

Pascala

Klaus-Dieter

Pascala