Office: Mit in Laufzeit erzeugten dynamischen Texboxen Werte vergleichen und einfärben

Hallo zusammen,
Ich brauche mal eine kleine Nachhilfe im Zusammenhang mit in Laufzeit dynamisch erzeugten TextBoxen.
Ich denke da wahrscheinlich in die verkehrte Richtung:
Beim Aufruf der TextBoxen werden die Zellen der aktiven Tabelle normal ausgelesen und in den TextBoxen ausgegeben.
Die TextBox mit der Bezeichnung "Tx" & S gibt nur den Text der Zellen aus Spalte A aus.
S steht Zählernummer.
Nun will ich im Klassenmodul die beiden TextBoxen, welche die Werte aus den Zellen der Spalten B und C ausgeben vergleichen.
Wenn die Ausgabe der TextBox "Tz" & S < als die Ausgabe der TextBox "TL" & S ist soll die TextBox "Tz" & S rot eingefärbt werden.
Mit manuell erzeugten TextBoxen kein Problem. Wie stelle ich das aber mit dynamisch erzeugten TextBoxen an.
Als Basis meiner Versuche habe ich folgende Skripte versucht entsprechend angepasst zu verwenden.

fürs Aktivieren der Textboxen:
Code:

und Auslösen mit Doppelklick auf Textbox:
Code:

Vielleicht erbarmt sich jemand meiner Hilflosigkeit und hilft mir sinnvoll weiter. Ich hänge eine Testdatei ran.

:)

 

Hi Edwin,

ich schau mir jetzt Deine Datei nicht an, aber wenn Du schon mit Klassen arbeitest, dann solltest Du sie auch verwenden.
Hier mal ein Bsp. für eine Textboxklasse

 

Meinst Du mit "Klassenmodul" das einer Userform?

Ist es immer noch das gleiche Thema wie hier:
https://www.ms-office-forum.net/foru...d.php?t=366346
?

Da wurde doch schon erklärt, wie du Textboxen (allgemein Steuerelemente) einer Userform mit variablen Namen ansprechen kannst. Oder hast du das schon wieder vergessen?

 

Hallo EarlFred,

ja mit Klassenmodul. Das ist in der Datei angelegt, welche ich hoch geladen habe. Ja einfache Sachen wie z.B. eine MsgBox bei Doppelklick ausgeben oder ähnliches klappt auch wunderbar. Nur das was ich will eben nicht.

Gruß Uwe

 

... und die ich mir nicht anschauen werde, weil es eine xlsm ist.
Von daher lege ich großen Wert auf ordentliche Beschreibung im Posting.

Erklär mir doch mal, wo da der Unterschied liegt. Vielleicht kann man dann gezielt helfen.

Bei dir vorhandenes Wissen aus dem vorgenannten Thema von Dir:
Code:

 

Hallo EarlFred,

ich habe mal folgenden Weg probiert.

ins Klassenmudul clsTextBox
Code:

Da bei Doppelklick meckert der Debugger Controls an. Was mach da falsch. Ich habe dann vorsorglich aus dem Userform S als Interger ausprobiert - leider das selbe Problem. Wo liege ich hier falsch?

 

Ist das der ganze relevante Code? Fehlt da nicht noch was? Wo wird denn TxT ein Objekt zugewiesen?

Die rot markierte Zeile muss so oder so ähnlich an geeigneter Stelle vorhanden sein:
Code:

Und bei solchen Fehler"beschreibungen" mecker ICH dich an: Welche Zeile? Welche Meldung? Was, wann, wo?

Wo ist S deklariert? Was meinst du? Wo sehe ich das in dem Code?

 

...oder ist TxT etwa eine bereits vorhandene Textbox mit genau diesem Namen?

 

Das S verwende ich in der Userform als Interger zum fortzählen der Textboxen

Tx1 bis Tx10 Tz1 bis Tz10 TL1 bis TL10. Es existiert keine Textbos mit dem Namen TxT.

Hängen bleibt der Debugger bei

If Me.Controls("TL" & i).Value und markiert Controls blau

Set TxT = Me.Controls("Textbox1") habe ich ausprobiert - will aber leider auch nicht.

Set TxT = Me.Controls("Textbox.1") auch keine Änderung.

Code:

Ich weis leider nicht weiter.

 

Hallo EarlFred,

Ah.. jetzt weis ich warum der Link. Das war in einem anderen Zusammenhang.

Hier mal der Code in der Userform:

Code:

Nun will ich diese dyn. erzeugten Textboxen Tz und TL zum vergleichen nehmen.

 

Lass, so kommen wir nicht weiter.

Entweder schaut sich das einer an, oder ich bau mir morgen eine Sandbox und schau mir das an

 

Hallo EarlFred,

ich habe mal was zurecht gemacht und lade die Datei hoch. Das einfache Script mit der MsgBox funktioniert und gibt den Wert der in der Zeile stehenden Textboxen Mitte und rechts aus. Die Linke Textbox brauche ich zum Vergleich nicht unbedingt.

Der größer als bzw. kleiner als Vergleich will nicht. Ich habe beide Script Varianten mal eingebaut. Alles andere hatte ich falsch verstanden.

MfG Uwe

 

Meine Frage war:

deine Antwort:

Der Satz ist zwar unvollständig, aber dennoch unrichtig: Du hast eine eigene Klasse angelegt, in der du die Textboxen behandelst. Das ist eine absolut wichtige Information, sonst hätte ich das nicht gefragt. Da muss die Antwort schon passen, wenn du uns nicht komplett in die Irre leiten willst (was dir gut gelungen ist).

Innerhalb dieser Klasse, außerhalb deiner Userform, ist die Userform nicht bekannt (es sei denn, du würdest das der Klasse mitteilen). Du kannst hieraus also weder die Userform selbst noch deren Objekte ansprechen. Die enthaltene Prozedur Private Sub UserForm_Initialize() ist somit auch wirkungslos.

Du behandelst die Textboxen doch "zeilenweise": Pro Zeile der Tabelle legst du 2 Textboxen an (die erste mit der Beschreibung ignoriere ich hier, die ist irrelevant), wobei du die Ereignissteuerung beider Textboxen pro Zeile mit einer Instanz deiner Klasse regelst. Soweit alles OK, kann man so machen.
Du hast also die beiden Textboxen einer Zeile innerhalb der gleichen Instanz deiner Klasse liegen als TxT und TxT1. Du vergleichst diese innerhalb der gleichen Instanz. Soweit alles OK.

Was m. E. falsch konzeptioniert ist: Die Anderen Textboxen in den anderen Instanzen dieser Klasse würde ich so nicht ändern, das macht den Code komplett undurchsichtig.
Ich würde von außen vorgehen, also aus der Userform heraus auf die Instanzen zugreifen. Du hast ja das Datenfeld msoTB, in der alle Deine Instanzen abgelegt sind.

Jetzt die Frage, die eingangs schon relevant gewesen wäre: WANN, also auf welche Veranlassung heraus, sollen ALLE Textboxen / Instanzen abgearbeitet werden? Beim Doppelclick auf eine beliebige Textbox? Beim Initalisieren der Userform? Wenn du das noch mitteilst, ist der Code schnell angepasst.

 

Hallo EarlFred,

danke für deine Rückmeldung. Es wäre sinnvoll das der Vergleich (größer als bzw. kleiner als) der Textboxen mit dem euzeugen der dynamischen Textboxen passiert.
Bitte hab mit mir etwas Geduld. Ich bin noch stramm am Lernen und nicht mehr der jüngste.

MfG Uwe

 

...und wagst dich in Programmiergefilde vor, bei denen die allermeisten lange zuvor das Handtuch werfen.
Nein, keine Sorge, ich habe schon manchmal Geduld (wenn mich ein Thema interessiert, weil es mal nicht der forentypische Einheitsbrei ist, den man sonst hier serviert bekommt), auch wenn ich das sehr gut zu verbergen weiß *wink.gif*

der Meinung war ich auch, daher habe ich das Codemodul der Userofm etwas umgebaut:
Code:

Da du lernen willst, habe ich ein paar Kleinigkeiten um- und eingebaut. Schau es dir einfach an und frage, wenn du Fragen hast.

Womit ich noch nicht zufrieden bin: Die Erstellung der Textboxen in 3 Prozeduren könnte noch optimiert werden. Dazu fehlt mir aber grad die Zeit. Vielleicht machst du dich nochmal selbst ans Werk: Die Prozeduren unterscheiden sich nur in wenigen Punkten - da bietet es sich an, diese zusammenzufassen.