title image


Smiley VBA, CommandButtons reagieren nicht, wenn man sie anklickt.
Liebe VBA-Interessierte,Wenn die von mir gebastelte Userform "frmRollen" initialisiert wird, bildet sie automatisch 4 CommandButtons: "cmd1", "cmd2", "cmd3" und "cmd4". Der verantwortliche Code dafür lautet:Private Sub UserForm_Initialize()Dim Befehlsfeld As ControlDim i As IntegerFor i = 1 To 4Set Befehlsfeld = Controls.Add("forms.CommandButton.1", _"cmd" & i) Befehlsfeld.Visible = True Befehlsfeld.Enabled = True Befehlsfeld.Left = 20 Befehlsfeld.Top = 5 + 30 * (i - 1) Befehlsfeld.Width = 100 Befehlsfeld.Height = 25 frmRollen.Height = 60 + 30 * (i - 1)NextEnd SubDas klappt prima, aber ich habe vorweg schon folgenden Code geschrieben, damit beim Anklicken der jeweiligen CommandButtons der jeweilige CommandButtons-Name geschrieben wird.Private Sub cmd1_Click()Selection.TypeText Text:=cmd1.NameEnd SubPrivate Sub cmd2_Click()Selection.TypeText Text:=cmd2.NameEnd SubPrivate Sub cmd3_Click()Selection.TypeText Text:=cmd3.NameEnd SubPrivate Sub cmd4_Click()Selection.TypeText Text:=cmd4.NameEnd SubDie CommandButtons reagieren aber nicht, wenn man sie anklickt. Warum?Wenn ich die 4 CommandButtons vorher fest in die Userform einbaue (statt erst beim Initialisieren), reagieren sie nämlich beim Anklicken und führen den entsprechenden Code aus. Viele liebe GrüßeHeinrich Schafmeister

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: