Lopslag efter flere værdier som opfylder en betingelse

Ja, jeg kan godt løse opgaven men ikke gratis.
Skriv hvis du er interesseret.

Hvis jeg har forstået det korrekt, er det ikke så kompliceret ,så hvis du kan bruge nedenstående, så er det ganske gratis :0)

Function ListEPnr(KontoNr As Integer, KontoOmråde As Range) As String
ListEPnr = ""
For Each c In KontoOmråde
    If c = KontoNr Then
        ListEPnr = ListEPnr & "," & Cells(c.Row, 1).Value
    End If
Next c
ListEPnr = Right(ListEPnr, Len(ListEPnr) - 1)
End Function

Japping -> Her forlanger vi ikke penge for at løse opgaver. Hvis du ønsker at tjene på din viden så hop til sharks-forum.

Her er en til summen, det er sjaps der er rettet til ;-))

Function ListEPnrSum(KontoNr As Integer, KontoOmråde As Range) As String
Værdi = 0
For Each c In KontoOmråde
    If c = KontoNr Then
    Værdi = Værdi + Cells(c.Row, 4).Value
    End If
Next c
ListEPnrSum = Værdi
End Function

nåå lavet om til en variant

Function ListEPnrSum(KontoNr As Integer, KontoOmråde As Range) As Variant
Værdi = 0
For Each c In KontoOmråde
    If c = KontoNr Then
    Værdi = Værdi + Cells(c.Row, 4).Value
    End If
Next c
ListEPnrSum = Værdi
End Function

Sjap og Kabbak

Tak for jeres svar. Jeg er ikke helt stiv i VBA så jeg må nok bede om lidt mere hjælp til denne VBA.

Jeg har prøvet jeres begges VBA'er og nedenfor er det Sjap's jeg har indsat og rettet i der hvor jeg tror der skal rettet - er dette korrekt?

Function ListEPnr(KontoNr As Integer, KontoOmråde As Range) As String
ListEPnr = ""
For Each c In Range(B2, B6)
    If c = 1010 Then
        ListEPnr = ListEPnr & "," & Cells(c.Row, 1).Value
    End If
Next c
ListEPnr = Right(ListEPnr, Len(ListEPnr) - 1)
End Function

Dette er hvordan mit test ark er opbygget:

    A    B    C    D
1    EP nr.    Konto    Tekst    Beløb
2    1    1010    Omp.    100
3    2    2000    Omp.    50
4    3    1010    Omp.    57
5    4    1050    Omp.    5
6    5    1010    Omp.    4

Mit resultat, på det andet ark, skulle gerne komme til at se således ud:

    A    B    C            D    E            F
1    EP nr.    Konto    Tekst            Beløb    Saldo før EP    Saldo efter EP
2    1, 3, 5    1010    Omsætning    161    1000            1161
3    4    1050    Andre indt.    5    20            25
4    2    2000    Vareforbrug    50    450            500

Hvordan bestemmer jeg hvor resultatet af VBA'en skal vises og skal VBA'en sættes ind under programkoder i arket eller Thisworkbook?

Jeg håber I kan hjælpen mig med dette.

Begge koder slal ind i et modul.

Når du højreklikker på fanen af et ark og vælg vis programkode
Kan du i venstre side se dine arknavne.

Oppe i menulinien vælger du
Insert > module

Nu kan du se ovre under arkene til venstre står Module1.

Se nu er Module1 makeret med grå baggrund, det er her koden skal være


***************** kode

Function ListEPnr(KontoNr As Integer, KontoOmråde As Range) As String
ListEPnr = ""
For Each c In KontoOmråde
    If c = KontoNr Then
        ListEPnr = ListEPnr & "," & KontoOmråde.Cells(c.Row, 1).Value
    End If
Next c
ListEPnr = Right(ListEPnr, Len(ListEPnr) - 1)
End Function
Function ListEPnrSum(KontoNr As Integer, KontoOmråde As Range) As String
Værdi = 0
For Each c In KontoOmråde
    If c = KontoNr Then
    Værdi = Værdi + KontoOmråde.Cells(c.Row, 4).Value
    End If
Next c
ListEPnrSum = Værdi
End Function

*********  Kode slut

I Resultat arkets B kolonne skriver du dine Kontonumre neden under hinanden.
                                       
I A2 skriver    du                           
                                       
=ListEPnr(B2;Ark1!A1:D6)

I D2 skriver du
=ListEPnrSum(B2;Ark1!A1:D6)

Ret ark1  til dit navnet på dit testark

Tak kabbak og Sjap

Jeres samarbejde om mit lille problem virker perfekt!

Hvordan kan jeg give jer begge point?

Det kræver vist at kabbak lige får smidt et svar :0)

et svar. ;-))

Tak for point