Änderung Wert der TextBox aufgrund der Auswahl von Kombinationsfeld-VBA-Excel

Habe ich ein Projekt, in dem ich zu ändern, um den Wert einer textbox einen Wert ein, der gesucht wird in einem workseet gegen eine vlaue, die ausgewählt wurden aus einer combobox. zum Beispiel, wenn ich wählen Sie "Ein" aus der combobox, in der es suchen soll das Arbeitsblatt "test" suchen Sie den Eingang für Ein und ändern Sie den Wert des Textfelds um 1, da dies der eingegebene Wert für A. habe ich mich auf einige der anderen Fragen wurden hier gestellt, konnte aber nicht scheinen, um es für mich zu arbeiten. Unten ist der code, ich habe versucht, zu verwenden.

Private Sub IDComboBox_Change()
Dim domainRange As Range
Dim listRange As Range
Dim selectedString As Variant
Dim lastRow As Long
If IDComboBox.ListIndex <> -1 Then
    selectedString = IDComboBox.Value
    lastRow = Worksheets("test").Range("A" & Rows.Count).End(xlUp).Row
    Set listRange = Worksheets("test").Range("A2:A" & lastRow)
    For Each domainRange In listRange
        If domainRange.Value = selectedString Then
            DomainOwnerTestBox.Value = "test"
        End If
    Next domainRange
End If
End Sub

Jede Hilfe wäre toll. Wenn Sie brauchen mehr Informationen, dann lasst es mich bitte wissen und auch bitte paient mit mir, wie im neu in VBA.

Dank

  • Es ist Arbeit? Zeigt sich der Fehler?
  • Es funktioniert nicht. Wenn ich wählen Sie etwas in die checkbox, dann ist es nicht alles, was in der textbox@Nicolas
  • Ich möchte bestätigen Sie hier eine Sache, welche Art von Kontrolle, die Sie verwendet in Ihrem Blatt? Formular-Steuerelement oder ActiveX-Steuerelement?
  • Ich bin über Active X Control
InformationsquelleAutor GBSingh | 2015-07-16
  1. 0

    Versuchen, diesen code. Es verwendet Excel built-in-MATCH-Funktion für die Suche nach Wert in Spalte A des Arbeitsblattes 'test'.

    Private Sub IDComboBox_Change()
    Dim wks As Excel.Worksheet
    Dim selectedString As Variant
    Dim row As Long
    Dim value As Variant

    Set wks = Worksheets("test")

    If IDComboBox.ListIndex <> -1 Then
        selectedString = IDComboBox.value

        On Error Resume Next
        row = Application.WorksheetFunction.Match(selectedString, wks.Columns(1), 0)
        On Error GoTo 0

        If row Then

            value = wks.Cells(row, 2)   '<--- assuming that input values are in column 2.
            DomainOwnerTestBox.value = value

        Else

            'Value not found in the worksheet 'test'

        End If

    End If

End Sub
    • das ist für die, die Antworten @milek. Aber ich habe versucht, und es funktioniert immer noch nicht. könnte es etwas mit der Tatsache zu tun, dass ich mit einem anderen _change() für eine andere combobox zu füllen die IDComboBox. Ich denke nicht, dass es sollte etwas zu tun haben, aber ich weiß nicht. Es funktioniert immer noch nicht und ich verstehe nicht, warum. Dein code scheint zu viel Sinn machen, aber ich weiß nicht. Irgendwelche Ratschläge?
    • Dont sorgen über das, was ich sagte. Ihr code funktioniert, ein Genuss. Alle die ich tun musste, war, ändern Sie den Datentyp der selectedstring, um eine ganze Zahl, und es funktionierte Dank einer Tonne :):)@mielk
    InformationsquelleAutor mielk
Schreibe einen Kommentar