TextBox durch Auswahl in ComboBox füllen
15.12.2022 14:13:23
Alex
ich habe eine Frage bzgl. der automatischen Befüllung einer TextBox. Bisher sieht es wie folgt aus. Wenn ich in der ComboBox11 eine Auswahl treffe, dann wird auf der Auswahl basierend in die darunterliegende ComboBox12 automatisch ein bestimmter Inhalt eingefügt. Da dieser Wert in der ComboBox 12 einzigartig ist und nichts ausgewählt werden muss, wollte ich die ComboBox12 gerne durch eine TextBox ersetzen. Mit der TextBox funktioniert das Ganze aber leider nicht mehr. Kann mir jemand behilflich sein? Folgenden Code verwende ich derzeit:
'Standort-/Lagerortschlüssel wird anhand des angegebenen Standorts/Lagerorts automatisch in ComboBox12 eingetragen (durch Klick auf die ComboBox12(Standort-/Lagerortschlüssel wird dieser angezeigt)
Private Sub ComboBox11_Click()
Dim Artikel As String
Dim i As Integer
Dim wkbQuelle As Workbook
Dim Pfad As String
Pfad = "F:\INVENTUR\"
Set wkbQuelle = Workbooks.Open _
(Pfad & "FAB_Standort_Lagerort.csv", Local:=True)
Die_Inventur.ComboBox12.Clear
With Sheets("FAB_Standort_Lagerort")
Artikel = Die_Inventur.ComboBox11.Value
i = 2
Do While .Cells(i, 2) ""
If .Cells(i, 2) = Artikel Then
Die_Inventur.ComboBox12.AddItem .Cells(i, 1)
End If
i = i + 1
Loop
End With
wkbQuelle.Close SaveChanges:=False
Anzeige