Private Sub ComboBox1_Change()

End Sub

Private Sub CommandButton1_Click()

For i = 1 To 10000
    If Cells(i, 1).Value = "Categorie" & Aankoop01.ComboBox1.Value Then
        'Call test:
        categorienummer = i
    End If
Next

testnummer = Range("A" & categorienummer).End(xlDown).Offset(1, 0).Row        'gaat naar onderste rij
Rows(testnummer).Insert

Cells(testnummer, "B").Value = Aankoop03.TextBox14.Value


If OptionButton2.Value = True Then
    'nieuwe regel activiteit in categorie met alleen geld bij die persoon
    'cells(activiteit in catogorie, persoon) +textbox1

    'cells(testnummer, combobox1.value) +textbox1

ElseIf OptionButton1.Value = True Then
    'nieuwe regel activiteit in categorie met alleen -geld bij die persoon
    'cell(persoon, activiteit in catogorie) - textbox1

    'cells(testnummer, combobox1.value) -textbox1

ElseIf OptionButton1.Value = False And OptionButton2.Value = False Then
    MsgBox ("U heeft niet aangegeven of uw bedrag erbij of eraf moet.")

End If

Dim Veiligheid As Variant
If TextBox1 > 100 Then
Veiligheid = MsgBox("Uw ingevoerde bedrag is groter als €100, klopt dit?", vbYesNo)
    If Veiligheid = 6 Then
    'niks/doorgaan
    ElseIf Veiligheid = 7 Then
    'stoppen en opnieuw laten invullen

End If

End Sub

Private Sub CommandButton2_Click()
Dim test1 As Startpagina
Set test1 = New Startpagina
Me.Hide
test1.Show
End Sub

Private Sub kiesbewoner_Change()

End Sub

Private Sub OptionButton1_Click()

End Sub

Private Sub TextBox1_Change()

End If
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim cel As Range

Set Rng = Worksheets("Balans").Range(Worksheets("Balans").Range("A2"), Worksheets("Balans").Range("A" & Rows.Count).End(xlUp))
For Each cel In Rng
    ComboBox1.AddItem cel.Value
Next


End Sub