Steuern der Commanbutton mit schleife
15.02.2009 12:55:00
Dirk
habe ein Problem mit einemDialogfeld.Vielleicht kann mir jemand helfen.
ich brauche ein Dialogfeld mit etwa 40 Commandbuttons. Diese sollen per Schleife verändert werden.
habe es mit folgendem Code versucht,aber es klappt nicht.
Private Sub UserForm_Initialize()
Zähler = 1
For I = 1 To Zähler
Test = "VK00" & Zähler
Next I
'Zahl kann 1-40 sein
'commandbutton(Zahl).picture
Test.Picture = _
LoadPicture("Z:\Daten\excel\stückliste\Zeichnungen\vorderansicht\Korpus\Korpus 001.jpg" _
)
Test.BackColor = RGB(255, 255, 255)
Test.Caption = "Korpus 001"
End Sub
hoffe mal Ihrversteht wie ich es meine
Danke im Voraus
Anzeige