Hjælp til formel

Hvis muligt er du velkommen til at sende din fil til: pb@supertekst-it.dk
gerne med et eksempel, der illustrere det du gerne vil have.

En mulig løsning vil sandsynligvis blive via en makro....

Så der sendt eksempel, tak fordi du gider se på det

Følgende forslag er sendt:

Rem Koden er indlagt under Ark1
Rem ===========================
Const startRækArk2 = 3
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tilskud
Rem Aktiveres, når der indtastes beløb i Ark1 kolonne E

    If Not Intersect(Target, Range("E4:E13")) Is Nothing Then
Rem Hvis beløb = 0 - så nulstil Tilskud
        If Target.Value = 0 Then
            Target.Offset(0, 1) = 0
        Else
Rem Find evt. tilskud
            tilskud = findTilskud(Target.Offset(0, -3), Target.Value)
            Target.Offset(0, 1) = tilskud
        End If
    End If
End Sub
Private Function findTilskud(ydelsesNr, beløb)
Dim ark2 As Worksheet
Dim tilskud, max, fast
Rem henter data fra Ark2
   
    Set ark2 = ActiveWorkbook.Sheets(2)
    With ark2
        For ræk = startRækArk2 To 65000
Rem Tom celle fundet i kolonne B
            If .Cells(ræk, 2) = "" Then
Rem YdelsesNr. kunne ikke findes
                MsgBox ("YdelsesNr.: " & CStr(ydelsesNr) & " kunne ikke findes")
                findTilskud = 0
                Exit Function
            End If
           
            If .Cells(ræk, 2) = ydelsesNr Then
                tilskud = .Cells(ræk, 4)
                max = .Cells(ræk, 5)
                fast = .Cells(ræk, 3)
Rem Er tilskuds-% udfyldt
                If tilskud <> "" Then
                    findTilskud = tilskud * beløb
Rem er tilskudsbeløb > maks - så giv kun maks
                    If findTilskud > max Then
                        findTilskud = max
                    End If
                    Exit Function
Rem er der anført fast tilskud
                Else
                    findTilskud = fast
                    Exit Function
                End If
            End If
        Next ræk
    End With
End Function

Ovennævnte kode blev justeret med hensyn til et par kolonnenr på ark2 - hvorefter det fungerede.