Beste,
Kan iemand mij vertellen waarom de eerste verandering aanvaard wordt en de tweede steeds een foutmelding geeft.
Alvast bedankt voor jullie reactie
Private Sub CBB_Aantal_Bezoekers_Change()
ActiveSheet.Unprotect Password:="XXXXXX"
If CBB_Aantal_Bezoekers.Value = 1 And OB_NL_Programma = True Then
Range("D9").Value = "AANHEF BEZOEKER"
Range("Y9").Value = "NAAM BEZOEKER"
Else
If CBB_Aantal_Bezoekers.Value = 1 And OB_FR_Programma = True Then
Range("D9").Value = "TITRE VISITEUR"
Range("Y9").Value = "NOM VISITEUR"
Else
If CBB_Aantal_Bezoekers.Value > 1 And OB_NL_Programma = True Then
Range("D9").Value = "AANHEF BEZOEKER 1"
Range("Y9").Value = "NAAM BEZOEKER 1"
Else
If CBB_Aantal_Bezoekers.Value > 1 And OB_FR_Programma = True Then
Range("D9").Value = "TITRE VISITEUR 1"
Range("Y9").Value = "NOM VISITEUR 1"
End If
End If
End If
End If
ActiveSheet.Protect Password:="XXXXXX"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Kan iemand mij vertellen waarom de eerste verandering aanvaard wordt en de tweede steeds een foutmelding geeft.
Alvast bedankt voor jullie reactie
Private Sub CBB_Aantal_Bezoekers_Change()
ActiveSheet.Unprotect Password:="XXXXXX"
If CBB_Aantal_Bezoekers.Value = 1 And OB_NL_Programma = True Then
Range("D9").Value = "AANHEF BEZOEKER"
Range("Y9").Value = "NAAM BEZOEKER"
Else
If CBB_Aantal_Bezoekers.Value = 1 And OB_FR_Programma = True Then
Range("D9").Value = "TITRE VISITEUR"
Range("Y9").Value = "NOM VISITEUR"
Else
If CBB_Aantal_Bezoekers.Value > 1 And OB_NL_Programma = True Then
Range("D9").Value = "AANHEF BEZOEKER 1"
Range("Y9").Value = "NAAM BEZOEKER 1"
Else
If CBB_Aantal_Bezoekers.Value > 1 And OB_FR_Programma = True Then
Range("D9").Value = "TITRE VISITEUR 1"
Range("Y9").Value = "NOM VISITEUR 1"
End If
End If
End If
End If
ActiveSheet.Protect Password:="XXXXXX"
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub