Namen von CommandButton mit VBA ändern

[Donald Unger]

Ich möchte Eigenschaften von 24 CommandButtons mit VBA ändern, doch statt

CommandButton1.Name="Fenster1"
CommandButton2.Name="Fenster2"
...
usw, hätte ich gerne so was in der Art von

For i = 1 to 24
Bez = "CommandButton" & i
Bez.Name = "Fenster" & i
Next

Geht aber nicht! Weiß jemand, wie es geht?

Donald

[wolfgang]

soll es sich um die bezeichnung des schalters handeln versuches es mal mit
Bez.Caption

grüße wolfgang
wolfgang....@gmx.de

Donald Unger <do...@gmx.at> schrieb in im Newsbeitrag:
asqv9u$mia$1...@newsreader1.netway.at...

[Christian Springer]

"wolfgang" <wolfgang....@gmx.de> schrieb im Newsbeitrag news:asshr8$3rj$06$1...@news.t-online.com...

> soll es sich um die bezeichnung des schalters handeln versuches es mal mit
> Bez.Caption

Die Eigenschaft (ob Name, Caption, Font etc) ist nicht das Problem sondern
der Versuch, Objekte mittels einer Variablen (Bez) anzusprechen.

Erstelle mal in einer Tabelle drei Befehlsschaltflächen und probiere
folgenden Code zum Laufen zu bringen, dann siehst du, wo das Problem liegt:

Private Sub Test()
For i = 1 To 3

Bez = "CommandButton" & i
Bez.Name = "Fenster" & i
Next

End Sub

Donald

[Peter Huber]

hallo Donald

versuchs mal hiermit
XXXXXXXXXXXXXXXXXXXXXXXXXXX
Private Sub cmd_ändern_Click()
Dim control_ändern As Control

Dim control_name As String
Dim i As Byte
i = 1
For Each control_ändern In Controls

control_name = Mid(control_ändern.Name, 1, 13)
If control_name = "CommandButton" Then
control_ändern.Caption = "Fenster " & i
i = i + 1
End If

Next

End Sub
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

ciao Peter

--
Peter Huber
www.aktivelly.de

in...@aktivelly.de

Internetseitengestaltung
Computer- EDV- Beratung
(Hard- und Software)
Verkauf von Hard- u. Software
VBA Programmierung MS Office

(Automatisieren von Programmabläufen im MS Office Paket)

"Donald Unger" <do...@gmx.at> schrieb im Newsbeitrag
news:asqv9u$mia$1...@newsreader1.netway.at...