Excel VBA .... Block if without end if ....
Jeg har lavet en lille funktion i excel ...Der skal tælle antal gange noget er over 0 ....
Der kommer ud med følgende fejlmeddelse:
\"Block if without end if\"
Jeg har vedlagt koden .... jeg vil gerne have at vide hvad der er galt ... gerne en rettet kode tak ..
Spørgsmålet er kun åben idag og imorgen
Option Explicit
Public Function Proces(TST1 As Integer, TST2 As Date, TST3 As Integer, TST4 As Integer, TST5 As Integer, TST6 As Integer, TST7 As Integer, TST8 As Integer, TST9 As Integer, TST10 As Integer, TST11 As Date, TST12 As Integer, TST13 As Integer)
Dim Samlet As Integer
Samlet = 0
If TST1 > 0 Then
Samlet = Samlet + 1
If TST2 > 0 Then
Samlet = Samlet + 1
If TST3 > 0 Then
Samlet = Samlet + 1
If TST4 > 0 Then
Samlet = Samlet + 1
If TST5 > 0 Then
Samlet = Samlet + 1
If TST6 > 0 Then
Samlet = Samlet + 1
If TST7 > 0 Then
Samlet = Samlet + 1
If TST8 > 0 Then
Samlet = Samlet + 1
If TST9 > 0 Then
Samlet = Samlet + 1
If TST10 > 0 Then
Samlet = Samlet + 1
If TST11 > 0 Then
Samlet = Samlet + 1
If TST12 > 0 Then
Samlet = Samlet + 1
If TST13 > 0 Then
Samlet = Samlet + 1
Proces = Samlet
End Function
