VBA Focus in Textbox lassen

[M.Wichmann]

Hallo,

ich habe in einer UF eine Textbox mit folgendem Code:

Code:

Private Sub TBAnz_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
   If LBArt.Value <> "" Then
       For aBas = 1 To UBound(arrBas(), 1)
           If CStr(arrBas(aBas, 1)) = LBDat.Value Then
               For bBas = 1 To UBound(arrBas(), 2)
                   If CStr(arrBas(1, bBas)) = CStr(LBArt.Value) Then
                       arrBas(aBas, bBas) = TBAnz.Value
                       Exit For
                   End If
               Next bBas
           End If
       Next aBas
   End If
   
   ws.Range(ws.Cells(3, 3), ws.Cells(lz, ls)) = arrBas
   
   With TBAnz
   .SelStart = 0
   .SelLength = Len(.Text)
   End With
End If

End Sub

Was muß geändert werden, um nach drücken der Entertaste, in dieser Textbox zu bleiben und den Inhalt zu markieren? Das der Inhalt markiert ist wenn ich mit den Pfeiltasten wieder reinspringe habe ich ja hinbekommen. Auch mit den Einstellungen der textbox komme ich leider nicht weiter.

[snb]

Fragen die sich beschäftigen mit Setfocus deuten oft darauf das man ein Userform nich gut strukturiert/entworfen hat.

Wozu brauchst du 'setfocus' und die Markierung des Inhaltes ?

[Steffl]

Hallo,

vielleicht mit einer Modulvariablen in Verbindung mit dem Exit-Ereignis der TextBox.

Code:

Private bolReturn As Boolean

Private Sub TBAnz_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If bolReturn Then
    Cancel = True
    With TBAnz
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
    bolReturn = False
End If
End Sub

Private Sub TBAnz_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    bolReturn = True
    If LBArt.Value <> "" Then
        For aBas = 1 To UBound(arrBas(), 1)
            If CStr(arrBas(aBas, 1)) = LBDat.Value Then
                For bBas = 1 To UBound(arrBas(), 2)
                    If CStr(arrBas(1, bBas)) = CStr(LBArt.Value) Then
                        arrBas(aBas, bBas) = TBAnz.Value
                        Exit For
                    End If
                Next bBas
            End If
        Next aBas
    End If

    ws.Range(ws.Cells(3, 3), ws.Cells(lz, ls)) = arrBas

End If

End Sub

[M.Wichmann]

Hallo, danke für die antworten.

@snb
die UF war eigentlich für einen etwas anderen Zweck gedacht.(Eingabe von Abrufmengen-    Ablauf  Artikel>Datum>Menge>Datum>Menge usw)

Jetzt benutze ich Sie um wie Lieferungen zu bearbeiten. Dafür gebe ich manchmal werte mehrfach ein um den LKW auszulasten, bzw die Reichweite der Lieferung anzupassen. Und dafür wäre es gut    Menge eingeben-Kontrolle Reichweite und Auslastung-Menge anpassen und wieder kontrolle.

Und dafür wäre gut wenn der Focus in der Listbox bleibt und sogar schon der Inhalt wieder markiert wäre.

@Steffl
kommt Fehler und Excel ist sogar komplett abgeschmiert

[snb]

manchmal werte mehrfach

zwischen welche Werten (min_max) variieren diese Werte ?

[Steffl]

Hallo,

Und dafür wäre gut wenn der Focus in der Listbox bleibt und sogar schon der Inhalt wieder markiert wäre.

@Steffl
kommt Fehler und Excel ist sogar komplett abgeschmiert

was jetzt? TextBox oder Listbox? Und wie lautet die Fehlermeldung?

[M.Wichmann]

Ich hab die Datei soweit es erst einmal ging neutralisiert und hochgeladen.

Es geht um die UF1. 

Wenn du dir die ansiehst, ist es möglich die kleine Listbox(Artikel) durch Optionsfelder zu ersetzen ohne viel umzuschreiben? Sonst lass ich es so.


@Steffl
ups verschrieben Textbox natürlich
habe deinen Code eingefügt und die UF stürzt ab wenn ich was eingeben will.

[Steffl]

Hallo,

ich bekomme keine Fehlermeldung nachdem ich meine Code von Heute Vormittag in die Userform1 eingefügt habe.

[M.Wichmann]

hmm,  ich habe den bereich den ich gepostet habe durch deinen ersetzt. Das war doch richtig oder nicht?

[Steffl]

Hallo,

und das Exit-Ereignis der TextBox und die Modulvariable hast Du auch eingefügt?