Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
632to636
632to636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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!
Danke, Geist ist Geil U_ o.T
08.07.2005 16:16:05
Roman´dl
.
Anzeige

14 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige