Userform1 mit markierter Zelle starten

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim OpenFile As String Dim rngSuche As Range Worksheets("FilmDb").Activate Set rngSuche = Worksheets("FilmDb").Columns(2).Find(ListBox1.Value, LookAt:=xlPart) If Not rngSuche Is Nothing Then Application.GoTo Reference:=rngSuche ''Wenn Abrechen gewählt wird Fehler abfangen On Error Resume Next Unload Me Else MsgBox "Titel nicht gefunden" End If 'Hier sollte noch der Code erweitert werden! 'Markierte Zelle Startet Userform1 und füllt Lst_Treffer Userform1.Show End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Lst_Treffer_Click() Application.CutCopyMode = False 'Clipboard löschen ActiveSheet.Unprotect 'hier wird der UnDo-Speicher geleert Const FOLDER_PATH As String = "D:\EMDB\HTML\ExcelUserform1\" Dim strFileName As String strFileName = Dir$(PathName:=FOLDER_PATH & Lst_Treffer.List(Lst_Treffer.ListIndex, 1) & ".*") If strFileName vbNullString Then Set Image24.Picture = LoadPicture(Filename:=FOLDER_PATH & strFileName) Else Set Image24.Picture = Nothing End If Repaint End Sub

In Spalte B kann ich Doppelklicken. Dann wird die Userform1 geöffnet und zeigt mir in der Listbox Lst_treffer den gewählten Doppelklick Eintrag aus Spalte B .
Ich Frage mal anders Wie kann ich einen Doppelklick in Spalte B(Linke Maus) per Vba Simulieren?
Der untenstehende Code Funktioniert bei mir nicht Weil ich eine 64 Bit Version Habe.
' Benötigte Deklarationen
Private Declare Sub mouse_event Lib "user32" _
Alias "mouse_event" ( _
ByVal dwFlags As Long, _
ByVal dx As Long, _
ByVal dy As Long, _
ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Public Const MOUSE_LEFT = 0
Public Const MOUSE_MIDDLE = 1
Public Const MOUSE_RIGHT = 2
' Die nachfolgende Prozedur simuliert den gewünschten Mausklick.


Public Sub SendMausklick(ByVal mButton As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
If (mButton = MOUSE_LEFT) Then
Call mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
ElseIf (mButton = MOUSE_MIDDLE) Then
Call mouse_event(MOUSEEVENTF_MIDDLEDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_MIDDLEUP, 0, 0, 0, 0)
Else
Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0)
Call mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0)
End If
End Sub

Beispiel:
' linke Maustaste
SendMausklick MOUSE_LEFT
' rechte Maustaste
SendMausklick MOUSE_RIGHT
' linke Maustaste Doppelklick
SendMausklick MOUSE_LEFT
SendMausklick MOUSE_LEFT
Gruß
Oraculix

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Dim OpenFile As String Dim rngSuche As Range Worksheets("FilmDb").Activate Set rngSuche = Worksheets("FilmDb").Columns(2).Find(ListBox1.Value, LookAt:=xlPart) If Not rngSuche Is Nothing Then Application.GoTo Reference:=rngSuche ''Wenn Abrechen gewählt wird Fehler abfangen On Error Resume Next '1 Zelle nach links weil Titel Deutsch sind und Hyperlink nur in B2:B5000 vorhanden 'ActiveCell.Offset(0, -1).Hyperlinks(1).Follow Unload Me Else MsgBox "Titel nicht gefunden" End If Call SendMausklick MOUSE_LEFT ' dann wird die gefunde Zelle gleich geöffnet mit Userform1 End Sub

Beliebteste Forumthreads (12 Monate)

Userform1 mit markierter Zelle starten

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Userform1 mit markierter Zelle starten

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread