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: