Eintrag aus Listbox zurückschreiben

Hallo zusammen,
ich habe ein Problem, wenn ich einen Eintrag aus der Listbox ändere und zurück in die Datenbank schreiben will. Und zwar sind in Spalte "A" der Datenbank Namen gepflegt, welche mehrfach vorkommen, da ich zu jeder Zeile der Datenbank in Spalte "E" einen Prozess pflege Bsp.: Max Mustermann "A" hat "Drucken" gelernt "E"sollte sich dabei sein Kenntnisstand von Status "angelernt" auf "selbstständig" ändern, klicke ich den jeweiligen Eintrag in der Listbox an und gebe über eine Combobox den neuen Status mit.
jetzt habe ich das Problem, das beim abändern eines Eintrags, sich alle Einträge aus der Listbox in der Datenbank ändern, woran liegt das!?
Hier der Code:
Dim i As Integer
Dim j As Integer
Dim l As Integer
Dim ABD As String
l = Sheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Row
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
For k = 1 To l
ABD = ListBox1.List(i, 1)
If ABD = Sheets("Datenbank").Cells(k, 5) Then
Sheets("Datenbank").Cells(k, 8) = ComboBox2.Text
Sheets("Datenbank").Cells(k, 9) = Label7.Caption
Sheets("Datenbank").Cells(k, 10) = DateDiff("d", Sheets("Datenbank").Cells(k, 6), Sheets("Datenbank").Cells(k, 9))
End If
Next
End If

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich habe die Spalten nochmal angepasst aber er setzt mir alle Einträge auf den neuen Status.
Rein von der Vorgehensweise her müsste er ja zuerst in Spalte "A" den entsprechenden "Name" finden, anschließend in Spalte "E" den ausgewählten "Prozess" und dann für die Auswahl in der Listbox den Status in Spalte "H" für den entsprechenden Eintrag der Auswahl ändert.
Die Listbox lese ich wie folgt ein, vielleicht liegt dort der Fehler!?
With Worksheets("Datenbank").Range("A:A")
Me.ListBox1.Clear
Set rngCell = .Find(Me.ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngCell Is Nothing Then
strFirstAddress = rngCell.Address
Do
With Me.ListBox1
.ColumnCount = 7
.AddItem
.List(.ListCount - 1, 0) = rngCell.Offset
.List(.ListCount - 1, 1) = rngCell.Offset(0, 3).Value
.List(.ListCount - 1, 2) = rngCell.Offset(0, 4).Value
.List(.ListCount - 1, 3) = rngCell.Offset(0, 5).Value
.List(.ListCount - 1, 4) = rngCell.Offset(0, 6).Value
.List(.ListCount - 1, 5) = rngCell.Offset(0, 7).Value
.List(.ListCount - 1, 6) = rngCell.Offset(0, 9).Value
.ColumnWidths = "3,0cm;4,0cm;8,0cm;5,0cm;5,0cm;5,0cm;2,0cm"
End With
Set rngCell = .FindNext(rngCell)
Loop While Not rngCell Is Nothing And rngCell.Address strFirstAddress
Else
End If
End With

Dim i As Long, k As Long For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then k = ListBox1.List(i, 7) '--Zeilennummer aus Spalte 8 der Listbox Sheets("Datenbank").Cells(k, 8) = ComboBox2.Text Sheets("Datenbank").Cells(k, 9) = Label7.Caption Sheets("Datenbank").Cells(k, 10) = DateDiff("d", Sheets("Datenbank").Cells(k, 6), Sheets(" _ Datenbank").Cells(k, 9)) End If Next

Beliebteste Forumthreads (12 Monate)

Eintrag aus Listbox zurückschreiben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Eintrag aus Listbox zurückschreiben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread