Mausposition

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mausposition

22.04.2016 14:34:03

Werner

AW: Mausposition

23.04.2016 15:36:39

Daniel

AW: Mausposition

23.04.2016 16:58:57

Mullit

Hallo,
die Default-Eigenschaft ist eigentlich nur für Formulare vorgesehen, da Du im TabBlatt die Enter-Taste auch noch für andere Aktionen benötigst.
Wenn Du ohne Apis auskommen willst, könntest Du Dir aber sowas bauen und mußt dabei beachten, irgendwann immer die Resetprozedur auszuführen, um die Entertaste freizugeben:

' ********************************************************************** 
' Modul: DieseArbeitsmappe Typ: Klassenmodul der Arbeitsmappe 
' ********************************************************************** 

Option Explicit

Private Sub Workbook_Activate()
If ActiveSheet Is Tabelle1 Then _
  Call prcSetDefaultButton
End Sub

Private Sub Workbook_Deactivate()
Call prcResetEnterKey
End Sub

' ********************************************************************** 
' Modul: Tabelle1 Typ: Klassenmodul des Tabellenblattes 
' ********************************************************************** 

Option Explicit

Private Sub Worksheet_Activate()
Call prcSetDefaultButton
End Sub

Private Sub Worksheet_Deactivate()
Call prcResetEnterKey
End Sub

Private Sub CommandButton1_Click()
Call MsgBox("CommandButton1")
End Sub

Private Sub CommandButton2_Click()
Call MsgBox("CommandButton2")
End Sub

Private Sub CommandButton3_Click()
Call MsgBox("CommandButton3")
End Sub

' ********************************************************************** 
' Modul: Modul1  Typ: Standardmodul 
' ********************************************************************** 

Option Explicit

Public Sub prcSetDefaultButton()
Dim avntButtonName() As Variant
avntButtonName = Array("CommandButton1", "CommandButton2", "CommandButton3")
   Call Application.OnKey(Key:="~", Procedure:="'prcTriggerButtonEvent """ & avntButtonName(0) & """'")
End Sub

Public Sub prcTriggerButtonEvent(ByVal pvstrButtonName As String)
  Tabelle1.OLEObjects(pvstrButtonName).Object.Value = True
End Sub

Public Sub prcResetEnterKey()
 Call Application.OnKey(Key:="~")
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Mausposition

3 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)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread