Hallo,
Ik ben nu een tijdje aan het stoeien met onderstaande code:
Werkblad 'Voorblad'
en
Werkblad 'Inbraak'
Toch, als ik de macro 'Dropdownmenu_byChange' probeer uit te voeren door d.m.v. een dropdown menu via data-validatie in cel B10 een keuze te maken gebeurt er niets.
Wat gaat er verkeerd?
Bedankt, groeten Thg
Ik ben nu een tijdje aan het stoeien met onderstaande code:
Werkblad 'Voorblad'
Code:
'Start macro door middel van dropdown menu
Private Sub Worksheet_change(ByVal Doel As Range)
If Doel.Address = "$B$10" Then
Application.Run "DropdownEersteKeuze_byChange"
End If
End Suben
Werkblad 'Inbraak'
Code:
'Werkbladen
'-----------------------------------------------------------------------
Const Hoofdblad As String = "Voorblad"
Const InbraakZichtbaar As String = "Inbraak"
Const InbraakVerborgen As String = "Geg-Inbraak"
Const Gegevens As String = "Tabellen"
'Bereiken Voorblad
'-----------------------------------------------------------------------
Const Keuze As String = "B10"
'Macro tbv keuze discipline
Sub DropdownEersteKeuze_byChange()
Select Case Sheets(Hoofdblad).Range(Keuze)
Case Brandbeveiliging
'Niet relevante sheets verbergen
Sheets(InbraakZichtbaar).Visible = False
'Informatie box
MsgBox ("Data volgt later")
Case Inbraakbeveiliging
'Sheet t.b.v. inbraak zichtbaar maken
Sheets(InbraakZichtbaar).Visible = True
Case CCTV
'Informatie box
MsgBox ("Data volgt later")
Case Toegangscontrole
'Informatie box
MsgBox ("Data volgt later")
Case Else
'Andere keuze is einde macro
Exit Sub
End Select
End SubToch, als ik de macro 'Dropdownmenu_byChange' probeer uit te voeren door d.m.v. een dropdown menu via data-validatie in cel B10 een keuze te maken gebeurt er niets.
Wat gaat er verkeerd?
Bedankt, groeten Thg
