Ich weiß nicht wie ich Abfragen kann, welcher Button makiert ist. Ich erstelle in meinem Programm bis zu 36 Buttons.
Sheets("Triggersignal").Select
oben = 30
höhe = 20
breite = 330
erg = 0
I = 0
For I = 0 To 37 Step 1
If Cells(5 + I, 3).Value "" Then
'Hier werden die einzelnen Button erzeugt
Set cmd1 = Me.Controls.Add("Forms.OptionButton.1", "cmd1", True)
With cmd1
.Left = 9
.Top = oben + erg * 20
.Height = höhe
.Width = breite
.Caption = Cells(5 + I, 2).Text
.Font.Size = 10
End With
erg = erg + 1
Else
End If
Next I
So lautet mein Programm zu erstellung der verschiedenen Button. Funktioniert auch. Brauch jetzt nur noch die Abfrage.
MFG Ingo