Cursor in Textfeld einer Userform/LIstbox

Lordy · 2024-07-06T10:10:05+00:00

Hy Leute leider finde ich nichts im Netz, oder vlt sind Suchbegriffe falsch Hab eine Userform mit einer Listbox und Textbox...das befüllen ist erstmal kein Problem, auch die Suchfunktion funktioniert Aber ich will bei Aufruf der Userform, das erstens der Cursor im Textfeld direkt ist, damit man direkt mit eingabe des Suchfeldes(Textbox) beginnen kann ohne vorher mit Mouse reinzuklicken. Zweitens würde ich gerne den ersten Eintrag, nach Suche mit "Enter" übernehmen, markiert wird der erste Eintrag schon... Kann doch eigentlich nicht so schwer sein*lol*

Hallo Lordy,

Du hattest ListBox1_KeyPress statt TextBox1_KeyPress drin. War aber egal. KeyPress kann Enter nicht abfangen.
So sollte es gehen mit TextBox1_KeyDown:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

  Dim rngS As Range

  'MsgBox KeyCode

  If KeyCode = 13 Then

    ' Hier Beispielcode, um die Zeile mit dem ausgewählten Wert in Spalte D zu finden

    ' Ändern Sie den Bereich und die Spaltennummer entsprechend Ihrer Excel-Tabelle

        Set rngS = ActiveSheet.Columns(4).Find(ListBox1.Value, LookIn:=xlValues)

        If Not rngS Is Nothing Then

          Application.Goto rngS, True

        Else

            MsgBox "Eintrag nicht gefunden!"

        End If

    'Userform schließen

    Unload Me

  End If

End Sub

https://www.herber.de/bbs/user/170740.xlsm

Gruß, Uwe

Hallo Karin

Das war ja einfach*kopfgegenwandklatsch*

ist es normal bei Keypress 2x Enter drücken muß? Denke einmal von Textbox zu Listbox und dort bestätigen zur Übernahme der Daten

mir ist noch ein Bug aufgefallen...

Ich suche ja im Textfeld eine Google-Suche (kann also buchstaben mitten vom Wort eingeben und es wird angezeigt) und der erste/obertste Eintrag markiert, wenn ich nun falsche Zeichen eingebe kommt Fehlermeldung...

Denke über ne Abfrage ob falsch oder wahr (zb. ob in Listbox was steht...könnte ich das umgehen oder?

Hier der Code von dem KeyPress

Private Sub ListBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Dim tbl As ListObject
Set tbl = Tabelle13.ListObjects(1)
Dim header As Variant
Dim Spalte As Long
Spalte = 1
Dim Zeile As Long

With Worksheets(1)

'Tabelle einlesen
Set tbl = Tabelle13.ListObjects(1)

'Zeile hinzufügen
tbl.ListRows.Add

'Zeile definieren
Zeile = tbl.DataBodyRange.Rows.Count

'Zeilenhöhe anpassen
.Rows(Zeile + tbl.HeaderRowRange.Row).RowHeight = .Rows(tbl.HeaderRowRange.Row + 1).RowHeight

End With

'Angeklickte Zeile in Listbox in Tabelle Bestellung_Self übertragen
With Tabelle13

tbl.DataBodyRange(Zeile, 1).Value = ListBox1.List(ListBox1.ListIndex, 0)
tbl.DataBodyRange(Zeile, 2).Value = ListBox1.List(ListBox1.ListIndex, 1)
tbl.DataBodyRange(Zeile, 3).Value = ListBox1.List(ListBox1.ListIndex, 2)

End With

'Userform schließen
Unload Me

UfMessage.Show

End Sub

Coder der Suche:
Private Sub TextBox1_Change()

Dim Zeile As Long

'Listbox leeren
Me.ListBox1.Clear

'Schleife über alle Zeilen der Tabelle
For Zeile = 12 To Tabelle2.Cells(Rows.Count, 4).End(xlUp).Row

If InStr(1, LCase(Tabelle2.Cells(Zeile, 5).Value), LCase(Me.TextBox1.Value)) > 0 Or _
InStr(1, LCase(Tabelle2.Cells(Zeile, 6).Value), LCase(Me.TextBox1.Value)) > 0 Then

'Listbox befüllen
Me.ListBox1.AddItem Tabelle2.Cells(Zeile, 4).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Tabelle2.Cells(Zeile, 5).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 2) = Tabelle2.Cells(Zeile, 6).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 3) = Tabelle2.Cells(Zeile, 9).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 4) = Tabelle2.Cells(Zeile, 10).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 5) = Tabelle2.Cells(Zeile, 11).Value

End If

Next Zeile

'Erstes Element angewählt in der Listbox
ListBox1.Selected(0) = True

End Sub

Übrigens Danke für die schnelle HIlfe

grüße

Cursor in Textfeld einer Userform/LIstbox

Forumthread: Cursor in Textfeld einer Userform/LIstbox

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Cursor in Textfeld einer Userform/LIstbox

Forumthread: Cursor in Textfeld einer Userform/LIstbox

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread