Excel 2003 - hvordan finne manglende tall?

[DeTomaso]

Hei.

 

Jeg har en kolonne som skal inneholde alle nummer fra 100000 til 999999.

Er det noen måte jeg kan finne og liste ut de manglende tallene (der hvor det er hull i nummerserien)?

[Harald Staff]

Åpne VB-editoren (Alt F11 eller tilsvarende).

Insert - Module.

Lim inn følgende:

 

 

Sub FinnHull()

 

Dim L As Long, R As Long, C As Long

 

Dim Osht As Worksheet

 

Dim Trg As Worksheet

 

Dim Rng As Range

 

Set Osht = ActiveSheet

 

Workbooks.Add (1)

 

DoEvents

 

Set Trg = ActiveSheet

 

R = 1

 

C = 1

 

Trg.Cells(R, C).Value = "Mangler:"

 

For L = 100000 To 999999

 

On Error Resume Next

 

Set Rng = Osht.Cells.Find(What:=L, LookIn:=xlFormulas, LookAt:=xlWhole)

 

If Rng Is Nothing Then

 

R = R + 1

 

If R >= 10000 Then

 

R = 2

 

C = C + 1

 

End If

 

Trg.Cells(R, C).Value = L

 

End If

 

Set Rng = Nothing

 

Next

 

End Sub

 

Dette er en makro som kjøres via diverse menyer, eller ved å tilegne den til en knapp e.l. Sjekk hjelp hvis du strever med dette.

 

HTH. Beste hilsen Harald

[DeTomaso]

Du er unik Harald!!

 

Tusen, tusen takk for god hjelp!