Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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
Anzeige

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
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Fehlende Zahlen in Excel auflisten


Schritt-für-Schritt-Anleitung

Um in Excel fehlende Zahlen in einer Liste zu finden und aufzulisten, kannst Du die folgende VBA-Makro-Anweisung verwenden. Diese Methode funktioniert in verschiedenen Excel-Versionen, die Makros unterstützen.

  1. Öffne Excel und erstelle zwei Tabellen: „Tabelle1“ und „Tabelle2“.
  2. In „Tabelle1“ füge Deine Daten im Bereich A2:A11350 ein.
  3. Drücke ALT + F11, um den VBA-Editor zu öffnen.
  4. Gehe zu „Einfügen“ > „Modul“, um ein neues Modul zu erstellen.
  5. Kopiere den folgenden VBA-Code in das Modul:
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
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Drücke ALT + F8, wähle „fehlende_auffuellen“ aus und klicke auf „Ausführen“.

Jetzt sollten alle fehlenden Zahlen in „Tabelle2“ aufgelistet sein.


Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 9: Index außerhalb des gültigen Bereichs“

    • Lösung: Überprüfe, ob die Tabellenblätter „Tabelle1“ und „Tabelle2“ genau so benannt sind wie im Code.
  • Fehler: „Typenkonflikt“

    • Lösung: Stelle sicher, dass alle Zellen im Bereich A2:A11350 tatsächlich Zahlen enthalten.

Alternative Methoden

Wenn Du keine VBA-Makros verwenden möchtest, kannst Du auch die folgende Methode nutzen, um fehlende Zahlen in einer Excel-Liste zu finden:

  1. Erstelle eine neue Spalte neben Deiner Liste mit fortlaufenden Zahlen.
  2. Verwende die Funktion =WENN(ISTFEHLER(SVERWEIS(B2;A:A;1;FALSCH));B2;""), um zu überprüfen, ob die Zahl in der Liste vorhanden ist.

Diese Methode ist einfacher, benötigt jedoch manuelle Anpassungen und funktioniert am besten bei kleineren Zahlenbereichen.


Praktische Beispiele

Angenommen, Du hast in „Tabelle1“ die folgenden Zahlen:

1
2
4
5
7

Mit dem oben genannten VBA-Skript wirst Du in „Tabelle2“ die fehlenden Zahlen wie folgt finden:

3
6

Das Skript hilft Dir, schnell die lückenhaften Zahlen in einer Excel-Zahlenreihe zu ermitteln.


Tipps für Profis

  • Nutze die Funktion „Datenüberprüfung“, um sicherzustellen, dass nur valide Zahlen in „Tabelle1“ eingegeben werden.
  • Experimentiere mit weiteren VBA-Funktionen, um die Performance zu verbessern, insbesondere wenn Du mit großen Datenmengen arbeitest.
  • Halte Deine Excel-Version aktuell, um von den neuesten Funktionen und Sicherheitsupdates zu profitieren.

FAQ: Häufige Fragen

1. Wie kann ich das Makro speichern, um es später wiederzuverwenden?
Du kannst die Arbeitsmappe als „Excel-Arbeitsmappe mit Makros“ (*.xlsm) speichern. So bleibt das Makro erhalten.

2. Was kann ich tun, wenn ich keine Kenntnisse in VBA habe?
Du kannst die oben beschriebene alternative Methode verwenden, um fehlende Zahlen in Excel zu finden, ohne VBA zu nutzen.

3. Funktioniert das Makro auch mit anderen Zahlenbereichen?
Ja, Du kannst den Bereich im VBA-Code anpassen, um andere Zellbereiche zu überprüfen.

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