Office: mehrere Textboxen variabel ansprechen

Hi!

ich habe mehrere TExtboxen in ner UF.

Um nicht den selben Code für die Verschiedenen TExtoxen schreiben zu müssen, möchte ich eine extra sub für alle schreiben.

Bei jeder TExtbox soll, sobald ein FEhler in einer dieser TB Auftritt, die Sub aufgerufen werden in der diejenige TExtbox geleert und focusiert wird.

How to do?

gruß
phobos

:)

 

Hi phobos,

um für alle Textboxen eine Routine verwenden zu können empfiehlt es sich entweder
1. eine eigene Klasse dafür zu erstellen (sh Bsp. Anhang)
2. oder eine globale Variable zur Aufnahme der aktuellen Box deklarieren und in der Prozedur auswerten
3. oder als Parameter an die aufzurufende Prozedur übergeben.

Bei Option 2. und 3. muß aber trotzdem der Aufruf in jeder Textbox erfolgen. Also kein wirklicher Gewinn...

 

Hallo zusammen,

nach stundenlangem googlen, gebe ich offiziell auf und bitte um Hilfe *wink.gif*

Ganz einfaches Problem:
Ich habe mehrere Textboxen und möchte bei AfterUpdate nicht jedesmal eine einzelne Prozedure in meinem Code stehen haben. Über eine Klassendefinintion müsste man das doch abkürzen können. Auch wenn ich das Gefühl habe, kurz vorm Ziel zu sein .... klappt es einfach nicht.

Um überhaupt die Klassendefinition zu raffen versuche ich das Klick-Event der Buttons auf eine Prozedure zu leiten. Das After-Update von Textboxen *Smilie

'Klassenmodul clscmdbtn
Option Explicit
Public WithEvents cmd As MSForms.CommandButton

Private Sub cmd_Click()
MsgBox "Ich bin " & cmd.Caption
End Sub


'Userform mit commandbutton1 und commandbutton2
Option Explicit
Dim colButtons As Collection
Dim CmdBtn As clsCmdBtn
Dim CommandButton1 As clsCmdBtn


Private Sub UserForm_Initialize()
Dim ctrl As MSForms.Control


Set colButtons = New Collection

Set CommandButton1 = New clsCmdBtn
Set CommandButton1.cmd = ctrl


End Sub

Wäre super, wenn ihr mir helfen könntet. Vielen Dank schon einmal.

Grüße
Andre

 

Anbei ein Beispiel. Du siehst dann auch, dass nicht alle Events und Properties "durchgereicht" werden, z.B. für Textboxen nicht das Event AfterUpdate. Wo sieht man das? Im Code der Klasse

Hier Links
https://stackoverflow.com/questions/...hanges/5942200
https://stackoverflow.com/questions/...n-class-module
http://spreadsheetpage.com/index.php...ne_subroutine/