Bei Klick auf Listbox-Eintrag doppelter Eintrag...
12.02.2005 10:55:33
Hannes
Ich möchte mit diesem Code einen
Eintrag in eine Zelle übertragen:
Private Sub ListBox1_Click()
Dim letzte As Integer
letzte = ActiveSheet.[g40].End(xlUp).Row
If letzte = 40 Then Exit Sub
ActiveSheet.Cells(letzte + 1, 7).Value = ListBox1.Value
End Sub
dabei wird mir beim ersten Klick jeweils der Wert doppelt eingetragen.
(heißt,eine Zelle darunter der gleiche Eintrag nochmals)
bei allen weiteren Klicks funktioniert es dann...
ich komme einfach nicht drauf, an was das liegen könnte...
es ist eine Listbox auf einer Userform...
hätte hier jemand eine Idee...
Danke
Gruß Hannes
Anzeige