aus Doppelklick - EinmalKlick | HERBERS Excel Forum

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

die Frage kann ich gut verstehen.
ich hab in diesem Tabellenblatt folgende Befehle:
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
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
und noch 100 mehr.
Mit dem Doppelklick werden auf die richtige Zelle wird ein Notationsprogramm geöffnet, welches über die Leertaste in diesem Programm ein Playback mit dazugehörigem Notenbild abspielt. Das ganze läuft auf einem Laptop und ist für Auftritte gedacht, bei denen alles möglichst schnell gehen muss.
Bisher habe ich die Titel aus der aus einem Windowsordner heraus angeklickt. Ein großer Nachteil ist, dass ich die Titel aus optischen Gründen nicht farblich unterschiedlich kennzeichnen kann, wegen einiger Prioritäten. Der andere, dass die Schrift sehr klein ist und nicht zu vergrößern geht.
Mit meiner Exceltabelle hab ich die richtige Übersicht in den Griff bekommen. Der eine Nachteil ist nur, dass es statt ein Doppelklick auch ein Einmalklick tun würde. Und der Andere, wenn ich eine alphabetische Taste drücke, springt der Cursor nicht zu der Zelle, dessen Wort mit dem gedrückten Buchstaben beginnt (das geht wohl in Richtung VBA API-Funktionen)
Ich glaube mit weniger Worten ging es nicht.
Gruß
Lena

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

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

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.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 End Sub

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

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

Beliebteste Forumthreads (12 Monate)

aus Doppelklick - EinmalKlick

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread