Hi
warum hast du in diesem Code
Private Sub ListBox1_Click()
Dim Spalte As Integer, zeile As Long
Spalte = 3
zeile = (ListBox1.ListIndex + 2)
With Worksheets(1)
Me.TextBox3 = .Cells(zeile, Spalte)
Me.TextBox4 = .Cells(zeile, Spalte + 1)
Me.TextBox5 = .Cells(zeile, Spalte + 2)
Me.TextBox6 = .Cells(zeile, Spalte + 3)
Me.TextBox7 = .Cells(zeile, Spalte + 4)
Me.TextBox8 = .Cells(zeile, Spalte + 5)
Me.TextBox9 = .Cells(zeile, Spalte + 6)
Me.TextBox10 = .Cells(zeile, Spalte + 7)
Me.TextBox11 = .Cells(zeile, Spalte + 8)
Me.TextBox14 = .Cells(zeile, Spalte + 11)
Me.TextBox17 = .Cells(zeile, Spalte + 14)
Me.TextBox18 = .Cells(zeile, Spalte + 15)
Me.TextBox19 = .Cells(zeile, Spalte + 16)
Me.TextBox30 = .Cells(zeile, Spalte + 27)
Me.TextBox32 = .Cells(zeile, Spalte + 29)
Me.TextBox33 = .Cells(zeile, Spalte + 30)
Me.TextBox34 = .Cells(zeile, Spalte + 31)
Me.TextBox35 = .Cells(zeile, Spalte + 32)
Me.TextBox36 = .Cells(zeile, Spalte + 33)
Me.TextBox37 = .Cells(zeile, Spalte + 34)
Me.TextBox38 = .Cells(zeile, Spalte + 35)
Me.TextBox39 = .Cells(zeile, Spalte + 36)
Me.TextBox40 = .Cells(zeile, Spalte + 37)
Me.TextBox41 = .Cells(zeile, Spalte + 38)
Me.TextBox42 = .Cells(zeile, Spalte + 39)
Me.TextBox43 = .Cells(zeile, Spalte + 40)
Me.TextBox44 = .Cells(zeile, Spalte + 41)
End With
' Call FillListBox
End Sub
noch mal das Call FillListBox drin?
damit wird die Listbox neu gefüllt und dann ist der Listindex automatisch wieder -1
obwohl noch ein Eintrag angeklickt ist
ich habe es einmal auskommentiert und dann speichert es den Datensatz in der richtigen Zeile
MfG Tom
|