ich habe ein Problem das ab und zu auftritt
ich öffne eine Datei mit
Workbooks.Open FileName:=Laufwerk & AuftragsNr & ".XLS", Password:="Passwort"
Wobei die Variable Laufwerk den kompletten Phad enthält und AuftragsNr eine Zahlen Kombination.
Zu einem Späteren Zeitpunkt führe ich folgenden aus
With Workbooks(AuftragsNr & ".XLS").Worksheets("Werte_Auftrag")
.Unprotect ("Passwort")
.Range("IV2").Sort Key1:=Range("IV2"), Order1:=xlDescending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
end With
wobei jetzt der Schutz vom Register entfernt wird und dann sortiert wird.
Ab und zu komt es jetzt vor das bei Sort ein Laufzeitfehler auftritt.
Folgende Sachen habe ich schon überprüft
- Datei ist noch offen
- Register ist vorhanden
- Register ist ohne Schutz
- eine Sortierung von Hand ist möglich.
Wird die datei nach der Sortierung von Hand geschlossen. Tritt beim nächsten Programmdurchlauf kein Fehler auf.
Ich hab nun schon vor der Sortierung die Datei gespeichert, ohne Wirkung.
Hat jemand noch einen Ansatz. Es ist schwierig ein Fehler zu finden, wenn er nur ab und zu vorkommt.
Gruß Hajo