Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
496to500
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
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehlende Zahlen auflisten....?

Fehlende Zahlen auflisten....?
09.10.2004 23:31:58
Selma
Hallo Leute,
ich habe in Tabelle1 im Bereich A2:A11350 die Zahlen stehen.
Wenn z.B. Zahl 11500 der größte Zahl aus meinem Bereich ist,
dann möchte ich in Tabelle2 (in irgendeine Spalte) die Zahlen
aufgelisten die im meinem Bereich zwischen Zahlen 1 und 11500 fehlen.
Wie mache ich das?
Danke im Voraus....
Gruß
Selma

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlende Zahlen auflisten....?
ransi
hallo selma
versuch mal so:
Public

Sub fehlende_auffuellen()
Dim l As Long
Dim zahl As Long
Dim bereich As Range
Set bereich = Worksheets("Tabelle1").Range("a2:a11350")
l = 1
For zahl = 1 To WorksheetFunction.Max(bereich)
If WorksheetFunction.CountIf(bereich, zahl) = 0 Then
Sheets("tabelle2").Cells(l, 1) = zahl 'schreibt die gefundenen zahlen in tabelle2 spalte "A"
l = l + 1
End If
Next
End Sub
rückmeldung wäre nett
ransi
Anzeige
D A N K E S C H Ö N !
10.10.2004 21:46:24
Selma
Hallo ransi,
Dankeschön.... es klappt super....
Schöne Grüße
Selma
freut mich wenns klappt...o.T.
ransi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige