Office: Cursor position

Hallo zusammen!

Habe in einer Arbeitsmappe mehrer Buttons die mit Makros belegt sind. Nun hätte ich gerne das Bei Klick auf einer dieser Buttons die Zelle hinter dem Button selektiert wird ist sowas möglich?

 

Gi Gook...

hier 2 Beispiele, einmal für eine Formularschaltfläche und einmal für
einen Button aus der Steuerelementtoolbox.

Code:

Public Sub Test()

  ThisWorkbook.ActiveSheet.Shapes("Schaltfläche 2").TopLeftCell.Select

End Sub

Private Sub CommandButton1_Click()
  
  ThisWorkbook.ActiveSheet.OLEObjects("CommandButton1").TopLeftCell.Select
  
End Sub

Gruß

 

Hallo danke für die schnelle Antwort.

Meine Arbeitsmappe ist sehr groß und die Buttons werden teilweise Kopier deswegen habe ich nie die genaue Bezeichnung also z.B "Schaltfläche 2" deshalb sollte es vieleicht irgendwie anhand der x und y Koordinaten gehen? das berechnet wird wo geklickt wurde wo die Cursor position ist und welche zelle auf dieser Position liegt?

 

Oder gibt es eine Möglichkeit den Namen der angeklicken Schaltfläche auszugeben?

 

Hallo,

falls Formular Steuereelemente
MsgBox Application.Caller


Gruß Hajo

 

Und falls frei liegender Button in einem Tabellenblatt?

 

Hallo,

auch das Steuerelement aus Formular kann frei liegend sein. Ich interpretiere es mal an beliebiger Position.

Gruß Hajo

 

Hallo,

falls Du Dich sehr gut in VBA auskennst ist diese Datei http://hajo-excel.de/chCounter3/getfile.php?id=24 vielleicht ein Ansatz zu Deinem ersten Problem. Mir ist das zu aufwendig.

Gruß Hajo

 

Hallo!

Danke erstmal den Code verstehe ich soweit schon ist leider nicht ganz das was ich suche. Aber trotzdem danke für deine Mühe

 

(ooops, den letzten Absatz doch glatt vergessen...)

Wenn es ein Button aus der "Steuerelemente-Toolbox" wäre, müßte ja jeder Kopie erstmal ein neues Ereignis zugewiesen und dieses auch mit Leben gefüllt werden. In dem Moment hat man ja im Prozedur-Kopf den Namen des Buttons, wie z.B. bei CommandButton1_Click().

Da ein kopierter Button aus dieser Symbolleiste also nicht so ohne weiteres funktionieren würde, gehe ich also auch mal davon aus, daß es ein Button aus der "Formular"-Symbolleiste ist. Da wiederum greift in der Tat das application.caller, um an den Namen zu kommen.

Zusammen mit dem Code von maninweb ergibt das also eine Prozedur in "Modul1":

Code:

Sub Schaltfläche2_BeiKlick()

    MsgBox Application.Caller

    ThisWorkbook.ActiveSheet.Shapes(Application.Caller).TopLeftCell.Select

End Sub

Dieses Makro kann jetzt dem Button zugewiesen werden und wird dann auch von jeder Kopie des Buttons aufgerufen.

Gruß, Michael

 

Hey Super!

genau so wollte ich es habe nun nur noch das Problem das mit Application.Caller nicht die Komplette Bezeichnung der Shapes ausgegeben wird. Habe z.b die Shape bezeichnung

" Eingekerbter Pfeil nach rechts 7 "

Application.Caller gibt mir aber nur

" Eingekerbter Pfeil nach rechts "

aus an was könnte das liegen?

 

Hm, also bei "Befehlsschaltfläche 2", 3, 4, ... funktioniert es. Die Numerierung scheint also nicht grundsätzlich entfernt zu werden. Mein Verdacht wäre da also eher in Richtung Länge der Bezeichnung. Vielleicht wird da gerade irgendwo was um 1 oder 2 Zeichen überschritten und deswegen abgeschnitten?

Wird die Nummer auch abgeschnitten, wenn Du die Bezeichnung etwas kürzt? Also mal "r" aus "rechts" machst?

Gruß, Michael

 

Hi Gook...

klick' mal das Shape an und dann ins Namensfeld von Excel. Das wäre das was Application.Caller zurückgibt.
Hab' mal für ein Shape "Eingekerbter Pfeil nach rechts 7" eingegeben, die 7 wird entfernt.

Würde also sagen, der Name ist zu lang, ausserdem sollte man bei der Namensvergabe
hierauf achten: http://www.xlam.ch/xlimits/xllimit15.htm

Gruß