controls("Textbox" & irow)

Hallo Allerseits,
ich bin gestern hier auf die im Betreff genannte Zeile gestoßen, die mir sicherlich einige Tage Zeit gespart hat. Dafür schon mal danke.
Dadurch kann ich innerhalb einer Schleife zu diversen Textboxen Vorgaben einfügen. Z.B. controls("Textbox" & irow).controltiptext = Cells(irow+1,3).value
Jetzt stellt sich mir die Frage, ob das mit einem Textbox Exit Ereignis verbunden werden kann.
Kann ich also aus
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
so etwas wie
Private Sub controls("Textbox" & irow)_Exit(ByVal Cancel As MSForms.ReturnBoolean)
machen um bei mehreren Textboxen beim Verlassen dieser Bedingungen zu prüfen?
Offensichtlich geht mein Vorschlag oben nicht, da er direkt rot gekennzeichnet wird.
Mein Ziel ist z.B. in einer Spalte 5 den string JJJJ zu hinterlassen. Jedes mal wenn dieser auftaucht, soll geprüft werden, ob die Textbox dieser Vorgabe gerecht wird:
in Pseudocode:
if cells(irow,5).value = "JJJJ" and not len(controls("Textbox" & irow).value) = 4 or not isnumeric(controls("Textbox" & irow).value) then
msgbox("Bitte Format...")
setfocus....
end if
Das soll aber beim Verlassen aller Textboxen geprüft werden....
Für Ideen/Lösungen bin ich dankbar.
Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
ein Eventmakro, das für mehrere Textboxen gilt so dass man das nicht für alle programmieren muss, kann man schon erstellen, das nennt sich "Klassenprogrammierung" (unter diesem Stichwort findest du sicherlich auch einiges)
für deinen Fall könntest du aber auch folgenden Workaround verwenden (falls du das mit der Klassenporgrammierung so wie ich nicht verstehst, oder falls das Exit-Event von dieser ausgenommen ist).
1. Verknüpfe jede Textbox, für die das gilt mit einer Ausgabezelle in einem eigenen Tabellenblatt (Tabellenblattname + Zelladresse in die Eigenschaft ControlSource eintragen in der Form: 'Tabelle1'!A1.) Wähle dabei eine Zelle in der Zeile, die der Textboxnummer entspricht
2. Erstelle dann für dieses Tabellenblatt das Change-Event. Sobald du eine Eingabe in eine Textbox, die mit einer Zelle verknüpft ist, abgeschlossen hast, wird der Textboxwert in die Zelle geschrieben und das Change-Event ausgelöst.
führe dann den Code im Change-Event aus. Wenn du die Zeile entsprechend der Textboxnummer gewählt hast, kannst du dann die Textbox über
Userform1.Controls("Textbox" & Target.Row) referenzieren.
Da der Code jetzt nicht mehr im Userformmodul steht, muss man den Userformnamen voranstellen.
wie gesagt, der professionelle Weg ist Klassenprogrammierung, das hier ist der kreative Workaround, falls das mit der Klassenprogrammierung aus irgendeinem Grund nicht klappt.
Falls die Textboxen schon in Editor erstzellt wurden und nicht erst zur Laufzeit generiert werden, kannst du die Arbeit auch so reduzieren:
schreibe den benötigten Code in ein normales Makro im Modul der userform und übergib die Textbox als Variable:


Sub Machwas(tbx as control)
dim irow as long
irow = val(mid(tbx.name, len("Textbox") + 1)
if cells(irow,5).value = "JJJJ" and not len(tbx.value) = 4 or not isnumeric(tbx).value) then
End sub

dann musst du zwar immer noch für jede Textbox das Exit-Event schreiben, aber dort steht dann nur noch als einzige Programmzeile:


Call Machwas(Textbox1)

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

controls("Textbox" & irow)

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread