Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1208to1212
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
Inhaltsverzeichnis

Fehlende Zahlen in einem Zahlenbereich auflisten

Fehlende Zahlen in einem Zahlenbereich auflisten
Milan
Hallo Forum,
ich suche nach einem VBA, der die fehlenden Artikelnummern auflisten
In Spalte A ab A5 befinden sich Artikelnummern
Die in einem Zahlenbereich fehlenden Artikelnummern sollen z.B. ab D1 aufgelistet werden.
Ein Zahlenbereich soll festlegbar sein
Beispiel:
Abfrage: Zahlenbereich 4000 bis 4500
A5 = 4000 D1 = 4002
A6 = 4001 D2 = 4003
A7 = 4005 D3 = 4004
D4 = 4006
Vielen Dank im Voraus für die Hilfe
Gruss
Milan

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Fehlende Zahlen in einem Zahlenbereich auflisten
13.04.2011 20:22:57
Gerd
Hallo Milan!
Sub Schalke()
Dim lngNum As Long
For lngNum = 4000 To 4500 ' oder: Application.Max(Range(Cells(5, 1), Cells(Rows.Count, 1).End( _
xlUp)))
If IsError(Application.Match(lngNum, Range(Cells(5, 1), Cells(Rows.Count, 1).End(xlUp)), 0)) _
Then
If IsEmpty(Cells(1, 4)) Then
Cells(1, 4).Value = lngNum
Else
Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = lngNum
End If
End If
Next
End Sub

Gruß Gerd
AW: Fehlende Zahlen in einem Zahlenbereich auflisten
13.04.2011 20:40:47
tommy

Sub sucheFehlArtNr()
Dim lfdNr, n, z As Long
For lfdNr = 4000 To 4500 'lfdNr = Artikelnummerindex
z = z + 1 'hilfszähler
If Cells(z + 4, 1) = "" Then
n = n + 1 'hilfszähler2
Cells(n, 4).Value = lfdNr
End If
Next
End Sub

Anzeige
AW: Fehlende Zahlen in einem Zahlenbereich auflisten
13.04.2011 21:01:28
Milan
Hallo Gerd,
danke, es funktioniert super, bist ein Engel, es hilft mir so sehr.
Danke aus Berlin
Gruss
Milan

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige