VBA AktiveX CommandButton.Name mit call übergeben
21.01.2025 23:46:04
Thomasa Brill
ich möchte den Namen eines AKtiveX Commandbutton per Call an eine Prozedur über geben.
Wie muss ich den Namen des CommandButton butName in der Prozedur einbinden?
Beispiel Datei: https://www.herber.de/bbs/user/175020.xlsm
Weitere Infos:
Die CommandButton schreiben den Wert 0 oder 1 in die darunterliegen Zelle Spalte F.
Per Funktion SVERWEISPlus werden die Commandbutton.Caption aus Spalte G in einer Zelle zusammen ausgegeben.
Quelle SVERWEISPlus: https://answers.microsoft.com/de-de/msoffice/forum/all/sverweis-plus-mit-aus-gabe-mehrerer-werte-in-einer/ca46a7fc-e381-4dd0-880a-484e2a774770
' Die CommandButton sind AktivX Elemente
' Hier eine Prozdur für alle CommandButton
Private Sub allButtons(ByVal butName As String)
With wsCheckliste.butName
If .TopLeftCell.Offset(0, 0).Value = 1 Then
.TopLeftCell.Offset(0, 0).Value = 0
.BackColor = &H8000000F
Else
.TopLeftCell.Offset(0, 0).Value = 1
.BackColor = &H8080FF
End If
.TopLeftCell.Offset(0, -3).Select
End With
End Sub
Private Sub CommandButton1_Click()
Dim butName As String
butName = wksCheckl.CommandButton1.Name
Call allButtons(butName)
' With wsCheckl.CommandButton1
' If .TopLeftCell.Offset(0, 0).Value = 1 Then
' .TopLeftCell.Offset(0, 0).Value = 0
' .BackColor = &H8000000F
' Else
' .TopLeftCell.Offset(0, 0).Value = 1
' .BackColor = &H8080FF
' End If
' .TopLeftCell.Offset(0, -3).Select
' End With
End SubAnzeige