ListBox Werte ändern
08.09.2020 22:53:02
xtian
meine VBA-Kenntnisse sind nicht die besten und ich hoffe auf eure Hilfe. Ob das so überhaupt umsetzbar
ist, kann ich leider nicht sagen.
Meine UserForm besteht aus einer ListBox, einer TextBox und einen CommandButton. Die ListBox zieht
sich die Einträge aus der Spalte A automatisch. Klicke ich nun einen Wert in der ListBox an, wird dieser
in die TextBox übergeben. Das funktioniert soweit auch.
Diesen Wert möchte ich jetzt gerne in der TextBox ändern und den geänderten Wert in der Excel-Tabelle
an der entsprechenden Position wieder einsetzten.
Private Sub CommandButton1_Click()
End Sub
Private Sub userform_initialize()
Dim Zeile As Integer
Dim LetzteZeile As Long
LetzteZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For Zeile = 1 To LetzteZeile
ListBox1.AddItem ThisWorkbook.Worksheets("Tabelle1").Cells(Zeile, 1).Value
Next Zeile
End Sub
Private Sub ListBox1_Click()
With ListBox1
UserForm1.TextBox1 = .List(.ListIndex, 0)
End With
End Sub
Christian