Listbox in uSerform
16.04.2005 12:55:08
Peter
ich hoffe Ihr könnt mir helfen, ich komm nicht drauf.
Ich will doppelte Einträge in einer Listbox(Userform) verhindern, bekomms aber selbstständig nicht gebacken.
Hab auch schon die Recherche und die Faq Methoden ausprobiert, kanns mir aber nicht umschreiben, sry.
Am Code meckert er das x bei der if abfrage an (erwartet then oder goto).
Vieleicht weiss jemand Rat. Danke.
Private Sub UserForm_Initialize()
e = Sheets("Gesamt").Range("l1") - 1
For i = 3 To e
If Me.ListBox1.ListIndex <> -1 Then
lwert = Sheets("Gesamt").Range("B" & i)
End If
x = 0
if me.ListBox1listindex x <> lwert then ' Hier Fehler'
UserForm4.ListBox1.AddItem lwert
x = x + 1
End If
Next
End Sub
MfG
Peter