wie löse ich das mit Klassenmodul?
04.03.2004 16:09:01
Peter Feustel
ich habe eine UserForm mit 66 TextBoxes. Bei KeyDown auf irgendeine dieser 66 TextBoxes, soll immer das gleiche Makro ablaufen.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case vbKeyF1: Call Frage_01_17
Case vbKeyF2: Call Frage_18_34
Case vbKeyF3: Call Frage_35_50
Case vbKeyF4: Call Frage_51_66
End Select
End Sub
Code eingefügt mit Syntaxhighlighter 2.5
Hier für die TextBox1 gezeigt.
Wie löse ich das über ein Klassenmodul oder anders eleganter und nicht 66 mal das gleiche Makro nur mit anderer TextBox Nummer?
Ich habe noch nie mit Klassenmoduln gearbeitet - deshalb mein Hilferuf.
Gruß, Peter
Anzeige