AW: aus Doppelklick - EinmalKlick
22.05.2007 12:37:20
Rudi
Hallo,
das würde ich ganz anders machen.
In A die 'schönen' Bezeichnungen, in B den Dateinamen ohne Pfad und Endung. Dann brauchst du deinen Code nicht immer zu ändern, wenn was neues hinzukommt und sparst dir einen Haufen Arbeit.
Code der Tabelle:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Doppelklick in A startet Datei in B
Dim wshShell As Object
If Target.Column = 1 And Target.Offset(0, 1) "" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\" & Target.Offset(0, 1) & ".mct"
Set wshShell = Nothing
Cancel = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'Eingabe in C springt zur ersten Zelle in A, die mit der Eingabe beginnt, _
auch mehrere Buchstaben (z.B. 'ame' zu 'American Patrol')
Dim c As Range
If Target.Column = 3 Then
On Error GoTo ERRHANDLER
Application.EnableEvents = False
For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
If UCase(Left(c, Len(Target))) = UCase(Target) Then
Application.Goto c, True
Exit For
End If
Next
Target.ClearContents
End If
ERRHANDLER:
Application.EnableEvents = True
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe