Daten der Tabelle über Listbox ändern
Lisa
Ich habe eine Userform mit einer Listbox, zwei Comboboxen und einer Textbox!
die Daten der Listbox bekomme ich aus der Tabelle1!
Private Sub userform_initialize()
With ListBox1
.RowSource = "Tabelle1!A2:C100"
.ColumnHeads = True
End With
End Sub
also genau auch in der Tabelle und in der alten Zeile!
zum ändern hole ich mir die die Daten aus der Listbox und übergebe sie an eine CBB1, CBB2 und TXTB1 der Userform1
Private Sub ListBox1_Click()
'klick = ListBox1.ListIndex
With ListBox1
UserForm1.ComboBox1 = .List(.ListIndex, 0)
UserForm1.ComboBox2 = .List(.ListIndex, 1)
UserForm1.TextBox1 = .List(.ListIndex, 2)
End With
End Sub
Da neue Daten ebenfalls über die genannten Objekte erfasst werden weiß ich nun nicht wie ich die geä. Daten abspeichern kann.
Private Sub CommandButton3_Click()
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Value = ComboBox1
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "B").Value = ComboBox2
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 0, "C").Value = CDbl(TextBox1.Value)
End Sub
lg Lisa