Function ListEPnrSum(KontoNr As Integer, KontoOmråde As Range)

Tillægsspg. til spg.:

http://www.eksperten.dk/spm/597298

Det virker med As Long og CLng - nu kan jeg anvende mere end 5 cifre, men nu har jeg problemet, at hvis der er flere posteringer bliver EPnr ikke vist i mit dataark.

Før blev posteringerne rigtigt nok adskilt med komma, men nu viser den ingenting, hvis der som sagt er flere posteringer. Hvad skal rettes? VBA'en ser således ud nu:


Function ListEPnr(KontoNr As Long, Afdeling As String, Dataområde As Range) As String
Dim EP As Variant, KO As Variant, Ens As Boolean, T As Long, A As Variant
KO = Dataområde

For i = 1 To UBound(KO)
Ens = False
    If KO(i, 3) = KontoNr And KO(i, 1) = Afdeling Then
        A = Split(ListEPnr, ",")
       
        For T = 0 To UBound(A)
            If CLng(A(T)) = KO(i, 2) Then
              Ens = True
            End If
        Next T
       
        If Ens = False Then
            ListEPnr = ListEPnr & KO(i, 2) & ","
        End If
      End If
Next i
ListEPnr = Left(ListEPnr, Len(ListEPnr) - 1)
End Function

Function ListEPnrSum(KontoNr As Long, Afdeling As String, Dataområde As Range)
Dim KO As Variant
KO = Dataområde
For i = 1 To UBound(KO)
    If KO(i, 3) = KontoNr And KO(i, 1) = Afdeling Then
  ListEPnrSum = ListEPnrSum + KO(i, 5)
    End If
Next i
End Function



Mvh. TVC