Makro til afspilling af array!

hvor er opslags værdien og hvor henter den det fra.

Tror ikke det er det der er relevant. Men mit speciel opslag ser således ud:
Public Function SpecielOpslag(Kriterie As Range, Opslagsomrade As Range, ResultatKolonne) As Variant
Dim Fundet As Boolean, F_ad As Integer, S_ad As Integer, Temp() As Variant
Fundet = False
omrade = Opslagsomrade
For I = 1 To UBound(omrade)
    If omrade(I, 1) = Kriterie Then
        F_ad = I
        Fundet = True
    End If
       
   
    If omrade(I, 1) <> Kriterie And Not IsEmpty(omrade(I, 1)) And Fundet Then
      Exit For
    End If
  Next
  S_ad = I - 1
  I = (S_ad - F_ad) + 1
If Fundet Then
ReDim Temp(I) As Variant
I = 0
For T = F_ad To S_ad
    Temp(I) = omrade(T, ResultatKolonne)
    I = I + 1
Next
SpecielOpslag = Temp
Else

Det jeg er interesseret i er en makro der kan afspille array funktionen i én omgang og ikke pr. linie... Altså den skal kunne ativeres for alle linier og ikke kun én ad gangen.. (håber det giver mening)

Prøv den ved ikke om den virker

Public Function SpecielOpslag(Kriterie As Range, Opslagsomrade As Range, ResultatKolonne) As Variant
Dim Fundet As Boolean, F_ad As Integer, S_ad As Integer, Temp() As Variant
Dim c As Range
Fundet = False
omrade = Opslagsomrade
For Each c In Range("A1:A20")
    If Not IsEmpty(c.value) Then
For I = 1 To UBound(omrade)
    If omrade(I, 1) = Kriterie Then
        F_ad = I
        Fundet = True
    End If
       
   
    If omrade(I, 1) <> Kriterie And Not IsEmpty(omrade(I, 1)) And Fundet Then
      Exit For
    End If
  Next
  S_ad = I - 1
  I = (S_ad - F_ad) + 1
If Fundet Then
ReDim Temp(I) As Variant
I = 0
For T = F_ad To S_ad
    Temp(I) = omrade(T, ResultatKolonne)
    I = I + 1
Next
SpecielOpslag = Temp
Else

End If
next
End Sub

Hmm, kan ikke rigtigt få det til at virke. Hvad skal jeg angive Range til at være (du har sat det til A1:A20)? Angiver det de kolonner ud af den skal returnere i eller henviser den til alle de rækker nedad jeg skal have afspillet koden i ??

opslagsværdi = "A:A" 'der hvor du har dine opslagsværdier
For Each c In Range(opslagsværdi)

hvorfor kan du ikke bare markere B96 til AC96 og så bare fylde nedad ?

Public Function SpecielOpslag(Kriterie As Range, Opslagsomrade As Range, ResultatKolonne) As Variant
Dim Fundet As Boolean, F_ad As Integer, S_ad As Integer, Temp() As Variant
Dim c As Range
Fundet = False
omrade = Opslagsomrade
For Each c In Range("B96:AC96")
    If Not IsEmpty(c.value) Then
For I = 1 To UBound(omrade)
    If omrade(I, 1) = Kriterie Then
        F_ad = I
        Fundet = True
    End If
       
   
    If omrade(I, 1) <> Kriterie And Not IsEmpty(omrade(I, 1)) And Fundet Then
      Exit For
    End If
  Next
  S_ad = I - 1
  I = (S_ad - F_ad) + 1
If Fundet Then
ReDim Temp(I) As Variant
I = 0
For T = F_ad To S_ad
    Temp(I) = omrade(T, ResultatKolonne)
    I = I + 1
Next
SpecielOpslag = Temp
Else

End If
next

bak: Det kan jeg også godt, men igen kan jeg kun gøre det 1 linie ad gangen og ikke én gang i hele arket!

Splokit: Jeg kan ikke få koden til at fungere. Uanset hvad jeg gør kommer den med en compile error (Block If without End if). Er ikke så rutineret i VBA så jeg selv kan rette det!

Prøv lige at køre denne makro

Sub testw()
  lastrow = Range("A65536").End(xlUp).Row
  Range("B96:AC96").Select
    Selection.FormulaArray = "=specielopslag(A96,Pivot!$A$1:$B$11537,2)"
    Selection.AutoFill Destination:=Range("B96:AC" & lastrow), Type:=xlFillDefault
End Sub


PS jeg er glad for at det ikke er min maskine der skal køre den i flere tusind linier da det kommer til at tage laaanng tid :-)

Sorry, når jeg nu kigger på spørgsmålet igen, må der være noget jeg har misforstået...

Jeg er ikke helt klar over hvilken måde man får Public Function til at virke på
prøv den her :S lover ikke noget
Private Sub Test()
Public Function SpecielOpslag(Kriterie As Range, Opslagsomrade As Range, ResultatKolonne) As Variant
Dim Fundet As Boolean, F_ad As Integer, S_ad As Integer, Temp() As Variant
Dim c As Range
Fundet = False
omrade = Opslagsomrade
For Each c In Range("B96:AC96")
    If Not IsEmpty(c.Value) Then
For i = 1 To UBound(omrade)
    If omrade(i, 1) = Kriterie Then
        F_ad = i
        Fundet = True
    End If
       
   
    If omrade(i, 1) <> Kriterie And Not IsEmpty(omrade(i, 1)) And Fundet Then
      Exit For
    End If
  Next
  S_ad = i - 1
  i = (S_ad - F_ad) + 1
If Fundet Then
ReDim Temp(i) As Variant
i = 0
For T = F_ad To S_ad
    Temp(i) = omrade(T, ResultatKolonne)
    i = i + 1
Next
SpecielOpslag = Temp
Else

End If
Next
End Function