Listbox aktualisieren

Jürgen · 2023-03-14T08:52:07+00:00

hallo zusammen, habe eine Frage.. ich habe eine Listbox die über Rowsource Eigenschaft gefüllt wird.. In den Textboxen werden die jeweiligen Werte aus der angeklickten Zeile der Listbox angezeigt. wie kann ich es machen das wenn ich den Text in den Textboxen ändere, mir die angeklickte Zeile in der Listbox aktualisiert wird..bzw auch der neue Eintrag ins Tabellenblatt übernommen wird? lg Jürgen

Hi
der einfachste Weg hierfür wäre, dass du im Clickevent der Listbox die Textboxen mit den jeweiligen Zellen aus dem Zellbereich verknüpfst.
(Eintrag der Addresse in die Eigenschaft ControlSource)
dann hast du alles automatisch verknüpft und musst nichts weiter programmieren, dh automatisch wird:
- der Zellinhalt in der Textbox angezeigt
- bei einer Änderung der Textboxwert in die Zelle zurückgeschrieben
- der geänderte Wert sofort in der Listbox angezeigt.
der Code wäre hierfür im Click-Event der Listbox:

if Listbox1.ListIndex = -1 then 
    Textbox1.ControlSource = ""
    Textbox1.Text = ""
else
    With Range(ListBox1.RowSource)
        Textbox1.ControlSoucre = "'" & .Worksheet.Name & "'!" & .Cells(Listbox1.ListIndex + 1, 1).Address
    end with
end if

die Codezeile für die Textboxen musst du dann für jede Textbox mit geändrtem Spaltenindex wiederholen.
Beachte, dass der Index für die Listbox mit 0 startet, für die Ranges immer mit 1.
Da das Cells hier über die With-Klammer an den Zellbereich aus RowSource angehängt ist, ist .Cells(1, 1) die erste Zelle dieses Bereichs.
Gruß Daniel

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

Forumthread: Listbox aktualisieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Listbox aktualisieren

Forumthread: Listbox aktualisieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread