Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
940to944
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
940to944
940to944
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

fehlende Zahlen in Spalte auslesen

fehlende Zahlen in Spalte auslesen
16.01.2008 17:02:04
Gerhard
Hallo
https://www.herber.de/bbs/user/49072.xls
Habe 2 Spalten
Erste Spalte enthält fortlaufende Nummern von 01-999 - Artikelstamm (jede Zahl kommt mehrfach vor)
Zweite Spalte enthält ebenfalls fortlaufende Nummern, aber diese beginnen bei jedem Artikelstamm wieder bei 1. Jedoch sind diese lückenhaft, d.h. dazwischen fehlen immer wieder Zahlen.
Jetzt will ich folgendes. Über den Autofilter wähle ich meinen Artikelstamm z.B. 02 (Messschieber) ind der zweiten Spalte werden ja nun die Zahlenreihen angezeigt, die für Messchieber angelegt worden sind. (z.B. 02 138)
Gibt es nun ne Möglichkeit die fehlenden Zahlen aus dieser Zahlenreihe auszulesen und in einer MSG BOX anzuzeigen? Ausgegeben sollen nur die fehlenden Zahlen bis zur grössten Zahl, die in Spalte 2 wenn der Autofilter in Spalte 1 gesetzt ist.
Gruß Gerhard

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

Betreff
Datum
Anwender
Anzeige
AW: fehlende Zahlen in Spalte auslesen
16.01.2008 18:49:22
Josef
Hallo Gerhard,
probier mal.
Sub FehlendeZahlen()
Dim a As Variant
Dim intStart As Integer, intEnd As Integer, intC As Integer
Dim strNum As String
a = Range("B4:B" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible)

intStart = 1
'oder die kleinste Zahl in "B"
'intStart = Application.Min(a)

For intC = 1 To Application.Max(a)
    If IsError(Application.Match(intC, a, 0)) Then
        strNum = strNum & CStr(intC) & ", "
    End If
Next

If Len(strNum) > 0 Then
    strNum = "Folgende Zahlen fehlen:" & vbLf & vbLf & Left(strNum, Len(strNum) - 1)
Else
    strNum = "Alle Zahlen durchgehend vorhanden!"
End If

MsgBox strNum, vbInformation, "Fehlende Zahlen"
End Sub

Gruß Sepp

Anzeige
AW: fehlende Zahlen in Spalte auslesen
16.01.2008 20:06:00
Gerhard
Servus Sepp
Auch dein Vorschlag funktioniert!!!
many thx!!!
Greetz Gerhard

AW: fehlende Zahlen in Spalte auslesen
16.01.2008 19:05:00
Erich
Hallo Gerhard,
noch ne Alternative: 

Option Explicit
Sub Fehlende()
Dim varA As Variant, rngC As Range, rngV As Range, strE As String, ii As Long
With ActiveSheet
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then varA = .Criteria1
End With
Set rngV = .Range(.Cells(4, 2), .Cells(.Rows.Count, 2)).SpecialCells(xlCellTypeVisible) _
For Each rngC In rngV
ii = ii + 1
While rngC > ii
If strE > "" Then strE = strE & " "
strE = strE & " " & CStr(ii)
ii = ii + 1
Wend
Next rngC
MsgBox "Bei Artikelgruppe" & varA & "  fehlen:" & vbLf & vbLf & strE, _
vbInformation, "Fehlende Artikelnummern"
End If
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: fehlende Zahlen in Spalte auslesen *thx*
16.01.2008 19:37:00
Gerhard
Hallo Erich
Funktioniert super!!!! Danke!!!
Gruß Gerhard

304 Forumthreads zu ähnlichen Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Anzahl identischer Einträge in 2 Spalten ermitteln
Christian

Hallo zusammen,
ich möchte die Anzahl identischer Werte in zwei spalten ermitteln.
Die erste Spalte enthält eindeutige Werte (Artikelnummern).
Die zweite Spalte enthält eine Teilmenge der ersten Spalte (Bestimmte Artikel, die beobachtet werden sollen).
Im Übersichtsichtsbereic...
11.06.2009 14:56:03
Thread-ID: 1080747
5 Beiträge
Wörter in Zellen / Spalteninhalte zählen
Lemmi

Hallo zusammen,
ich möchte gerne feststellen wieviel gleiche Wörter/ Zahlen sich wiederholen!
Ich habe eine Spalte mit nachfolgenden Inhalt:
Zellen ab E6
E6: Müller Fritz 123
E7: Meier Hans 456
E8: Kleiner Hund 123
E9 Müller Hans123
E10:123
E11: 456
Es s...
27.09.2009 09:04:35
Thread-ID: 1105727
3 Beiträge
Anzeige
Anzahl Text in Spalte H zählen
Wolfgang

Hallo,
in Tabelle "Start" befindet sich in Zelle B34 ein Text und Zelle B35, die Texte kommen in Kombination "B34" & " " & "B35" in Tabelle "Daten" Spalte H entsprechend vor. Ich würde gerne die Anzahl dieser Textkombination in Zelle (z.B.) C35 angzeigt bekommen. Allerdings soll dab...
24.02.2010 21:38:53
Thread-ID: 1141280
8 Beiträge
Anzahl von Textwerten in Spalte mit VBA
Textwerten

Hallo Forum,
ich muss aus einer (sehr) langen Liste von unterschiedlichen Text-Werten die Anzahl der einzigartigen Vorkommen ermitteln. Und zwar mit VBA.
Das sieht in etwa wie folgt aus:
AA
BB
CC
AA
AA
BB
Das Ergebnis wäre simple und einfach: 3
Es funktio...
27.04.2010 17:21:49
Thread-ID: 1154135
12 Beiträge
Zählen wie oft ein Inhalt in der Zelle vorkommt
Sophie

Hallo Leute,
also ich habe in Spalte A 6 stellige Zahlen z.B. 925938.
Ich möchte nun Zählen, wie oft eine Zhal vorkommt, und falls doppelte vorkommen soll die Zahl nur noch 1x in Spalte A stehen.
Ist das irgendwie verständlich?
Liebe Grüße
Sophie
27.05.2010 13:02:39
Thread-ID: 1159068
8 Beiträge
Bestimmte Anzahl Zellen aus Zeilen in Spalten kopi
Ralf

Hallo miteinander,
ich habe hier eine Tabelle mit mehreren Hunderttausend Codes in Spalte A.
Ich brauche allerdings immer 80 Codes (kann beim nächsten mal ein anderer Wert sein) in einer Zeile.
Es müsste quasi A2 in B1, A3 in C1, A4 in D1 usw. kopiert werden. Dann wäre für mich ja v...
30.07.2010 12:33:26
Thread-ID: 1169657
4 Beiträge
Passwort zum Einblenden und Bearbeite von Spalten
Spalten

Hallo zusammen,
ich benötige eure Hilfe!!!
Ich brauche ein Makro, welches mir z.B. die Spalte C und D nur durch ein Passwort anzeigt und ich es bearbeiten kann.
Oder dass ich die Benutzer definiere die die Spalte C und D sehen und bearbeiten dürfen.
Ich hoffe mir kann da jemand...
20.09.2010 21:23:40
Thread-ID: 1178637
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
4
4
2
8
7
11
7
3
4
5
5
1
3
10
2
8
5
3
8
4
7
4
2
3