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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen