probleem formule

[mardewilde]

Beste,
wanneer ik een formule laat uitvoeren duurt dat een eeuwigheid.

Dit is nog maar voor 1.000 rijen en ik moet er min 10.000 kunnen doen.

Wie kan mij helpen?

Zie voorbeeld bijlageBekijk bijlage Berekening.xls

 

[Excelbat]

Zet deze formule in C2 en trek 'm naar beneden"

=ALS(ISFOUT(VERT.ZOEKEN(A2;$B$2:$B$10001;1;0));A2;"")

Greetz/Excelbat

 

[HSV]

Waarom staan de getallen in kolom B willekeurig?
Kan dit ook met het nummer die verwijderd moet worden achter hetzelfde nummer?
Dan kan het met:

Sub hsv()
Dim Tb As Range, sn
 Set Tb = Cells(1).CurrentRegion.Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
  sn = Tb.Value
  Tb.Name = "Bereik"
   Range("D2").Resize(UBound(sn) + 1) = Application.Transpose(Split(Join(Filter(Application.Transpose([if(offset(bereik,,1,,)="",Bereik,"~")]), "~", False))))
Application.Names("bereik").Delete
End Sub

Zo niet dan code voor je voorbeeldbestand.

 Sub hsvtwee()
 Dim sn, i As Long, arr, cl As Range, j As Long, tmp
 With CreateObject("scripting.dictionary")
    sn = Cells(1).CurrentRegion
     For i = 2 To UBound(sn)
      .Item(sn(i, 1)) = sn(i, 1)
     Next i
   arr = Array()
     For Each cl In Columns(2).SpecialCells(2)
        ReDim Preserve arr(UBound(arr) + 1)
        arr(UBound(arr)) = cl
     Next cl

  For i = UBound(sn) To 2 Step -1
    For j = 0 To UBound(arr)
       If sn(i, 1) = arr(j) Then .Remove sn(i, 1)
    Next j
  Next i
Range("D2").Resize(UBound(sn) - UBound(arr) - 1) = Application.Transpose(.keys)
End With
End Sub

 

[mardewilde]

oplossing formule

Dank voor deze formule.
De snelheid is nu vele malen hoger.
De nummering in de kolom bezetteNrs kan willekeurig zijn omdat
in die kolom soms nummers weggaan en teruggezet worden.

Ga ook eens met de vba proberen.