Neue Textbox nach Enter Taste
25.07.2020 18:09:29
LordPam
ich hab ein Userform erstellt um eine Tabelle nach mehreren Textfeldern zu Filtern
Das UserForm hat ein TextFeld und nach der Taste Enter soll ein weiteres Textfeld unterhalb entstehen bis man einen Button Suchen anklickt. es funktioniert soweit auch. Aber da ich dieses KeyDown nur im ersten Textfeld habe muss ich immer wieder dahin zurück. ich habe schon das KeyDown des UserForm ausprobiert aber ohne erfolg.
Das hab ich bis jetzt
L_Nr (Überschrift)
T_Nr1 (Erstes Textfeld)
CB_Filtern (Button zum Filtern)
Option Explicit
Private Sub T_Nr1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim Blatt As Long, Textfeld As MSForms.TextBox
'Blatt = Me.L_Nr
If KeyCode = 13 Then
Set Textfeld = Me.Controls.Add("forms.textbox.1")
With Textfeld
.Name = "T_Nr" & CStr(Me.Controls.Count - 1)
.Top = 30 + (25 * (Me.Controls.Count - 3))
.Left = 12
.Width = 100
.Height = 20
.Font.Size = 12
.Font.Name = "Arial"
.TextAlign = fmTextAlignCenter
.SetFocus
End With
Me.CB_Filtern.Top = Me.CB_Filtern.Top + 25
Me.Height = Me.Height + 25
Debug.Print Textfeld.Name & ", Top = "; Textfeld.Top & ""
End If