XML-Fehler beim Öffnen ...

Guten Abend,
in den vergangenen Monaten habe ich hier viel Hilfe erfahren und eine Menge dabei lernen dürfen. Leider tritt seit kurzem ein Fehler beim Öffnen der Projektdatei auf:


Reparierte Datensätze: Tabelle von /xl/tables/table1.xml-Part (Tabelle)

Da die Datei mittlerweile zu groß ist für Herber anbei eine Light-Version auf meinem gdrive: https://drive.google.com/file/d/1ToctDVz0QKAYs7xoSn305haJpHP5xUaq/view?usp=sharing
Den Fehler kann man kurzfristig beseitigen, indem man die Tabelle auf Bereich zurücksetzt und dann wieder als Tabelle formatiert. Aber nach einiger Zeit tritt der Fehler erneut auf, was ich sehr merkwürdig finde. Zudem zerschießt es jedesmal das Layout beim Hin und Herwidmen, was natürlich brutal nervt. Manchmal trat der Fehler auch auf, wenn ich ein Summen oder Durchschnittszeichen in den Spaltenüberschriften eingesetzt habe - und verschwand, wenn ich sie entfernte.
Kann es sein, dass mein Spalten-Sortier Makro sich auf Dauer nicht mit der intelligenten Tabelle verträgt? Hat da jemand eine Idee dazu, was mit dem Projektfile los sein könnte? Eigentlich läuft das Tool prima, aber die Handhabe ist unter diesen Umständen alles andere als komfortabel.
Viele Grüße
Kalle

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
Ist ja ein lustiges Verhalten.
Problem: Beim Anlegen der intelligenten Tabelle wird auch der Stil abgespeichert (daher auch die Fehlermeldug /xl/tables/table1.xml). In diesem sind die einzelnen Spalten aufgeführt. Änderst Du den Spaltenamen wird dies auch in dieser Tabelle geändert, beim umsortieren aber nicht! Damit stimmen die Spalten in der Stil Definition mit den aktuellen Spalten nicht mehr überein.
Workaround: Die Headerzeile kopieren und wieder einfügen nach dem Sortieren.


Sub WochenSort_DB()
Dim strWoche As String: strWoche = "Mo,Di,Mi,Do,Fr,Sa,So"
Dim varSplit As Variant, varWoche(6) As Variant, i As Integer
Application.ScreenUpdating = False
varSplit = Split(strWoche, ",")
For i = Range("Y1") - 1 To Range("Y1") + 5
varWoche(i - Range("Y1") + 1) = varSplit(i Mod 7)
Next i
With ThisWorkbook.Worksheets("ZOE_Datenbank").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("M4:S4"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Join(varWoche, ","), DataOption:=xlSortNormal
.SetRange Range("M4:S1000")
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
Range("ZOE_Datenbank[#Headers]").Copy
Range("ZOE_Datenbank[[#Headers],[St.]]").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("ZOE_Datenbank[[#Headers],[St.]]").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub WochenSort_Aktuell()
Dim strWoche As String: strWoche = "Mo,Di,Mi,Do,Fr,Sa,So"
Dim varSplit As Variant, varWoche(6) As Variant, i As Integer
Application.ScreenUpdating = False
varSplit = Split(strWoche, ",")
For i = Range("Y1") - 1 To Range("Y1") + 5
varWoche(i - Range("Y1") + 1) = varSplit(i Mod 7)
Next i
With ThisWorkbook.Worksheets("ZOE_Aktuell").Sort
.SortFields.Clear
.SortFields.Add Key:=Range("M4:S4"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:=Join(varWoche, ","), DataOption:=xlSortNormal
.SetRange Range("M4:S300")
.Header = xlYes
.MatchCase = False
.Orientation = xlLeftToRight
.Apply
End With
Range("ZOE_Aktuell[#Headers]").Copy
Range("ZOE_Aktuell[[#Headers],[St.]]").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("ZOE_Aktuell[[#Headers],[St.]]").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Peter

Beliebteste Forumthreads (12 Monate)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread