Classe Module

[ExcelAmateur]

Beste helpers,

Ik zag ik dat "rebmog" voor "Bakkerken" een klasse module had gemaakt.zie link
Daar ging het om 120 ToggleButtons, weet dus niet of het voor TextBoxxen ook kan.
Heb geprobeerd om de code aan te passen maar dat lukte niet, vandaar de vraag.

Zoals in onderstaande code deze heb ik voor 42 TextBoxen op een formulier het zelfde.

Boven iedere TextBox staat een Label.
VulTextBoxen loopt de labels langs om te kijken of deze de zelfde inhoud heeft.
Als de Label de zelfde inhoud heeft komt er in de TextBox er onder de zelfde inhoud van de TextBox.

Public L As String
Public T As String

Sub TextBox1_Change()
  L = Label1.Caption
  T = TextBox1.Text
  VulTextBoxen  
End Sub

Het werkt goed maar ik dacht als een klasse module kan, dan word de code ook korter.

Is het niet mogelijk dan is er geen man overboord en hou ik het zo als het nu is.

 

[edmoor]

Dat is zeer wel mogelijk. Hier een voorbeeld voor het Change en DblClick event van een textbox gebaseerd op het voorbeeld van Rebmog.
Bekijk bijlage TextBox_class.xlsm

 

[ExcelAmateur]

edmoor,

Dank je wel voor het antwoord en voorbeeld.
Ik moet over een halfuur weg en zal als ik weer thuis kom ernaar kijken.
Dan trachten het op mijn bestandje over te zetten, zal best wel lukken.

Fijne jaarwisseling en een goed gezond 2015

 

[edmoor]

Hetzelfde gewenst

 

[ExcelAmateur]

edmoor,

Ik dacht het even te doen maar dat val me tegen.

Ik heb op het formulier er 3 Labels bij gezet, met een letter A - B - A - B
Nu is het de bedoeling dat als je b.v.b. in TextBox 1 een getal zet, dat hij dan in TextBox (die de zelfde Caption als Label1 heeft) het zelfde getal plaatst in die Textbox.

Dus Label1 = A en TextBox1 = 5,
dan Label3 = A en in TextBox3 moet dan ook die 5 komen.
Er worden verschillende Letters en Getallen gebruikt.

Ik dacht dat pas ik wel aan maar dacht er duidelijk te makkelijk over.
Is dit wel mogelijk voor de 42 Labels en 42 TextBoxen?

Ik heb de 2 kleine macros die hier voor gebruikt worden erbij gezet.

In ieder geval bedankt voor de tijd die je erin steekt.
Zoals ik in een ander bericht al schreef lukt het niet geen probleem.

 

[edmoor]

Het lijkt me geen probleem maar dan kan je beter even je document plaatsen.

 

[ExcelAmateur]

Edmoor,


Ik heb er nogeens over nagedacht en laat het maar zoals het nu is.
Denk namelijk dat je van de regen in de drup komt.

Een stukje code veranderen/ verbeteren o.k. maar als het een veranderd word komt vanzelf het volgende.
Ik wil het wel een beetje kunnen snappen en volg het vaak met F8, zodat je ziet wat er gebeurd.

In iedergeval bedankt voor je tijd.