Klassen-gestaltung
17.06.2017 17:46:11
Lorenz
Wie gehört untenstehenden Code in eine Klasse geschrieben?
TextBoxen an der Zahl sinds 40.
So habe ich´s in der Tabelle hinterlegt:
Private Sub TextBox1_Change()
TextBox_Change TextBox1
If TextBox1 = "" Then Range(TextBox1.LinkedCell).ClearContents
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
moveCursor TextBox1, KeyCode, Shift
End Sub
Private Sub TextBox2_Change()
TextBox_Change TextBox2
If TextBox2 = "" Then Range(TextBox2.LinkedCell).ClearContents
End Sub
Private Sub TextBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
moveCursor TextBox2, KeyCode, Shift
End Sub
Lorenz