Comboboxen "wechselseitig" befüllen
08.02.2020 21:39:50
Patrick
da mir das Forum schon oft bei VBA Problemen weitergeholfen hat, hoffe ich hier für mein Anliegen eine Info zu erhalten.
Ich baue aktuell Bestellformular auf und hätte gerne in Spalte A und B eine Combobox.
Spalte A soll, genau wie Spalte B, eine Combobox erhalten die per "Googlesuche" funktioniert. Für die Bezeichnung funktioniert dies auch, Spalten A, D und E werden per Sverweis befüllt.
Die Combobox in Spalte B wird angezeigt, sobald die Zelle ausgewählt wird (siehe beigefügter Code)
Jetzt kommt mein Anliegen / Frage:
Ist es möglich, in Spalte A und B eine Combobox anzeigen zu lassen, die sich abhängig von der Auswahl befüllen?
Sprich: Ich tippe in Spalte A meine Materialnummer ein, soll in Spalte B automatisch der Materialname erscheinen.
Tippe ich in Spalte B den Materialnamen ein (z.B. Kabelbinder) soll in Spalte A die Materialnummer eingefügt werden.
Zudem soll in Spalte D die Mengeneinheit und in Spalte E eine definierte Information angezeigt werden (diese befinden sich in einem weiteren Sheet).
Folgenden Code verwende ich bisher:
Private Sub ComboBox1_Change()
ActiveCell.Offset(0, 0).Value = ComboBox1.Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("B8:B40")) Is Nothing Then
ComboBox1.Visible = False
Exit Sub
Else
ComboBox1.Visible = True
ComboBox1.Top = Target.Top
ComboBox1.Left = Target.Left
ComboBox1.Value = ActiveCell.Value
End If
End Sub