CommandButton per Mausklick benennen

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

hab’ mehrere CommandButtons durchzunummerieren (über 200) und wollte deshalb wissen, ob es mölich ist per Mausklick die Commandbuttons zu benennen.

Es sollen die Eigenschaften Name und Caption verändert werden. Und zwar in aufsteigender Reihenfolge nummeriert. Die Namen gestalten sich so Platz_1, Platz_2, Platz_3… und die Captions 1,2,3…

Geht das per VBA-Script?

Gruß

2

hab’ mehrere CommandButtons durchzunummerieren (über 200) und
wollte deshalb wissen, ob es mölich ist per Mausklick die
Commandbuttons zu benennen.
Es sollen die Eigenschaften Name und Caption verändert werden.
Und zwar in aufsteigender Reihenfolge nummeriert. Die Namen
gestalten sich so Platz_1, Platz_2, Platz_3… und die
Captions 1,2,3…

Hi Alex,

wenn die CB nicht in nummerierter Reihenfolge untereinander stehen muß man anders vorgehen.

Option Explicit
'
Sub tt()
Dim S As OLEObject, Anz As Integer
For Each S In ActiveSheet.OLEObjects
 If S.Name Like "CommandButton\*" Then
 Anz = Anz + 1
 S.Name = "Platz\_" & Anz
 S.Object.Caption = Str(Anz)
 End If
Next S
End Sub

Gruß
Reinhard