Change event werkt niet...

Status
Niet open voor verdere reacties.
A

AmaProg

Gebruiker
Lid geworden
10 sep 2012
Berichten
29
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
 
Misschien handig om de betreffende foutmelding er ook even bij te vermelden. Daarnaast het verzoek je code in een code tag te zetten.
Zelf zou ik het trouwens, even uit de losse pols, zo doen:

Code: 
Private Sub CBB_Aantal_Bezoekers_Change()
    Dim Meer As String
    ActiveSheet.Unprotect Password:="XXXXXX"
    
    If CBB_Aantal_Bezoekers.Value > 0 Then
        Meer = IIf(CBB_Aantal_Bezoekers.Value > 1, " 1", "")
        If OB_NL_Programma Then
            Range("D9").Value = "AANHEF BEZOEKER" & Meer
            Range("Y9").Value = "NAAM BEZOEKER" & Meer
        Else
            Range("D9").Value = "TITRE VISITEUR" & Meer
            Range("Y9").Value = "NOM VISITEUR" & Meer
        End If
    End If
    
    ActiveSheet.Protect Password:="XXXXXX"
    ActiveSheet.EnableSelection = xlUnlockedCells
End Sub

Maar dat is even afhankelijk van welke foutmelding je krijgt bij het gebruik van je eigen constructie.
 
Laatst bewerkt:
bij change event twee ranges aanpassen

Bedankt voor de al zeer snelle reactie en sorry ben hier geen expert in :)
Range("Y9") voert hij nooit uit terwijl hij de eerste verandering in D9 wel uitvoert, dat snap ik niet...
De foutmelding die het programma geeft is 'Fout 1004 tijdens de uitvoering: door de toepassing of door object gedefinieerde fout'
Dit is slechts een heel klein onderdeel waar het programma op vast loopt, heb me al suf zitten googelen maar vind helaas geen oplossing.
Kort samengevat als de waade in mijn combobox veranderd moeten elders in het document twee ranges aangepast worden.

Code: 
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
 
Laatst bewerkt:
Ok, en heb je die functie al eens in Debug mode met F8 doorlopen om te zien op welke regel hij stuk gaat?
Gebruik anders mijn voorbeeldje eens.

N.B:
Het wachtwoord dat je in gebruik hebt is hier nu zichtbaar en ik weet niet of je dat wel wilt.
 
Laatst bewerkt:
Bedankt Edmoor voor de verkorte versie maar het probleem blijft behouden. En paswoord was inderdaad niet de bedoeling :) (intussen aangepast)
De verandering in D9 voert hij steeds uit, en telkens bij de tweede verandering in mijn geval in Y9 loopt hij vast... Gele balk met eerder vermelde foutmelding
 
Wellicht dat je het document hier even kunt plaatsen want zo is er weinig over de oorzaak te vertellen.
 
Code: 
Private Sub CBB_Aantal_Bezoekers_Change()
  with ActiveSheet
     .Unprotect Password:="XXXXXX"
     .EnableSelection = xlNoRestrictions

     .Range("D9").Value = iif(OB_NL_Programma,"AANHEF BEZOEKER", "TITRE VISITEUR") & iif(CBB_Aantal_Bezoekers.Value =1,""," 1")
     .Range("Y9").Value = iif(OB_NL_Programma,"NAAM BEZOEKER","NOM VISITEUR") & iif(CBB_Aantal_Bezoekers.Value =1,""," 1")

     .Protect Password:="XXXXXX"
     .EnableSelection = xlUnlockedCells
  end with
End Sub
 
Code: 
Private Sub CBB_Aantal_Bezoekers_Change()
  with ActiveSheet
     .Unprotect Password:="XXXXXX"
     .EnableSelection = xlNoRestrictions

     .Range("D9").Value = iif(OB_NL_Programma,"AANHEF BEZOEKER", "TITRE VISITEUR") & iif(CBB_Aantal_Bezoekers.Value >1," 1","")
     .Range("Y9").Value = iif(OB_NL_Programma,"NAAM BEZOEKER","NOM VISITEUR") & iif(CBB_Aantal_Bezoekers.Value >1," 1","")

     .Protect Password:="XXXXXX"
     .EnableSelection = xlUnlockedCells
  end with
End Sub

Zinloos beveiligen maakt meer kapot dan je lief is....
De meeste oplossingen vind je tussen de oren en niet op Google.
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan