aus Doppelklick - EinmalKlick | HERBERS Excel Forum

Lena · 2007-05-22T09:50:55+00:00

Hallo... Gibt es für folgenden Befehl: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) auch so etwas wie: Private Sub Worksheet_EINMALClick(ByVal Target As Range, Cancel As Boolean) ? Hätte damit nur noch die halbe Arbeit am PC... :o) Danke für die Hilfe! Gruß Lena

Hallo Rudi,
ach ja ,hab jetzt wieder bisschen mehr Zeit dafür und hab die Sache verstanden. Trotzdem, so elegant wie das alles funktioniert, ich möchte gern, dass ich die Eingabe in Zeile 1 machen kann, weil die Titel in mehreren Spalten stehen.
Habs versucht mit:


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.Row = 1 Then (erste Zeile)
On Error GoTo ERRHANDLER
Application.EnableEvents = False
For Each c In Columns(2,3,4) (am besten 2 bis letzte Spalte)       .SpecialCells( _
xlCellTypeConstants)
If UCase(Left(c, Len(Target))) = UCase(Target) Then
Application.Goto c, True
Exit For
End If
Next
Target.ClearContents
End If
Aber das geht bei meinen Kenntnissen schief.
Die unten Stehende Variante muss ich weglassen, da in den Spalten die Titel stehen.


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


Meine Variante:



Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell = "A DAY IN THE LIFE OF A FOOL" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\A_DAY_IN_THE_LIFE_OF_A_FOOL.mct"
End If
If ActiveCell = "AFTERNOON IN PARIS" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\AFTERNOON_IN_PARIS.mct"
End If
usw.
find ich schon erstmal ok, man kann es sicherlich auch noch kürzer fassen.
Wenn du mir die Engabezeile und die Suchspalten ändern könntest - besten Dank.
Lena

Hallo Rudi,
Hab doch noch ein Problem. Da ich mit dem Laptop ohne Maus die Sache machen möchte (Rechtsklick oder Doppelklick oder am besten nochmal Enter), geht bei Bestätigung des Titels nicht der richtige Titel oder gar keiner auf, weil Mauszeiger wo anders steht. Am besten wäre die Bestätigung eben nochmal mit Enter. Aber...


Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$A$1" Then
On Error GoTo ERRHANDLER
Application.EnableEvents = False
For Each c In Range("A:C").SpecialCells(xlCellTypeConstants)  'Spalten evtl.anpassen
If UCase(Left(c, Len(Target))) = UCase(Target) And Not c.Address = Target.Address Then
c.Select
'            Application.Goto c, True
Exit For
End If
Next
Target = ""
End If
ERRHANDLER:
Application.EnableEvents = True
Hier brauche ich eine Pause weil ich evt. doch den nächsten Titel mit den Richtungstasten anwählen möchte. Außerdem geht der Makro ja gleich bis End Sub

.
Ich sehe da eben schon wieder ein Problem mit "


Private Sub Worksheet_Change(ByVal Target As Range)"
If ActiveCell = "A DAY IN THE LIFE OF A FOOL" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\A_DAY_IN_THE_LIFE_OF_A_FOOL.mct"
End If
If ActiveCell = "AFTERNOON IN PARIS" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\AFTERNOON_IN_PARIS.mct"
End If
If ActiveCell = "American Patrol-Pennsylvania 6-5000 - St.Louis Blues" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\American_Patrol.mct"
End If
If ActiveCell = "ANNEMARIE" Then
Set wshShell = CreateObject("WScript.Shell")
wshShell.Run "C:\Programme\Musicator\Mus40E\ANNEMARIE.mct"
End If
End Sub

Ich weiß , hab dich schon mächtig strapaziert, aber villeicht fällt dir noch etwas ein.
Danke.
Gruß
Lena

aus Doppelklick - EinmalKlick

Forumthread: aus Doppelklick - EinmalKlick

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

aus Doppelklick - EinmalKlick

Forumthread: aus Doppelklick - EinmalKlick

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread