Goedenavond iedereen
In bijgevoegd bestand starten macro’s door een klik op een gekleurde cel en afhankelijk van de inhoud van deze cel. De macro’s die uitgevoerd worden na het klikken op een rode cel moeten nog gemaakt worden.
De macro’s die uitgevoerd moeten worden staan in Module1
In ieder blad staat onderstaande code. Kan dit anders, eenvoudiger en eventueel sneller?
In bijgevoegd bestand starten macro’s door een klik op een gekleurde cel en afhankelijk van de inhoud van deze cel. De macro’s die uitgevoerd worden na het klikken op een rode cel moeten nog gemaakt worden.
De macro’s die uitgevoerd moeten worden staan in Module1
In ieder blad staat onderstaande code. Kan dit anders, eenvoudiger en eventueel sneller?
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$AA$1:$AA$2" Then
If Range("$AA$1").Value = "Opslaan als" Then
Opslaan_als
End If
End If
If Target.Address = "$AA$3:$AA$4" Then
If Range("$AA$3").Value = "Opslaan" Then
Opslaan
End If
End If
If Target.Address = "$AA$11:$AA$12" Then
If Range("$AA$11").Value = "Opslaan en sluiten" Then
Opslaan_en_sluiten
End If
End If
If Target.Address = "$AA$13:$AA$14" Then
If Range("$AA$13").Value = "Sluiten zonder opslaan" Then
Sluiten_zonder_opslaan
End If
End If
If Target.Address = "$AA$15:$AA$16" Then
If Range("$AA$15").Value = "Ga naar Dieren_Bib" Then
Ga_naar_Dieren_Bib
End If
End If
If Target.Address = "$AA$17:$AA$18" Then
If Range("$AA$17").Value = "Ga naar Stamboom" Then
Ga_naar_Stamboom
End If
End If
If Target.Address = "$AA$19:$AA$20" Then
If Range("$AA$19").Value = "Ga naar Nesten" Then
Ga_naar_Nesten
End If
End If
If Target.Address = "$AA$21:$AA$22" Then
If Range("$AA$21").Value = "Ga naar Nakomelingen" Then
Ga_naar_Nakomelingen
End If
End If
If Target.Address = "$AA$23:$AA$24" Then
If Range("$AA$23").Value = "Ga naar Verwanten" Then
Ga_naar_Verwanten
End If
End If
If Target.Address = "$AA$25:$AA$26" Then
If Range("$AA$25").Value = "Ga naar Soorten" Then
Ga_naar_Soorten
End If
End If
If Target.Address = "$AA$27:$AA$28" Then
If Range("$AA$27").Value = "Ga naar Rassen" Then
Ga_naar_Rassen
End If
End If
If Target.Address = "$AA$29:$AA$30" Then
If Range("$AA$29").Value = "Ga naar Kleuren" Then
Ga_naar_Kleuren
End If
End If
If Target.Address = "$AA$31:$AA$32" Then
If Range("$AA$31").Value = "Ga naar Informatie" Then
Ga_naar_Informatie
End If
End If
If Target.Address = "$AA$33:$AA$34" Then
If Range("$AA$33").Value = "Opdracht 1" Then
Opdracht_1
End If
End If
If Target.Address = "$AA$35:$AA$36" Then
If Range("$AA$35").Value = "Opdracht 2" Then
Opdracht_2
End If
End If
If Target.Address = "$AA$37:$AA$38" Then
If Range("$AA$37").Value = "Opdracht 3" Then
Opdracht_3
End If
End If
End Sub