Beregning af ikke-brugte værdier

Hov, der var lige en fejl! Det første eksempel skal hedde:
A1=5
B1=blank
C1=3
D1=blank
E1=8
F1 skal nu beregnes til: 124679

Prøv med:

1. a5:a13= skriv tallene fra 1-9
2. b5= skriv formlen =SAMMENLIGN(A5;$A$1:$E$1;0) og kopier til b5:b13
3. c5= skriv formlen =+HVIS(ER.FEJL(B5);A5;"") og kopier til c5:c13
4. f1= skriv formlen =SAMMENKÆDNING(C5;C6;C7;C8;C9;C10;C11;C12;C13)

Dette viser den ønskede tekst

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:E1")) Is Nothing Then
    Dim Data As Variant, TestData As Variant, I As Integer, T As Integer
    Data = Range("A1:E1")
    TestData = Array(, 1, 2, 3, 4, 5, 6, 7, 8, 9)
   
        For I = 1 To 4
         
            If Data(1, I) > 0 Then
                For T = 1 To UBound(TestData)
                    If Data(1, I) = TestData(T) Then
                        TestData(T) = Empty
                      End If
                Next
            End If
          Next
         
            Range("F1") = Empty
        For I = 1 To UBound(TestData)
            Range("F1") = Range("F1") & TestData(I)
        Next
End If
End Sub

SAMMENLIGN selvfølgelig ....!
Jeg var kørt lidt fast - måske fordi jeg prøvede at få alt samlet i én array-formel.
Jeg tror stadig det kan lade sig gøre, men det blev lidt langhåret.

Kabbak, smid et svar. Din kode klarer også problemet .....

et svar ;-))

tak for point

også tak for mine første point

Man skal jo starte et sted :-)
Velkommen på Eksperten!

Jeg prøvede lige at lave en funktion til det:

Public Function FindManglende(Område As Range, Testdata As Variant) As Variant
    Dim I As Integer, T As Integer
        For Each C In Område
            If C > 0 Then
                For T = 1 To UBound(Testdata)
                    If C = Testdata(T) Then
                        Testdata(T) = Empty
                      End If
                Next
            End If
          Next
        For I = 1 To UBound(Testdata)
            FindManglende = FindManglende & Testdata(I)
        Next
End Function

Kaldes med

= FindManglende(A1:E1;{1;2;3;4;5;6;7;8;9})

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE("123456789";A1;"");B1;"");C1;"");D1;"");E1;"")

SUBSTITUTE = UDSKIFT på dansk