Excel VBA Modul bringt bei Kollegen Fehler.

[Pascala]

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

[Klaus-Dieter]

Hallo,

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

[Pascala]

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.