set Anweisung
02.11.2005 14:22:06
chris
habe heute wieder eine frage zu Set .
Habe folgenden Code mit dem erstelle ich Buttons auf einem Sheet.
dieser Code wird auch noch weiter ausgebaut ist für mich zum Üben.
Meine frage ist,ich verwende den befehl
Set but
aber ich schaffe es nicht zu sehen was zu dem Zeitpunkt mit meiner variable but passiert.Also was ich im Eigenschaftsfenster für eigenschaften habe.so wie z.b .Objekt
wenn ich den Ausdruck überwachen lasse geght das nicht weil ja am ende des Moduls der überwachungsausdruck wieder leer ist.
Auch mit Debug.print habe ich es versucht aber da kommt es komischeweiße zu einem fehler.
Dim but As OLEObject
Sub neu()
x = 20
For Each cb In ActiveWorkbook.Worksheets
Set but = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
, DisplayAsIcon:=False, Left:=291, Top:=x, Width:=79.5, Height:= _
19)
but.Object.Caption = cb.Name
x = x + 20
Next
Application.OnTime Now + TimeValue("00:00:01"), "weiter"
End Sub
Sub weiter()
'hier will ich dann dem Button über klassenmodul das ich schon als beispiel habe einen wert zuweisen.
'um dann bei klick jedes einzeln erstellten Buttons dessen caption zu bekommen.
End Sub
Ich hoffe ihr könnt mir helfen.
Vielen dank und schönen Tag Christian