Excel loopt vast na uitvoering code

[Ad4Jansen]

Heren / dames,

Na het uitvoeren van mijn ondergenoemde code loopt Excel vast......... Het is de bedoeling dat er in kolom b gezocht gaat worden. Als het item gevonden is dan moet men op sluiten drukken om het aantal in te vullen. Als er meer item's gezocht moeten worden dan start ik nogmaals deze macro en dan gaat het meestal fout...........:evil:

Sub Zoeken()
'
' Zoekinkolom Macro
' De macro is opgenomen op 11-05-2009 door Ad Jansen.
'
' Sneltoets: CTRL+z
'
     Application.Run "alles"
     Range("B13:B1193").Select
     dlgAnswer = Application.Dialogs(xlDialogFormulaFind).Show
End Sub

In Toon Alles staat het volgende

  Sub alles()
'
' Toon_alles Macro
' De macro is opgenomen op 11-05-2009 door Ad Jansen
'
' Sneltoets: CTRL+t
'
    
    Selection.AutoFilter Field:=1
    End Sub

Ik kweet het niet meer

Alvast bedankt voor uw antwoord....

Ad

 

[Hoornvan]

Ad4Jansen,

Ik heb je macro geprobeerd maar hij werkt bij mij goed. (loopt niet vast)
Wat er dan bij je fout gaat weet ik niet.
Zet anders een bestandje zonder gevoelige informatie hier. ( zoals het erbij je uitziet)

Het berijk heb ik wat korter gemaakt om te proberen.
Op het blad heb ik een knop gezet die de macro start.

 

[Ad4Jansen]

bedankt

Wim,

Bedankt :thumb: vanmorgen ben ik er weer even mee bezig geweest en inderdaad loopt excel niet vast. Ook ik heb zoals jij een knop gekoppeld.
Wellicht is het een combinatie van andere programma welke op de achtergrond actief zijn of het netwerk!

Ik kijk het even aan.

Ad