|
Hallöchen,
Ich bin momentan dabei für einen Dozenten etwas in VBA zu programmieren. Soweit funktioniert alles, jedoch stoße ich gerade an meine Grenzen und Google anscheinend auch. Ich habe eine Userform mit einigen Buttons oben und einer einzeiligen Textbox direkt drunter.
Die Buttons sind nun für mein Problem unwichtig. Ich habe meiner Textbox ja einen festen Namen zugewiesen. Mit der "Enter"-Tase entsteht gleich unter dieser Textbox eine weitere einzeilige Textbox, natürlich mit einem anderen Namen und einer Variablen j, die für die jeweilige Zeile steht und zur Identifizierung der jeweiligen Textbox dient.
Das funktioniert bei mir so:
Private Sub firstLine_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode <> vbKeyEnter Then
Call addcontrols 'fügt neue Textbox hinzu und benennt diese
Artenvorkommen.Controls("TB" & Modul1.j).SetFocus ' wählt neue Textbox aus, um sofort weiterzutippen
End If
End Sub
Mein Problem ist nun folgendes: Ich kann zwar die bereits festgelegte Textbox ansprechen um ein KeyDown Event aufzurufen, aber nicht die weiteren erstellten Textboxen
Ich hab es erst so versucht:
Private Sub "TB"&Modul1.j_KeyDown(...)
Aber das scheint nicht zu funktionieren. Wie kann ich also meine neuerstellte Textbox mit einem KeyDown Event verbinden, wie ich es mit der firstLine gemacht habe? Ich danke schonmal für die Hilfe
Liebe Grüße ToMa
|