ListView Frage
01.03.2009 18:22:17
walli
habe gestern eine Menge Unterstützung von Tino erhalten.
Dieses Makro funktioniert einwandfrei, ich möchte dies gern
noch mit ENTER funktion erstellen, bekomme es nicht hin.
Private Sub ListView1_DblClick()
Sheets(CStr(Me.ListView1.SelectedItem)).Select
End Sub
Mein Entwurf:
Private Sub ListView1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 13 Then Sheets(CStr(Me.ListView1.SelectedItem)).Select
End Sub
mfg walli