Kode til formel

Hvor mange forskellige formler vil der være tale om?

ca en 10 stykker

Ok - scenariet kunne måske være:

På separat ark2 - defineres i kolonne A & B henholdsvis værdi (A) f.eks 3011 & den ønskede formel i (B).

Når der i ark1 intastes en værdi, der findes i kolonne A på ark2 - f.eks. 3011 - indsættes formlen i den pågældende celle.

Hvad siger du til dette?

forslag:

Rem Koden indsættes på Ark1 (Højreklik på fanen / Vis programkode)
Rem På Ark2: formlerne i kolonne B er indrammet således "formel" - så den er direkte læsbar
Rem =======================================================================================
Private Sub worksheet_change(ByVal Target As Excel.Range)
Dim formel
    If Not Intersect(Target, Range("A1:IV65000")) Is Nothing _
        And Target.HasFormula = False And Target.Value <> "" Then
        formel = findFormel(Target.Value)
       
        If formel <> "" Then
            formel = Replace(formel, Chr(34), "")      '"" fjernes
            Target.Formula = formel
        End If
    End If
End Sub
Private Function findFormel(værdi)
Dim ark2
    Set ark2 = ActiveWorkbook.Sheets("ark2")
   
    With ark2.Range("A1:A100")
        Set c = .Find(værdi, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findFormel = .Cells(c.Row, 2)
        Else
            findFormel = ""
        End If
    End With
End Function

Afprøvet?

Nej, ikke endnu, men jeg regner med at jeg får tid i morgen takker mange gange for hjælpen

Noget nyt??

Nej, jeg har været syg, så jeg har ikke fået det prøvet endnu

Ok - med ønsket om god bedring...

Afprøvet?

virker fint send et svar

Det får du så...