Office: (Office 2010) Fehler: Von Excel wurde unlesbarer Inhalt in ...

Hallo Excel-User,
brauchen einen Rat von Euch.

Ich erfasse meine Kfz-Kosten in einer Excel-Datei (Kfz-Kosten.xlsm) über eine Userform mit verschiedenen Einstellungen (je Kostenart).

Seit einiger Zeit bekomme ich beim Öffnen der Datei folgende Fehlermeldung:
„Von Excel wurde unlesbarer Inhalt in „Kfz-Kosten.xlsm“ gefunden


Wenn ich die Meldung mit „Ja“ bestätige wird die Datei geöffnet und es erscheint folgende Meldung:
Entfernte Datensätze: Sortierung von /xl/worksheets/sheet1.xml-Part

In der Logdatei der Reparatur wird folgendes angezeigt:

PHP:

         <?xml version="1.0" encoding="UTF-8" standalone="true"?>
<recoveryLog xmlns="http://schemas.openxmlformats.org/spreadsheetml/2006/main">
<logFileName>error106920_01.xml</logFileName><summary>Fehler in Datei 'D:AutoKfz-Kosten.xlsm'
</summary><removedRecords summary="Folgende Datensätze wurden entfernt:">
<removedRecord>Entfernte Datensätze: Sortierung von /xl/worksheets/sheet1.xml-Part</removedRecord>
</removedRecords></recoveryLog>         

:)

 

Hallo Moritz,

hast du Code zum sortieren einer Tabelle in der Mappe?

Wenn ja, dann zeig den mal.

 

Hallo Nepumuk,
hier der Code zum Sortieren:

PHP:

         Sub SortierenDaten()
Sheets("Daten").Select
Range("A:J").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Key2:=Range("A2") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1").Select
End Sub


 

Hallo Nepumuk
nach Deiner Frage zu sortieren
habe ich den Fehler (Order2 : ...) gefunden.
Hier der geänderte Code:

PHP:

         Sub SortierenDaten()
Sheets("Daten").Select
Range("A:J").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlNo, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
:=xlSortNormal
Range("A1").Select
End Sub