Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Fehlende Zahlen finden

Fehlende Zahlen finden
08.07.2005 11:46:08
Roman´dl
Guten Tag Exler
Mein Anliegen heute ist es aus einer Reihe von Zahlen die Fehlende(n)zu finden.
Wie lös ich das?
Bsp
A_B_C_D_E_F_G_H_----I_J_K_L
1_3_3_4_5_9_8-------2_6_7_10
Excel soll die Zeile von A-H im Zahlenbereich 0-10 durchsuchen, fehlt eine Zahl wie in diesem Fall 2,6,7,10 so sollen diese in der Spalte I,J,K,L angedruckt werden
Vielen Dank für Eure Hilfe
m.f.G
Roman´dl
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlende Zahlen finden
08.07.2005 12:01:41
u_
Hallo,

Sub suchen()
Dim ind As Boolean
Dim i As Integer, j As Integer, iCol As Integer, iRow As Long
For iRow = 2 To Cells(65536, 1).End(xlUp).Row
For i = 1 To 10
ind = False
For j = 1 To 8
If Cells(iRow, j) = i Then
ind = True
Exit For
End If
Next j
If Not ind Then
iCol = Cells(iRow, 255).End(xlToLeft).Column + 1
If iCol < 10 Then iCol = 10
Cells(iRow, iCol) = i
End If
Next i
Next iRow
End Sub
Gruß
Geist ist geil!
Anzeige
Danke, Geist ist Geil U_ o.T
08.07.2005 16:16:05
Roman´dl
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige