sendkeys
05.06.2008 17:31:51
boris
ich würde gerne 5mal die rechts-taste im nummernblock mitschicken. danke im vorraus. ich hab's einfach nicht drauf *g*
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sh
Dim Pfad
Cancel = True
Pfad = Cells(Target.Row, 20)
Set sh = CreateObject("Shell.Application")
sh.Open Pfad
End Sub
Anzeige