Office: (Office 2019) Exel Sonderzeichen über VBA in Code einfügen

Für einen Stammbaum habe ich bisher über 400 Personen in Excel erfasst. Zur schnelleren Suche nach zusammenhängenden Personen werden die wesentlichen Daten in eine ListBox (ListPersonen) eingelesen.
Die Zuordnung zur Generation der einzelnen Personen wird (neben genealogisch relevanten Daten) durch Ziffern definiert (im Beispiel: g, abgelegt in Listspalte x).
Beispiel: Ur-Großeltern (jeweils mit Partnern und Geschwistern) Generation "0", Großeltern die Generation "1", Eltern "2", Kinder "3" usw. Das ist kein Problem.

Die Suche einzelner Generationen über die o.g. Zuordnung funktioniert ebenfalls gut. Aber die Auswahl über "<" bzw. ">" (nicht als String) per VBA klappt nicht, wenn ich mehrere Generationen z.B. per Optionsfeld auswählen will, z.B. alle ab der Elterngeneration (g ist >=2 oder g >1)
...If ListPersonen(Listindex-1, x) > g then....
wählt nur die Generationen von Großelten, Eltern und allen nachfolgenden aus - und das funktioniert bei "von Hand" eingegebener Code mit > g wie gewünscht: Die Sonderzeichen < oder > per VBA einzufügen kriege ich nicht hin. Lassen sich Sonderzeichen dynamisch an entsprechender Stelle mit VBA einfügen?
Freue mich auf alle Antworten - am meisten natürlich wenn's eine Lösung gibt.

Danke an alle, die sich dafür interessieren

Schönen Abend noch
Eberhard

 

Hallo Eberhard,

sehr hilfreich für einen Helfer ist eine (anonymisierte) Excel-Datei, in der man dein Problem ersehen kann. In deinem Falle sollte auch der VBA-Code enthalten sein, aus dem man dein Problem entnehmen kann. Es ist nämlich sonst für jemanden, der deine Datei bzw. dein Problem nicht kennt, kaum möglich, eine sinnvolle Unterstützung zu geben.

 

Hallo Anton,

Danke für Deine Antwort. Ob die Datei wirklich hilfreich wäre weiss ich nicht.
Der angeführte Code-Schnipsel weist auf den wesentlichen Punkt hin:
WENN der numerische Inhalt in einer Listbox(Zeile x, Spalte g) < oder = oder > als ein Vergleichswert ist (der zur Laufzeit festgelegt wird), DANN verarbeite diese Zeile (Datensatz) abhängig vom Vergleich.
Die Vergleichsoperatoren als String einzufügen funktioniert nicht: ….„< 2“….. als String führt zu einem Fehler, direkt in Codezeile: „…< 2…“ klappt zwar, hilft aber nicht wirklich weiter.

Letztlich reduziert sich die Frage darauf, ob Vergleichsoperatoren wie <, = oder > mittels VBA dynamisch in eine code-Zeile eingefügt werden können und wie das ggf. erfolgen kann.

Danke und schönes Wochenende

Eberhard