error -2147417848 (80010108)

[littlepete]

hallo

sinds enige tijd krijg ik AF EN TOE een error op steeds weer dezelfde ene macro...

ik heb een bestand dat bijhoudt wanneer lidkaarten die mindering geven gekocht, gebruikt, betaald en teruggebracht worden...
ik sorteer deze lijst chronologisch, op naam uitdeler, op naam klant, op nummer van de klantenkaart, en die laatste geeft AF EN TOE, deze foutmelding...
ik merk dat die nooit een probleem na mijn wis filter macro (waarbij alle criteria van mijn uitgebreid filter gewist worden), maar wel na een andere macro, of twee keer na elkaar dezelfde.

dit is de macro:
(sorry maar mijn geheugen laat mij te vaak in de steek om te houden waar ik kan zien hoe ik deze macro moet invoegen zodat die als echte code in een venster wordt weergegeven...)

Sub zetbknumeriek()
Application.ScreenUpdating = False
Range("A5:s5").Select
Selection.ClearContents
Range("databank").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("Criteria"), Unique:=False
ActiveWorkbook.Worksheets("agenda").Sort.SortFields.Clear
' eerst op nummer
    ActiveWorkbook.Worksheets("agenda").Sort.SortFields.Add Key:=Range("rngbknr"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' sorteer klant
    ActiveWorkbook.Worksheets("agenda").Sort.SortFields.Add Key:=Range("rngklant"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' daarna op datum
    ActiveWorkbook.Worksheets("agenda").Sort.SortFields.Add Key:=Range("rngdatum"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
' filteren op gebruikte nummers
    Range("K5").Select
    ActiveCell.FormulaR1C1 = "<999"
    With ActiveWorkbook.Worksheets("agenda").Sort
        .SetRange Range("databank")
'        .Header = xlYes
'        .MatchCase = False
'        .Orientation = xlTopToBottom
'        .SortMethod = xlPinYin
        .Apply
    End With
Application.ScreenUpdating = True
tooneersterij
Range("rngboard") = "VOLGORDE OP NUMMER"
End Sub

 

[erik.van.geit]

Hallo

Rory heeft mooi code-tags ingevoerd: gebruik het "kruis" teken # in de werkbalk. (bij Quick Reply is dat helemaal rechts)
Ik vermoed dat je bedoelt dat Excel crasht; klopt dat?

Kijk hier eens:
http://www.mrexcel.com/forum/excel-questions/223851-rebuild-your-workbook.html
Die thread is misschien wel aan een update toe, maar geeft toch een aanzet.

groeten
Erik

 

[erik.van.geit]

Hallo
Is mijn antwoord jou ontgaan?
groeten
Erik

 

[littlepete]

hallo erik

ik heb t mailtje niet gezien om te verwittigen van je antwoord...
heb ondertussen die link gelezen en uitgeprobeerd, maar dat htlm omzetten én terug geeft geen resultaat, het mislukt ...

verder zijn alle rijen en kolommen buiten de in bruik zijnde leeg, daar heb ik manueel al voor gezorgd ...
het is bovendien nu al een paar weken geleden dat ik dat nog voorhad, anderzijds zijn de formules nu ook wel klaar dus veel wijzigt er niet meer,
behalve data toevoegen...

thx voor de tips en links !
peter

 

[erik.van.geit]

Graag gedaan!
GELUKKIG NIEUWJAAR!!