AW: Probleme mit dem Aufrufen einer DblClick-Funkt
11.09.2005 09:56:06
Andrea
Hallo
das ist mein kompletter Code:
Option Explicit
Private Sub cmdOK_Click()
Dim i As Integer
While lstDruck.ListCount > 0
lstDruck.ListIndex = 0
For i = 0 To 2000
lbMeldung.Caption = "Der Brief für " & _
lstDruck.Text & " wird soeben gedruckt"
DoEvents
Call lstDruck_DblClick 'hier bekomme ich eine Fehlermeldung
Wend
lbMeldung.Caption = ""
End Sub
Private Sub lstDruck_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
lstNamen.AddItem (lstDruck.Text)
lstDruck.RemoveItem (lstDruck.ListIndex)
End Sub
Private Sub lstNamen_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
lstDruck.AddItem (lstNamen.Text)
lstNamen.RemoveItem (lstNamen.ListIndex)
End Sub
Private Sub UserForm_Initialize()
lstNamen.AddItem ("Name1")
lstNamen.AddItem ("Name2")
lstNamen.AddItem ("Name3")
lstNamen.AddItem ("Name4")
lstNamen.AddItem ("Name5")
End Sub
Ich wollte gerne, daß beim Anklicken des OK-Buttons alle Einträge aus der einen List-Box wieder in die erste verschoben werden. Mit einem Doppelklick auf den Namen geht es auch, aber der Code vom OK-Button funktioniert nicht :-((
Im voraus vielen Dank!
Viele Grüße,
Andrea