meerdere textbox-Change() vereenvoudigen

[Eastw00d]

ik heb een kleine 36 textboxen die ik verander dmv deze code

Private Sub leeg1_Change()
    Worksheets("DS").Range("B2") = Me("leeg1").Value
End Sub
Private Sub leeg2_Change()
    Worksheets("DS").Range("B3") = Me("leeg2").Value
End Sub
Private Sub leeg3_Change()
    Worksheets("DS").Range("B4") = Me("leeg3").Value
End Sub
Private Sub leeg4_Change()
    Worksheets("DS").Range("B5") = Me("leeg4").Value
End Sub
Private Sub leeg5_Change()
    Worksheets("DS").Range("B6") = Me("leeg5").Value
End Sub
Private Sub leeg6_Change()
    Worksheets("DS").Range("B7") = Me("leeg6").Value
End Sub
Private Sub leeg7_Change()
    Worksheets("DS").Range("B8") = Me("leeg7").Value
End Sub
Private Sub leeg8_Change()
    Worksheets("DS").Range("B9") = Me("leeg8").Value
End Sub

is dit te vereenvoudigen? zo ja hoe?

 

[edmoor]

Je veranderd daarmee niet de textboxen.
Je veranderd de inhoud van een cel als de inhoud van een textbox wijzigt.
Plaats eens een voorbeeld en laat weten wat je precies wil.

 

[snb]

Het antwoord:

VBA voor smarties: ActiveX-controls in een werkblad: controle op gebruikersinvoer

snb-vba.eu

 

[AHulpje]

Kijk hier ook eens naar:

 

[Eastw00d]

daar had ik al naar gekeken, maar die werkt alleen bij 1 sheet in je workbook, niet bij meerdere

 

[AHulpje]

Dan heb je niet goed gekeken:

 

[Eastw00d]

ik zie hem niet

 

[AHulpje]

Bij de eigenschappen van een Textbox kun je bij Controlsource werkblad en cel opgeven:

 

[edmoor]

@AHulpje,

Ik zie ook niks.
Het document is na het downloaden corrupt.

 

[AHulpje]

Hm, als ik hem download werkt hij prima. Ik plaats hem nogmaals, is maar een klein bestandje.

 

[edmoor]

Dit gebeurt hier na het downloaden en deblokkeren.
Document wordt dan afgesloten.

 

[AHulpje]

Blijft bij mij na download goed gaan.
Heb nu de Userform1.Show uit de Workbook_Open event verwijderd, lukt het nu wel?

 

[edmoor]

Ja, maar alleen voor A1.
Of heb je dat zo bedoeld?