Combobox ?
ing.grohn
mit folgenden Zeilen suche ich aus einer Userform die Datensätze nach Vorgabe eines Suchwortes (vielen Dank nochmal an Rudi) nach Vorgabe eines Suchwortes:
Sub DatenSatzSuchen(Taste As String)
Dim Laenge As Integer
Dim Posi As Integer
Dim Zeile As String
Dim Name As String
Dim frm2 As Object
Set frm2 = Uf_Adressen
TestDateiName
Workbooks(AdrDat).Activate
Worksheets(TabAdr).Select
UserFormSpeichern 'überträgt die Textboxfelder in die Tabellenzellen der akt. Zeile
With frm2
If Name .TextBox15.Value Then
On Error GoTo fehler
If Taste = "pgup" Then
Range("A:F").Find(What:=.TextBox15.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False).Activate
Name = .TextBox15.Value
ElseIf Taste = "pgdn" Or Taste = "enter" Then
Range("A:F").Find(What:=.TextBox15.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Name = .TextBox15.Value
End If
Else
Range("A:F").FindNext(After:=ActiveCell).Activate
End If
Zeile = ActiveCell.Address
Posi = InStr(2, Zeile, "$")
Laenge = Len(Zeile)
Zeile = Right(Zeile, Laenge - Posi)
Daten_laden (Zeile) ' überträgt die Tabellenzellen der Zeile in die Textbox-Felder
Exit Sub
fehler:
MsgBox "Ein Datensatz " & .TextBox15.Value & " konnte nicht gefunden werden"
End With
End Sub
Mit PGUP, PGDWN und Enter kann ich durch die Datensatze bei Übereinstimmung blättern. Was muß ich machen, damit alle übereinstimmenden Datensätze zeilenweise angezeigt werden und ich den richtigen mit Enter oder Doppelclick auswählen und die Daten dann in die Userform übertragen werden?
(ich denke das muß irgendwie mit einer Combobox gehen, aber wie? Ich hab noch nie mit einer Combobox was gemacht)
Für eine Antwort bedanke ich mich!
Mit freundlichen Grüßen
Albrecht