Wat doe ik fout

[bierbox]

Ik ben bezig op school met VBA. Ik ken het niet dus ik heb er ook de balle verstand van.

Heb wel eens eerder met programeer talen gewerkt dus ben wel beetje bekend.

Ik ben bezig met een macro dat je dingen in een brief in kan voegen.

Dit is de code die onder de Ok knop zit

Private Sub cbOk_Click()
Dim strAfsluiting As String
Dim strAfzenderAdres As String
If obafluiting1 = True Then
strAfsluiting = "Vriendelijke groet"
If obAfsluiting2 = True Then
strAfsluiting = "Hoogachtend"
If obAfsluiting3 = True Then
strAfsluiting = "Sportieve groet"
If obAfsluiting4 = True Then
strAfsluiting = "Graag tot ziens"

If pdAfzenderadres.Value = "Utrecht 88" Then
strAfzenderAdres = "De vlek Sportscholen" _
& vbCrLf & "Spierstraat 88" _
& vbCrLf & "1202 WC Utrecht" & vbCrLf & "Nederland"
End If
If pdAfzenderadres.Value = "Utrecht 90" Then
strAfzenderAdres = "De vlek Sportscholen" _
& vbCrLf & "Spierstraat 90" _
& vbCrLf & "1202 WC Utrecht" & vbCrLf & "Nederland"
End If
If pdAfzenderadres.Value = "Antwerpen 12" Then
strAfzenderAdres = "De vlek Sportscholen" _
& vbCrLf & "Amerikalaan 12" _
& vbCrLf & "1020 Antwrpen" & vbCrLf & "België"
End If
If pdAfzenderadres.Value = "Utrecht88" Then
strAfzenderAdres = "De vlek Sportscholen" _
& vbCrLf & "Amerikalaan 20" _
& vbCrLf & "1020 Antwerpen" & vbCrLf & "België"
End If
Application.ScreenUpdating = False
With ActiveDocument
.Bookmarks("naam_ontvanger").Range.Text = txtAdresont.Value
.Bookmarks("Adres_gast").Range.Text = txtAdresont.Value
.Bookmarks("aanhef").Range.Text = txtAanhef.Value
.Bookmarks("Functie_vacature").Range.Text = txtFunctie.Value
.Bookmarks("Datum_sollicitatie").Range.Text = txtDatumGespr.Value
.Bookmarks("Tijd_sollicitatie").Range.Text = txtTijdgespr.Value
.Bookmarks("Duur_sollicitatie").Range.Text = pdDuurGespr.Value
.Bookmarks("afsluiting").Range.Text = strAfsluiting
.Bookmarks("Naam_werknemer").Range.Text = txtNaamAfzender.Value
.Bookmarks("Functie_werknemer").Range.Text = txtFunctieAfzender.Value
.Bookmarks("Adres_afzender").Range.Text = strAfzenderAdres
End With

Application.ScreenUpdating = False
Unload Me


End Sub



De melding:

 

[Ellasar]

onderstaande if statements worden niet netjes afgesloten

If obafluiting1 = True Then
strAfsluiting = "Vriendelijke groet"
If obAfsluiting2 = True Then
strAfsluiting = "Hoogachtend"
If obAfsluiting3 = True Then
strAfsluiting = "Sportieve groet"
If obAfsluiting4 = True Then
strAfsluiting = "Graag tot ziens"

dus aanpassen in:

If obafsluiting1 = True Then strAfsluiting = "Vriendelijke groet"
If obAfsluiting2 = True Then strAfsluiting = "Hoogachtend"
If obAfsluiting3 = True Then strAfsluiting = "Sportieve groet"
If obAfsluiting4 = True Then strAfsluiting = "Graag tot ziens"

of

If obafluiting1 = True Then
strAfsluiting = "Vriendelijke groet"
endif
If obAfsluiting2 = True Then
strAfsluiting = "Hoogachtend"
endif
If obAfsluiting3 = True Then
strAfsluiting = "Sportieve groet"
endif
If obAfsluiting4 = True Then
strAfsluiting = "Graag tot ziens"
endif