• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Removed Records: Sorting from /xl/tables/table1.bin part (Table)

  • Onderwerp starter Onderwerp starter BeNL
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

BeNL

Gebruiker
Lid geworden
23 mrt 2007
Berichten
194
Hi allemaal,

Ik krijg sinds kort de volgende foutmelding bij het openen van mijn bestand.
Het geheel lijkt echter wel goed te werken.

Iemand enige suggestie waar de foutmelding vandaan komt en wat ik er aan kan doen?

Alvast dank,
Ben Loomans
 

Bijlagen

Dit heeft te maken met de sub op Sheet2 (Pickinglist). Deze wordt aangeroepen tijdens het activeren van de worksheet. Op het moment dat je dit doet wordt een sortering toegevoegd. Echter staat er al een sortering op de tabel. Kennelijk gaat Excel pas "over zijn nek" bij meer dan 3x dezelfde sortering (je tabel stond 3x gesorteerd op "Project" na reparatie.

Als je de volgende regel (in rood) aan je code toevoegt is het probleem opgelost:
Code:
:
:
[COLOR="#FF0000"]ws2.ListObjects("Table13").Sort.SortFields.Clear[/COLOR]
With ws2.ListObjects("Table13").Sort.SortFields
    .Add Key:=Range("Table13[[#All],[Project]]"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ws2.ListObjects("Table13").Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End With
:
:
 
Zeer bedankt voor de uitleg en de oplossing!

Mvg, Ben
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan