Bei Klick auf Listbox-Eintrag doppelter Eintrag...

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
Bild

Betrifft: Bei Klick auf Listbox-Eintrag doppelter Eintrag... von: Hannes
Geschrieben am: 12.02.2005 10:55:33

Guten Morgen,
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
Bild


Betrifft: AW: Bei Klick auf Listbox-Eintrag doppelter Eintrag... von: HerbertH
Geschrieben am: 12.02.2005 13:57:41

hallo Hannes,
so ein ähnliches Problem hatte ich auch schon mal...
falls du die "RowSource" mit dem "Activate-Ereignis" lädtst,
probiere mal das "Initialize-Ereignis"...
gruß Herbert


Bild


Betrifft: AW: Bei Klick auf Listbox-Eintrag doppelter Eintrag... von: Hannes
Geschrieben am: 12.02.2005 20:56:47

hallo Herbert,
das scheint tatsächlich die Ursache gewesen zu sein...
Danke dir
Hannes


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Bei Klick auf Listbox-Eintrag doppelter Eintrag..."