Office: Wandelt Excel Operatoren automatisch um ?

Guten Abend zusammen,

ich habe eine generelle Frage zum "anfassen" von Daten in Excel.
Wandelt Excel gewisse Zeichen automatisch um ?
Gemeint ist folgendes Beispiel (Screenshot anbei):

Ich habe eine Codezeile, die schon etwa 100 Excelmappen eingelesen hat ohne hängen zu bleiben. Bei der aktuellen Mappe gibt es aber eine Zeile die lautet:

Diamètre >10 cm et ≤ 20 cm

Das Zeichen, das Probleme macht ist ≤.

Was in der Quellmappe nicht angetastet oder verändert wird, liest ein Makro mit folgender Zeile in einer For Next Schleife ein.

Code:

Wie erwähnt kommt es hier zu keinerlei Komplikationen BISHER.
Auch wenn ich die Stringkonvertierung weglasse oder mir den Inhalt der gewünschten Zelle per MsgBox anzeigen lasse ist das Ergebnis:

diamètre >10 cm et = 20 cm (mit vbUpperCase)

Es ist auszuschließen, dass die Quelldatei manipuliert wird vom Code. Später wird eben auf Grundlage der Quelldatei der erste Text oben wieder gesucht und folglich auch nicht gefunden, was dann zu Fehler 1004 führt. Die Rückverfolgung des Fehler brachte mich zu besagter Stelle wenn das Array gefüllt wird. Es ist also nicht der eigentliche Programmfehler, sondern die Fehlerquelle, in der Text einfach umgewandelt wird, sprich Operatoren.

Hat jemand damit Erfahrungen in VBA ?

Für mich ist ≤ auch nicht gleich =.

:)

 

Das korrekte Zeichen ist

 

Danke Lupo für die Antwort.
Heißt das, dass ich beim einlesen die Quelle auf dieses Zeichen checken muss und dann "vorher" umwandeln muss ?
Kennst du noch andere Zeichen die sich als Problemquelle herausstellen ?

Kann ich nicht erzwingen den Text so zu übernehmen wie er vorliegt ? Es handelt sich wirklich um reinen Text und wird nicht weiter bearbeitet. Wenn ich mit "Like" suche statt exact, dann wenn einige Text doppelt gefunden, da sich manchmal nur ein Zeichen unterscheidet. Das wäre nicht gut.

 

Hallo,

das ≤ ist ein Unicode-Zeichen, das im String auch korrekt gespeichert wird, aber in der Msgbox anscheinend in ANSI umgewandelt wird. Wenn Du den String in eine Zelle schreibst, dürfte es korrekt angezeigt werden.

Wie ist denn Deine Suche programmiert? Eigentlich sollte er den Text finden. Denn sowohl die Suche als auch reine Zellvergleiche müssten damit funktionieren. Du musst bei der Suche aber das Unicode-Zeichen verwenden und nicht das ersetzte Zeichen!

 

Hallo und Danke für die Antwort.
Also ich suche per find. Die Suche ist eine Funktion in einem separatem Modul. Ich habe keine andere Suchen programmiert. Sie bietet nur zwei Varianten zum Suchen. Einmal ohne after:= und einmal mit after:=. Dabei werden zuvor Zeilen und Spaltennummer ermittelt und bei find der Parameter after:=. Worksheets(str Worksheet). Cells(x, y) gesetzt gefolgt von LookIn:=xlValues und LookAt:=xlWwhole.
Wie aber schon erwähnt wird diese Suche zuvor schon für den Daten Import aus der Quelle angewandt und es kommt nicht zu einem Fehler. So würde ich die Suchfunktion als Fehlerquelle ausschließen.
Ich habe mal noch zwei Screenshots angehängt. Beim ersten ist die Zeile rot markiert wo diese automatische Umwandlung stattfindet. Und darunter ist im Lokalfenster der Inhalt zu lesen wie ganz oben beschrieben.
Screenshot 2 zeigt die Quelldatei zum gleichen Zeitpunkt.

 

Also nach langer Recherche im Internet habe ich bei herber.com folgende Information gefunden:

 

Ich bin dann doch ein Stück weiter gekommen. Aber eben nicht bis zum Ende.

Folgenden Artikel aus vbArchiv brachte mich auf die Spur:
http://www.activevb.de/rubriken/kolu...0/unicode.html

Ziemlich unten gibt es eine Funktion die ich auf heutige 64bit umgeschrieben habe und ins Modul oben rein kommt:
Code:

Der Screenshot zeigt, dass die MsgBox hier den Text wie im Original anzeigt. Ich schaffe es aber nicht, diesen Text richtig ins Array zu übernehmen.

Auf obiger Seite steht folgende Information zum API-Aufruf:

Mein Array ist aber ein Variant und kein String-Array.
Frage:
Wie kann ich den API-Aufruf umschreiben, dass die Ausgabe in ein Array möglich ist ?

Allen noch ein schönes Fest - trotz Corona