F
fokrogh
Hi,
I try to let VBA copy a listbox items when holding down the ctrl- and
pressing the a-key (select all).
Any suggestion on why this doesn't work?
Do I need to combine a KeyPressed event?
Thanks in advance
Regards
Frank
___________________________
Private Sub Listbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
Dim i As Integer
If KeyCode = 97 And Shift = 2 Then
For i = 0 To Listbox1.ListCount - 1
Listbox2.AddItem Listbox1.List(i)
Next i
End If
End Sub
I try to let VBA copy a listbox items when holding down the ctrl- and
pressing the a-key (select all).
Any suggestion on why this doesn't work?
Do I need to combine a KeyPressed event?
Thanks in advance
Regards
Frank
___________________________
Private Sub Listbox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)
Dim i As Integer
If KeyCode = 97 And Shift = 2 Then
For i = 0 To Listbox1.ListCount - 1
Listbox2.AddItem Listbox1.List(i)
Next i
End If
End Sub