ich habe ein Problem, was ich einfach nicht gelöst bekomme.
Ich habe in einem Tabellenblatt 11 CommandButton. Ich brauche einen Code, der die CommandButton 1-10 umbenennt.
Kann mir jemand helfen?
Gruß
Dirk
Option Explicit
Sub Umbenennen()
Dim oSha As Shape
Dim i As Integer
With Tabelle1 'Tabelle
For Each oSha In .Shapes
If TypeName(oSha.DrawingObject.Object) = "CommandButton" And i < 11 Then
i = i + 1
oSha.Name = "CommandButtonNeuerName" & i
End If
Next oSha
End With
End Sub
Gruß TinoSub CBName()
Dim InI As Integer
For InI = 1 To 10
Sheets("Z2 Fortschrittzeiten Rückseite").OLEObjects("CommandButton" & InI).Object.Caption = _
"Ablaufabschnitt" & vbNewLine & "löschen"
Next
End Sub