sendkeys II
05.06.2008 20:10:59
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) 'C:\Users\boris\Eignen Dateien\Touren\2008 54 _
jaufenpass.tur
Set sh = CreateObject("Shell.Application") 'C:\Program Files\CICLO\HACtronic\HACtronic.exe
sh.Open Pfad
End Sub
durch einen doppelklick auf die zelle, gebe ich die zeilennummer "Target.Row" in der sich der Dateiname "Pfad" befindet an das makro. das öffnet dann die anwendung in "'C:\Program Files\CICLO\HACtronic\HACtronic.exe" mit eben der in "pfad" genannten datei. an diese anwendung würde ich gerne die tastenfolge (5xbild-links) schicken. kann mir jemand sagen wie genau ich das machen muss ?