VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Gast68814	Datum: 12.06.2015 15:30:38	Views: 1233	Rating:	Antwort:
Thema: CheckBoxen
Hey Leute, ich habe folgenden Code: Sub Rename() Dim chk As Shape Dim NR As Integer For NR = 1 to 3 For Each chk In ActiveSheet.Shapes If Left(chk.OLEFormat.Object.Name, 5) = "Check" Then On Error Resume Next chk.OLEFormat.Object.Name = "Check Box " & chk On Error GoTo 0 End If Next Next End Sub Ergebnis soll sein, dass die drei vorhandenen Kontrollkästchen mit "Check Box 1", "Check Box 2" und "Check Box 3" benannt werden. Allerdings erhalte ich am Ende für alle den Namen "Check Box 3". Kann mir jemand helfen? Vielen Dank!

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen