Guten Abend Community!
Ich bin momentan dabei ein Lagerprogramm in Excel zu schreiben und bin auf ein Problem gestoßen:
Aus einer Listbox welche die Werte der Tabelle aufruft,lassen sich Einträge anzeigen.
Wählt man einen und klickt auf "bearbeiten" öffnet sich eine neue UserForm mit den gewählten Werten.
Nun zu meinem Problem:
Wie schaffe ich es,dass wenn ich Werte in den Feldern (der 2. Userform(siehe Bild)) änder,Excel automatisch die zuvor gewählte Zeile findet und die neuen,durch die alten Daten ersetzt?
Werte der Listbox
Private Sub lstbearb_Click()
klick = lstbearb.ListIndex
End Sub
With lstbearb
.ColumnCount = 12
.ColumnWidths = "1cm;2cm;2cm"
.ColumnHeads = True
lstbearb.RowSource = "A2:L" & Sheets(1).Cells(Cells.Rows.Count, 1).End(xlUp).Row
End With
Übernahme der Werte in Userform 2
Private Sub UserForm_Initialize()
With Me
.cboRang.List = Range("Rang").Value
.cboJacke.List = Range("Jacke").Value
.cboPolo.List = Range("PP").Value
.cboPulli.List = Range("PP").Value
.cboHose.List = Range("Hose").Value
.cboPschnur.List = Range("Pschnur").Value
.cboTasche.List = Range("Tasche").Value
.cboKTasche.List = Range("Tasche").Value
End With
With lstbearb
UserForm2.cboRang = .List(.ListIndex, 0)
UserForm2.txtVName = .List(.ListIndex, 1)
UserForm2.txtName = .List(.ListIndex, 2)
UserForm2.cboPolo = .List(.ListIndex, 3)
UserForm2.cboPulli = .List(.ListIndex, 4)
UserForm2.cboJacke = .List(.ListIndex, 5)
UserForm2.cboHose = .List(.ListIndex, 6)
UserForm2.txtCappy = .List(.ListIndex, 7)
UserForm2.cboPschnur = .List(.ListIndex, 9)
UserForm2.cboKTasche = .List(.ListIndex, 10)
UserForm2.cboTasche = .List(.ListIndex, 11)
Ich hoffe mein Problem ausführlich erläutert zu haben und Danke schonmal im Vorraus für eure Hilfe.
Lg Dennis
3 mal bearbeitet, zuletzt von
Dennis B am 28.05.2014 11:15
No Support per PM!
