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