Userform maken met vba code werkt niet goed

[matthiej88]

Hoi Allemaal,

Ik heb een vba code geschreven voor het aanpassen van een userform. De code zorgt ervoor dat per ingevulde regel 8 tekstboxen worden aangemaakt en deze worden ingevuld. Daarnaast wordt een knop "wijzigen" toegevoegd, die een nieuwe userform moet openen (FHelp in het voorbeeldbestand). Er gaan een aantal dingen nog niet goed:
- Er wordt code toegevoegd die voor een actie moet zorgen als er op een knop gedrukt wordt, maar er gebeurd niets. de code staat er wel.
- de toegevoegde code wordt niet verwijderd, zoals ik probeer aan het begin van de code probeer met .deletelines
- er wordt een foutmelding gegeven als de userform wordt gesloten, maar ik kan de oorzaak nog niet achterhalen.

Ik hoop dat jullie me kunnen helpen!

Groeten,
MatthijsBekijk bijlage Voorbeeld.xlsm

 

[snb]

Waarom ontwerp je niet een userform ?
Aanmaken van een userform met VBA is onnodig moeizaam.

Met de de eigenschappen .Visible en .Enabled kun je de weergave van het userform tijdens de uitvoering gemakkelijk aanpassen.

 

[matthiej88]

Heb ik inderdaad over gedacht, maar het kan gaan om 1000 regels, dan wordt het ontwerpen van een userform wel erg veel werk (of kan dat ook snel?) Daarom wou ik het dynamisch doen.

Daarnaast, het lukt al een aardig eind dus moet het laatste stukje toch ook kunnen?

 

[matthiej88]

Heb nog even verder gegoogled. Het viel me in ieder geval op dat op veel fora voor het aanmaken van een commandbutton onderstaande code (inclusief .designer) wordt gebruikt. Daarnaast wordt deze code in een module en niet in de userform geplaatst.

Set UF = ActiveWorkbook.VBProject.VBComponents("UserForm1")
    Set frameCOntrol1 = UF.designer.Controls.Add("Forms.CommandButton.1")

Als ik echter .designer toevoeg krijg ik een foutmelding. Is dit de afgelopen tijd bijvoorbeeld gewijzigd? Ik gebruik office365.

 

[wampier]

in principe is dat niet nodig. Of er eventueel verschil is met 365 weet ik niet, maar je kunt knoppen gewoon toevoegen door ze toe te voegen aan de controls verzameling

zie ook hier

http://www.helpmij.nl/forum/showthr...ons-benoemen?p=5225888&viewfull=1#post5225888

 

[snb]

Het ontwerpen van een userform 'met de hand' is het allersimpelst.

 

[matthiej88]

Het ontwerpen van een userform 'met de hand' is het allersimpelst.

...maar zoals gezegd kost dat teveel tijd en zoek ik een andere oplossing. Daarnaast moet het toch gewoon kunnen?

 

[snb]

Het kost je 'met de hand' altijd minder tijd dan waarmee je nu bezig bent.

 

[wampier]

Het kan ook, voorbeeldcode in het gelinkte topic in mijn vorige reply. In het topic vind je op de latere paginas ook wat voorbeeld excels. Indien je die aan de gang krijgt in 365 dan kun je in principe verder.