wie kann ich die Postion eines Buttons (habe mehrere auf einem Tabellenblatt)
abfragen, um so festzustellen, welcher Button gedrückt wurde. Weil - je nachdem welcher Button gedrückt wurde, soll ein entsprechendes Makro starten.
Vielen Dank
W.Mommers
Private Sub CommandButton1_Click()
Call MeinMakro(1)
End Sub
Private Sub CommandButton2_Click()
Call MeinMakro(2)
End Sub
Option Explicit
Sub tt()
Dim ov, Starten, Adobe
Adobe = "C:\Programme\Adobe\Acrobat 7.0\Reader\AcroRd32.exe "
Set ov = ActiveSheet.Shapes(Application.Caller)
Starten = Shell(Adobe & Cells(ov.TopLeftCell.Row, ov.TopLeftCell.Column - 1))
End Sub
Sub tt1()
Dim ov, Starten, Adobe
Set ov = ActiveSheet.Shapes(Application.Caller)
MsgBox Cells(ov.TopLeftCell.Row, ov.TopLeftCell.Column).Address
End Sub
Sub tt2()
Call PDFAnzeigen(Application.Caller)
End Sub
Sub PDFAnzeigen(ByVal Bildnme As String)
'aus Tabelle2 mit Vlookup den PDF-Dateinamen zu Bildname holen und anzeigen
End Sub
Private Sub Commandbutton1_Click()
End Sub
Sub ButtonMakro(ByVal welcherButton As Integer)
Select Case welcherButton
Case 1
Makro für Button 1
Case 2
Makro für Button 2
Case 3
Makro für Button 3
usw
End Select
End Sub
Private Sub Commundbutton1_Click()
Call ButtonMakro(1)
End Sub
Private Sub Commundbutton2_Click()
Call ButtonMakro(2)
End Sub
Private Sub Commundbutton3_Click()
Call ButtonMakro(3)
End Sub
usw
select case application.caller
case "rechteck 1"
case "rechteck 2"
end select