• 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.

application.screenupdating werkt niet correct

Status
Niet open voor verdere reacties.

Egbert12345

Gebruiker
Lid geworden
13 dec 2010
Berichten
521
Goedemorgen beste forummers, enige tijd geleden heb ik een discussie gestart en ik meende dat mijn probleem was opgelost. Ik wil mijn vraag weer voorleggen, maar heb nu een probleemomschrijving benoemd die duidelijker is.

Zie onderstaande code. Ik kan helaas geen voorbeeld bestand meesturen. Ik heb een programma geschreven in Excel 2010 maar wil nu verder met Excel 2013. De opdrachtregel APPLICATION.SCREENUPDATING werkt echter niet in Excel 2013. In de code gaat het programma naar een ander workbook, maar ik wil niet dat dit zichtbaar is.
Hetzelfde stukje code werkt overigens wel correct in Excel 2010. Dat is toch zeer bijzonder?

Kunnen jullie hier iets mee of moet ik het meer verduidelijken?

Alvast weer bedankt voor de moeite
Met vriendelijke groet
Egbert

============================================

Sub Lidgegevens_ophalen()

Application.screenupdating = False

' bepaal lidnummer
bestandsnaam_prog = "ledenadministratie (programma)"
Workbooks(bestandsnaam_prog).Activate: Sheets("invulblad").Select

Application.GoTo Reference:="lidnummer": lidnummer = ActiveCell

' ga naar de database
Naam_database = Sheets("assist").Range("N22")
Workbooks(Naam_database).Activate: Sheets("database").Select

For A = 2 To 5000
If Cells(A, 2) = lidnummer Then lidnaam = Cells(A, 3): GoTo einde_zoeken
Next

foutmelding:
MsgBox "de lidgegevens zijn niet gevonden": GoTo einde_macro

einde_zoeken:


einde_macro:
Workbooks(bestandsnaam_prog).Activate: Sheets("invulblad").Select
Application.screenupdating = True
End Sub
 
Vertel ook even vanaf welke regel in je code de ScreenUpdating weer aan blijkt te staan .
 
Beste forummers, excuses late reactie. Voorheen kreeg ik altijd een email als er door een forummer was gereageerd, maar nu gebeurt dat niet meer. Bedankt voor alle inspanningen, maar deze leiden niet tot een oplossing. Mijn oplossing is inmiddels niet meer met Excel 2013 werken. Versie 2010 werkt prima en de nieuwere versie vind ik niet prettig.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan