Office: (Office 2013) fehlende Glieder in Reihe einer Zeile Finden und Kommagetrennt in eine Zelle schreibe

Hallo liebe Gemeinde,

die Finger sind schon Wund, der Kopf raucht.... tausende Probleme mit Zahlenreihen habe ich gefunden, aber keines wie meines...

Ich habe hier mehrere Zeilen mit unterschiedlichen Zahlenreihen, jede dieser Reihen ist individuell zu betrachten und jede Zeile hat eine unterschiedliche Anzahl von Zellen mit Inhalt.

In Spalte A steht der Zeilenname (unwichtig für die Berechnung), in Spalte B die kleinste Zahl der Reihe, in Spalte C die Größte Zahl der Reihe.

Ab Spalte I beginnen die Reihen. Mein Ziel ist es nun alle fehlenden ganzen Zahlen dieser Reihen kommagetrennt in die Spalte D der Tabelle einzutragen.

Alle meine Versuche sind bereits alleine an den Überlegungen gescheitert. Wer kann mir helfen?

 

Hallo,
häng doch bitte eine Beispiel-Datei an, was meinst du mit "fehlenden ganzen Zahlen".
B1 = 5,3 C1 = 8,7 D1=5,3;6;7;8;8,7 I1,J1,K1 = 5,3;6,7;8,7
Sowas?

 

Hallo ThekesC,

ne Datei dazu hab ich jetzt nicht greifbar, Prinzipiell kann ich dir das Ganze aber auch recht einfach erklären:

Spalte 1 beinhaltet die Lösungen, kommagetrennt mit einem Leerzeichen zur besseren Lesbarkeit, Spalte 2 die kleinste Zahl der Reihe, Spalte 3 die Größte Zahl der Reihe, ab Spalte 4 soll gezählt werden. Um nicht immer eine neue Zellbezeichnung anzugeben, habe ich die Werte pro Zelle mit einem Semikolon getrennt:

A1 [2, 3, 8, 23]
A2 [1]
A3 [24]
ab A4 1;4;5;6;7;9;10;11;12;13;14;15;16;17;18;19;20;21;22;24

gesucht werden die Werte in A1 in der Zeile A4:An mit dem Min-Wert aus A2 und dem Max-Wert aus A3...

Ich hoffe, ich verwirre nicht zu sehr...

 

Hallo,

in der beiliegenden Excel-Datei habe ich dir im allgemeinen Codemodul folgende benutzerdefinierte VBA-Funktion eingefügt:

Code:

Function ListeFehlzahlen(Kl As Long, Gr As Long, Bereich As Range) As String
  Dim I As Long
  Dim GefZelle As Range, Liste As String
  Liste = ""
  For I = Kl To Gr
    Set GefZelle = Bereich.Find(What:=I, LookIn:=xlValues, Lookat:=xlWhole)
    If GefZelle Is Nothing Then Liste = Liste & ";" & I
  Next I
  ListeFehlzahlen = Mid(Liste, 2)
End Function

Im Arbeitsblatt "Tabelle1" habe ich dir in den Zellen A1, B1, C1 3x diese Funktion eingefügt.
Beispiel Zelle A1: =ListeFehlzahlen(A2;A3;A4:A23)
Die 3 Parameter, die diese Funktion benötigt, sind selbsterklärend:
- der 1. Parameter ist die (Zelle mit der) kleinste(n) Zahl;
- der 2. Parameter ist die (Zelle mit der) größte(n) Zahl;
- der 3. Parameter ist der Zellbereich für die Zahlenliste.
Der Funktion ist es egal, ob die Zahlen in der Zahlenliste sortiert sind oder wirr durcheinander angeordnet sind.

 

Melde mich mal wieder zurück... wurde auf ein anderes Projekt angesetzt und hatte keine Zeit mehr, zu testen und Feedback zu geben... sorry vielmals.

Erstmal danke Anton, es funktioniert, allerdings habe ich gesehen, dass - sobald doppelte Einträge vorhanden sind (jemand hatte die Daten an mancher Stelle doppelt erfasst), dann läuft die Sache nicht mehr und ich muss die Dubletten erst einmal entfernen. Gibt es da vielleicht noch eine Verbesserung, dass er doppelte oder Mehrfacheinträge einfach übergeht?

Viele Grüße
Michael

 

Hallo Michael,

ehrlich gesagt, verstehe ich dieses Problem leider überhaupt nicht - daher möchte ich im Detail schildern, was die Makro-Funktion macht:

1. Über den 1. Parameter holt sich die Funktion den Wert für die kleinste Zahl und speichert ihn in die Variable "Kl"; im 2. Parameter ermittelt die Funktion den Wert für die größte Zahl und speichert ihn in die Variable "Gr" und im 3. Parameter ermittelt die Funktion den Zahlenbereich und speichert diese Bereichsangabe in die Variable "Bereich".
2. In der Variable "Liste" sollen der Reihe nach die nicht gefundenen Zahlen im Zahlenintervall "Kl" bis "Gr" (getrennt durch Strichpunkte) gespeichert werden. Diese Variable wird daher zu Beginn geleert (="")
3. Mit Hilfe der Schleife "For I = Kl to Gr: ....: Next I" sollen alle Natürlichen Zahlen von "Kl" bis "Gr" (mit Schrittweite 1) durchlaufen werden und zwar für die beiden Programmzeilen, die zwischen "For...." und "Next I" enthalten sind.
4. Die Zeile "Set GefZelle..." sucht im Zellbereich "Bereich" nach der Zahl, die momentan in Variable "I" steht (und zwar als Wert und jeweils als Ganzes).
   Wird in "Bereich" eine solche Zelle mit der Zahl "I" gefunden, wird der Zellbezug dieser Zelle in der Variablen "GefZelle" gespeichert. Wird jedoch nichts gefunden, wird in "GefZelle" ein leerer Bezug gespeichert.
5. In der Zeile "If GefZelle Is Nothing ...." wird daraufhin überprüft, wie der vorige Punkt 4. verlaufen ist. Enthält nämlich die Variable "GefZelle" einen leeren Bezug, wird an die Variable "Liste" ein Strichpunkt angefügt, gefolgt von der Zahl, die in der Variable "I" enthalt ist.
6. In der Zeile "Next I" wird die Variable "I" um 1 erhöht (vgl. auch Punkt 3.) und mit Punkt 4. fortgesetzt, solange bis alle Zahlen bis zur Zahl "Gr" durchlaufen sind. Ist das der Fall, geht das Makro zu Punkt 7. weiter.
7. In der Zeile "ListeFehlZahlen = Mid(Liste, 2)" wird der erste Strichpunkt in der Variable "Liste" entfernt (denn dieser ist als 1. Zeichen in der Liste überflüssig) und der Rest des Inhaltes von "Liste" als Funktionsergebnis zurückgegeben über den Funktionsnamen "ListeFehlzahlen".

Das von dir geschilderte Dubletten-Problem müsste sich somit im Punkt 4. und 5. abspielen. Im Punkt 5. wird jedoch nur überprüft, ob eine bestimmte Zahl "I" überhaupt nicht vorhanden ist und - falls dies der Fall ist - die "Liste" mit der Zahl "I" ergänzt.
In Punkt 4. wird jeweils nur EIN Suchvorgang durchgeführt: Wird dabei "I" gefunden, wird sie in "GefZelle" gespeichert. Nach weiteren Mehrfachwerten von "I" wird erst überhaupt nicht versucht zu suchen und daher können diese überhaupt keinen Einfluss auf den Lauf des Makros ausüben.