vendredi 27 février 2015
fout in VBA routine
Posted on 04:33 by Unknown
Hallo,
Ik heb ooit een routine via deze site ontvangen waarbij ik in een werkblad 2 commandbuttons heb geplaatst en in een beveiligd werkblad worden deze actief worden na invoer van 1 onbeveiligde cel. Dit ging altijd goed en nu nog op mij Eigen PC (Excel 2010 engelse versie )maar als ik het nu thuis prober op een nederlandse Excel2010 versie gaat het niet goed . Hij geeft een foutmeling op commandbutton2 (compile error ) Variabele not defined!.
Weet iemand waar dit aan kan liggen?? Als beide commandbuttons actief zijn kan gebruiker op een klikken en daaronder heb ik een routine staan die de andere button uitzet.
Onderstaande code staat in de sheet:
Option Explicit
Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$H$28" Then Exit Sub 'Heb je cel h28 gewijzigd ?, zoniet stop hier
''UitgebreidFilter 'dan deze macro uitvoeren
CommandButton2.Enabled = True
CommandButton1.Enabled = True
End SubIK heb onder de commandbutton1 de volgende routine staan
Private Sub CommandButton1_Click()
' landbouwregelaar Macro
' De macro is opgenomen op 22-1-2004 door IS.
'
CommandButton2.Enabled = False
MsgBox "U gaat de invoer opmaken voor de landbouwregelaar", vbOKCancel, "Rica"
With Application
.StatusBar = "Het invoerformulier landbouwregelaar wordt aangemaakt,Even geduld aub."
.Cursor = xlWait
'stukje macro om copy mogelijkheden in de excelsheet onmogelijk te maken
.ScreenUpdating = False
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' paste
EnableControl 755, False ' pastespecial
Application.OnKey "^c", "Dummy"
Application.OnKey "^v", "Dummy"
Application.OnKey "+{DEL}", "Dummy"
Application.OnKey "+{INSERT}", "Dummy"
Application.CellDragAndDrop = False
Application.OnDoubleClick = "Dummy"
CommandBars("ToolBar List").Enabled = False
', werksheets zichtbaar maken en dan komen er instellingen die zijn gemaakt in diverse sheet opmaak
en before close geef ik bovenstaande tools weer terug aan de gebruiker.
Wie kan mij op weg helpen ? Is het een instelling?? of zit er iets in de routines?
alvast bedankt ,
Jaap
Ik heb ooit een routine via deze site ontvangen waarbij ik in een werkblad 2 commandbuttons heb geplaatst en in een beveiligd werkblad worden deze actief worden na invoer van 1 onbeveiligde cel. Dit ging altijd goed en nu nog op mij Eigen PC (Excel 2010 engelse versie )maar als ik het nu thuis prober op een nederlandse Excel2010 versie gaat het niet goed . Hij geeft een foutmeling op commandbutton2 (compile error ) Variabele not defined!.
Weet iemand waar dit aan kan liggen?? Als beide commandbuttons actief zijn kan gebruiker op een klikken en daaronder heb ik een routine staan die de andere button uitzet.
Onderstaande code staat in de sheet:
Option Explicit
Private Sub CommandButton2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$H$28" Then Exit Sub 'Heb je cel h28 gewijzigd ?, zoniet stop hier
''UitgebreidFilter 'dan deze macro uitvoeren
CommandButton2.Enabled = True
CommandButton1.Enabled = True
End SubIK heb onder de commandbutton1 de volgende routine staan
Private Sub CommandButton1_Click()
' landbouwregelaar Macro
' De macro is opgenomen op 22-1-2004 door IS.
'
CommandButton2.Enabled = False
MsgBox "U gaat de invoer opmaken voor de landbouwregelaar", vbOKCancel, "Rica"
With Application
.StatusBar = "Het invoerformulier landbouwregelaar wordt aangemaakt,Even geduld aub."
.Cursor = xlWait
'stukje macro om copy mogelijkheden in de excelsheet onmogelijk te maken
.ScreenUpdating = False
EnableControl 21, False ' cut
EnableControl 19, False ' copy
EnableControl 22, False ' paste
EnableControl 755, False ' pastespecial
Application.OnKey "^c", "Dummy"
Application.OnKey "^v", "Dummy"
Application.OnKey "+{DEL}", "Dummy"
Application.OnKey "+{INSERT}", "Dummy"
Application.CellDragAndDrop = False
Application.OnDoubleClick = "Dummy"
CommandBars("ToolBar List").Enabled = False
', werksheets zichtbaar maken en dan komen er instellingen die zijn gemaakt in diverse sheet opmaak
en before close geef ik bovenstaande tools weer terug aan de gebruiker.
Wie kan mij op weg helpen ? Is het een instelling?? of zit er iets in de routines?
alvast bedankt ,
Jaap
fout in VBA routine
Categories: fout in VBA routine
Inscription à :
Publier les commentaires (Atom)
0 commentaires:
Enregistrer un commentaire