Nummer aus CommandButton1_Click() an Variable

Hallo Ihr,
ich brauche Eure Hilfe.
Ich habe eine Tabelle mit 200 Commandbuttons, die CommandButton(1-200) heißen.
In einer zweiten Tabelle stehen in Spalte A und B Namen und Vornamen.
Die Captions der Commandbuttons zeigen diese Namen. Wird der Button angeklickt soll in Spalte C hinter dem Namen ein X erscheinen. (Außerdem wechselt der Button die Farbe). Der Code hierfür sieht so aus:

Private Sub CommandButton1_Click()
If CommandButton1.BackColor = &HC0C0C0 Then
      CommandButton1.BackColor = &H80FF80
   Else: CommandButton1.BackColor = &HC0C0C0
End If
If CommandButton1.BackColor = &H80FF80 Then
      Sheets(2).Cells(1, 3).Value = "X"
   Else: Sheets(2).Cells(1, 3).Value = ""
End If
End Sub

Nun bin ich ja faul, und hoffe das Forum unterstützt mich dabei:
Wie kann ich es mir ersparen die Codes für alle 200 Buttons durch Ersetzen der Zähler anpassen zu müssen?
Mit Me.Name im Code erhalte ich leider nur den Tabellen-Namen (:-(
ALSO DIE EIGENTLICHE FRAGE: Wie kann ich innerhalb des Klickereignisscodes abfragen wie der Commandbutton heißt, oder beser noch welche Nummer er hat, sodaß ich damit die Position des X in der Namenstabelle festlegen kann?
Schon mal vielen Dank im Voraus für Eure Tips.
Gruß
Uwe
(:o)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
um dir mal auf die Sprünge zu helfen ;-)
So geht es mit einer Schaltfläche aus der Symbolleiste Formular.
Diesen Schaltflächen ist jeweils das Makro1 zugeordnet
Option Explicit

Sub Makro1()
    Dim tarRange As Range
    'Für Makro die durch die Schaltfläche aus
    'der Symbolleiste Formular aufgerufen werden
    MsgBox "Ich bin :" & Application.Caller
    Set tarRange = Range(Worksheets(ActiveSheet.Name).Shapes(Application.Caller).TopLeftCell.Address)
    'Wert Links vom Button
    MsgBox "Wert aus der Zelle links vom angeklickten Button: " & tarRange.Offset(0, -1)
End Sub

Mit einem Commandbutton geht es so.
Es wird jeweils das Makro2 aufgerufen mit Parameterübergabe
Option Explicit

Private Sub CommandButton1_Click()
    Makro2 Me.CommandButton1.Name
End Sub

Sub Makro2()
    Dim tarButton As Shape
    Set tarButton = Worksheets(ActiveSheet.Name).Shape("Commanbutton1")
    With tarButton
        .BackColor = &H80FF80
    End With
End Sub

Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Nummer aus CommandButton1_Click() an Variable

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Nummer aus CommandButton1_Click() an Variable

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread