AW: Listbox aktualisieren
14.03.2023 12:34:36
Jürgen
ich kann die Datei leider nicht hochladen...
den Code habe ich zum Listbox füllen...
Private Sub listboxbefuellen()
Dim rng As Range
Set rng = ErsatzteileDB.Range("A2").CurrentRegion
With ListBox1
.RowSource = rng.Address(external:=True)
.ColumnCount = rng.Columns.Count
.ColumnWidths = "50;50;110;50;50;50;50;50;50;50;50;50;50 "
.ColumnHeads = False
.ListIndex = 0
End With
End Sub
den Code um die Textboxen mit der Listbox zu füllen
Private Sub ListBox1_Click()
Artikelnummer = ListBox1.List(ListBox1.ListIndex, 0)
Regalplatz = ListBox1.List(ListBox1.ListIndex, 1)
Bezeichnung = ListBox1.List(ListBox1.ListIndex, 2)
Bestand = ListBox1.List(ListBox1.ListIndex, 3)
Mindestbestand = ListBox1.List(ListBox1.ListIndex, 4)
zugebucht = ListBox1.List(ListBox1.ListIndex, 5)
ausgebucht = ListBox1.List(ListBox1.ListIndex, 6)
Datum = ListBox1.List(ListBox1.ListIndex, 7)
Bearbeiter = ListBox1.List(ListBox1.ListIndex, 8)
End Sub