• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

userform voorbeeld werkt niet (bij mij)

Status
Niet open voor verdere reacties.

sylvester-ponte

Verenigingslid
Lid geworden
19 apr 2007
Berichten
6.541
ik heb dit voorbeeld uit de help van excel, maar bij mij werkt het niet als ik in de form op de add knop druk.
 

Bijlagen

  • test2 userform.xlsm
    19 KB · Weergaven: 44
En de vraag is? :p

Wijzig de regel eens naar:
Code:
Set MyTextBox = MultiPage1.Pages(MultiPage1.Value).Controls.Add("[COLOR="#FF0000"]Forms[/COLOR].TextBox.1", "MyTextBox", Visible)
 
Maar gebruik VBA niet om het ontwerp van een userform te maken of te wijzigen.
Daarvoor is de ontwerpmodus.

Zonder overbodigheden:

Code:
Private Sub CommandButton1_Click()
    MultiPage1.Pages(MultiPage1.Value).Controls.Add "Forms.TextBox.1", "snb_001", True
    CommandButton2.Enabled = True
    CommandButton1.Enabled = False
End Sub

Private Sub CommandButton2_Click()
    MultiPage1.Pages(MultiPage1.Value).Controls.Cut
    CommandButton3.Enabled = True
    CommandButton2.Enabled = False
End Sub

Private Sub CommandButton3_Click()
    MultiPage1.Pages(MultiPage1.Value).Paste
    CommandButton3.Enabled = False
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan