Code If met End If niet geaccepteerd. Hoe verder?

[wat]

De gemaakte macro heeft verschillende if then functies. Wanneer er een End If geplaatst wordt achter elke IF/Then functie geeft de macro de fout melding "End If zonder If"
Hoe kan ik dit verhelpen?
Vaak werk de functie wel zonder End If !

gr.wat


Private Sub CommandButton1_Click()

'overnemen ingevoerde gegevens.

Dim strtextbox4 As String
Dim strtextbox5 As String
Dim strtextbox6 As String

strtextbox4 = TextBox4.Value
strtextbox5 = TextBox5.Value
strtextbox6 = TextBox6.Value

If strtextbox4 = "" Or strtextbox4 = "NAP" Then strtextbox4 = InputBox("Er is geen resultaat ingevoerd")

If strtextbox5 = "" Or strtextbox5 = "dd-mm-jj" Then strtextbox5 = InputBox("Er is geen datum ingevoerd")

If strtextbox6 = "" Or strtextbox6 = "NAP" Then strtextbox6 = InputBox("Er zijn geen initialen ingevoerd")

'openen database
Workbooks.Open Filename:="G:\QA\chemlab\Menu\Menu\Controlemonster\DS.xls"
Sheets("drogestof").Select

 

[Wigi]

Zoals je de IF hier gebruikt:

If strtextbox4 = "" Or strtextbox4 = "NAP" Then strtextbox4 = InputBox("Er is geen resultaat ingevoerd")

hoeft geen End If erachter.

 

[wat]

Ik dacht dat dit altijd bij een IF functie moest maar iedergeval bedankt.