Razend snelle manier om ontbrekende nummers te vinden in een reeks. De reeks staat in kolom A.

De ontbrekende nummers verschijnen in kolom B.

Let op ! ! ! De reeks moet met 1 beginnen. Binnen 3 seconden voor een reeks met 400.000 nummers.

1. Kopieer de onderstaande code
2. Open een nieuwe werkmap
3. Druk op de toetscombinatie ALT + F11 om de Visual Basic Editor te openen
4. Druk op de toetscombinatie ALT + N om het menu Invoegen te openen
5. Druk op M om een standaard module in te voegen
6. Daar waar de cursor knippert voeg je de code in middels Ctrl + V
7. Druk op de toetscombinatie ALT + Q om de Editor af te sluiten en terug te keren naar Excel
8. Druk op de toetscombinatie ALT + F8 om de Macro Dialoog te tonen. Dubbeklik op de macro naam om te starten.

Option Explicit
Sub Ontbrekende_Nummers()
Dim lngX As Long, lngY As Long, lngZ As Long, varNummers As Variant
Dim varOntbreken As Variant
  varNummers = Range("A1", Cells(Rows.Count, "A").End(xlUp))
  ReDim varOntbreken(1 To varNummers(UBound(varNummers), 1), 1 To 1)
  lngZ = 1
  For lngX = 1 To UBound(varOntbreken)
    If lngX <> varNummers(lngZ, 1) Then
      lngY = lngY + 1
      varOntbreken(lngY, 1) = lngX
    Else
      lngZ = lngZ + 1
    End If
  Next
  Range("B1").Resize(UBound(varOntbreken)) = varOntbreken
End Sub

In kolom A 400.000 cijfers geplaatst waarvan er 4 ontbreken. De ontbrekende cijfers staan in kolom B