waarden textbox wisselen

[gbvdh]

Goedendag,

Ik wil graag dat als in VBA checkbox1 wordt uit gevinkt de waarde uit textbox9 in textb8 wordt geplaatst en die van textb10 in textb9, etc. Ik dacht dit te kunnen doen op de volgende manier:

If CheckBox1.Value = False Then
TextBox8.Value = TextBox9.Value
TextBox9.Value = TextBox10.Value

Maar VBA blijkt dus niet helemaal lijn voor lijn te werk te gaan want als ik dit invoer krijg ik in textbox8 de waarde van textbox10.
Iemand enig idee hoe ik dit kan oplossen?

 

[Demeter]

vba gaat per regel, dus:

Private Sub CheckBox1_Click()

    If CheckBox1.Value = True Then
        TextBox8.Value = TextBox9.Value
        TextBox9.Value = TextBox10.Value
    End If
    
End Sub

zou moeten werken.
Sluit jij je funtie wel ergens af?

 

[gbvdh]

Oke klopt zo werkt het inderdaad, dan moet ik m'n probleem toch duidelijker uitleggen.
Ik wil dat als ik op een button klik dat dan wordt gekeken of checkbox1 aan of uit gevinkt is. Als deze aangevinkt is is er geen probleem, als deze uitgevinkt is (dus ik heb wel checkbox1.value = false nodig ipv true moet dus de waarde van textbox9 naar textbox7 etc.
Daarvoor werkt die code dus niet want dan krijg ik dus de waare van 10 in 7.

 

[Demeter]

Vreemd zou toch op jou manier ook moeten werken.
Kijk hier eens naar:

Private Sub CommandButton1_Click()

    If CheckBox1.Value = False Then
        TextBox8.Value = TextBox9.Value
        TextBox9.Value = TextBox10.Value
        TextBox10.Value = "Checkbox staat uit"
        Exit Sub
    End If
    
    TextBox8.Value = "Checkbox is aan"
    TextBox9.Value = ""
    TextBox10.Value = ""
    
End Sub

Wat verschilt er met jouw code?

 

[gbvdh]

Sorry het werkt inderdaad, ik had een domme fout gemaakt waardoor het niet werkte. Bedankt voor de hulp

 

[Demeter]

Graag gedaan.
Zo houden we elkaar scherp .