Zeichenketten vergleichen

Toni · 2019-01-18T23:51:44+00:00

Hallo Ihr! Wenn man sich das Ganze im Kopf vorstellt, ist es immer ganz simpel, versucht man es dann konkret zu Papier zu bringen, wirds plötzlich tricky - so jedenfalls hier: Eigentlich suche ich nur nach einer Möglichkeit die Zeichenketten zweier Zellen miteinander zu vergleichen (nur Zahlen getrennt durch Kommata) und Abweichungen in jeweils nur einer der beiden Zellen anzuzeigen. Durch die Randbedingungen (s. in der Datei anbei) wirds komplexer ... Kern ist die Kennzeichnung der Abweichungen. Das Andere muss ich mir gegebenenfalls nach und nach anders zusammenklauben. Würde mich natürlich über jeden Zugang erst einmal freuen! Danke für Eure Unterstützung! https://www.herber.de/bbs/user/126927.xlsx Grüße Euer Toni

sehr sehr cool!
das allein schon: wie ich bei unbekannter Spaltenlänge, mehrere Spalten der Reihe nach in ein Array einlese: Neu für mich:

            ze(i) = z
sp(i) = s

ich überleg noch, warum das hier, weil da doch noch nichts drin war. Ist das eventuell für die Performance besser, wenn man die leert vorher? Außerdem werden die eigentlich nie benutzt? doch nur Galerie? ;)

        Erase ArrVQ, ArrVZ, ZaQ, ZaZ, PosSep 'Arrays leeren
ReDim ArrVQ(0)
ReDim ArrVZ(0)
ReDim PosSep(0)

Genau!, wenn ich die im Array drin hab, brauch ich den Tabellenort nicht mehr, aber in echt gelöst seh ich das auch zum ersten Mal:

        txtQ = Cells(ze(ii - 4), sp(ii - 4)).Text '"ze(ii - 4)" statt "z-4", da "z-4" falsch wäre bei "Zeilenumbruch "

dieses found-Konstrukt war mir so auch neu (ist ja z.B. auch bei Mid und ähnlichem sehr hilfreich), mal abgesehen davon, dass ich InStr, Val und Trim noch nie benutzt habe und vorher überlegt habe wie ich denn je an die einzelnen abweichenden Zahlen in den Zellen ran kommen soll - also speicher ichs einfach in PosSep - einfach genial:

found = InStr(found + 1, txtZ, ",")

Dieses Boolean-Array verstehe ich noch nicht:

ZaZ(Val(arrZ(i))) = True 'Aus Text Zhlen machen und speichern

weil: im Lokalfenster steht ja für dieses Array nur wahr/falsch - aber die Zahl aus der Zeichenkette selbst muss ja auch noch irgend wie enthalten sein, sonst könnte er ja 'Zahl' nicht abgleichen:

                If Not ZaQ(zahl) And zahl > 0 Then 'Wenn Zahl nicht in Quellzelle enthalten und nicht 0

der ist glaub ich für die Galerie ^^:

                wort = Trim(arrQ(i)) 'Als Text speichern

Alles in allem so viel Neues und Interessantes, ich bin vollauf begeistert, was ich heute lernen durfte! Ich kann Dir nicht genug danken mein Lieber!
Grüße Toni

Erase leert die Arrays zwar, aber wenn das Array vorher bis z.B. Arr(100) ging, bleibt das auch dabei, nur die Werte werden z.B. bei Integer auf 0 und bei Strings auf "" gesetzt.
Erst die Redim-Anweisung setzt die Anzahl der Elemente auf 0 zurück.
Aber du hast Recht, "Erase ArrVQ, ArrVZ, PosSep" könnte man auch weg lassen (aber nicht die GANZE Zeile), da Redim ohne Preserve das Array auch zurücksetzt.
Ist aber, wie du bemerkt hast, nur Restmüll, den ich nicht "entsorgt" habe. Ich habe die Zahlenwerte später durch "Val(arrZ(i))" ersetzt, statt sie in ein Array zu speichern.

ZaZ(Val(arrZ(i))) = True 'Aus Text Zhlen machen und speichern

sollte heissen

ZaZ(Val(arrZ(i))) = True 'Zahl kommt im ZielText vor

- Mein Fehler.
"der ist glaub ich für die Galerie ^^" : - Stimmt, wenn man einen Code zig mal ändert, bleibt Restmüll.
Da der Text sowieso schon OHNE Leerzeichen gespeichert wurde, könnte man auch direkt nach arrZ(i) suchen, aber auf die Idee, alle Leerzeichen aus dem Text zu entfernen, kam ich erst später und habe vergessen, es zu ändern.

Forumthread: Zeichenketten vergleichen

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Zeichenketten vergleichen

Forumthread: Zeichenketten vergleichen

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread