ComboBoxen verknüpfen (VBA)

Martin Asal @, Sonntag, 13.01.2019, 15:04 (vor 185 Tagen) @ Manuela

Wie man eine Combobox mit Werten bestückt, wird ja im Tutorial beschrieben (wahrscheinlich musst du das Beispiel für deine Zwecke mit einer Schleife umschreiben). Unterstellen wir nun, dass "Combobox1" die Artikelnummer enthält und du ein Sheet namens "Vorgabe" hast, das wie folgt aussieht:

Spalte A: RENr
Spalte B: Bezeichnung

Außerdem hat das Form eine Texbox namens "Textbox1", in der die Bezeichnung aus der Tabelle "Vorgabe" angezeigt werden soll.

Private Sub ComboBox1_Change()
Dim ArtNr
Dim Zelle As Range
 
Set Zelle = Worksheets("Vorgabe").Range("A5")   'Die erste ArtikelNr
ArtNr = Me.ComboBox1.Text                       'Zu suchende ArtikelNr

Do Until IsEmpty(Zelle.Value)       'Solange Zellen gefunden werden ...
    If CStr(Zelle) = CStr(ArtNr) Then   'Wenn gefunden
        Me.TextBox1.Value = Zelle.Offset(0, 1)
        Exit Do
    Else
        Set Zelle = Zelle.Offset(1)     'sonst gehe 1 Zeile nach unten
    End If
Loop
 
End Sub

Martin


gesamter Thread:

 RSS-Feed dieser Diskussion

powered by my little forum