Code verkleinen

[Atwist]

Hallo

Hoe kan ik onderstaande code verkorten?
En lukt de oplossing ook voor Labels?

Private Sub TextBox1_AfterUpdate()
Range("Calculatie!F2").Value = TextBox1.Value
Label1.Caption = Range("Calculatie!H1").Value
End Sub
Private Sub TextBox2_AfterUpdate()
Range("Calculatie!F3").Value = TextBox2.Value
Label1.Caption = Range("Calculatie!H1").Value
End Sub
Private Sub TextBox3_AfterUpdate()
Range("Calculatie!F4").Value = TextBox3.Value
Label1.Caption = Range("Calculatie!H1").Value
End Sub
Private Sub TextBox4_AfterUpdate()
Range("Calculatie!F5").Value = TextBox4.Value
Label1.Caption = Range("Calculatie!H1").Value
End Sub
Private Sub TextBox5_AfterUpdate()
Range("Calculatie!F6").Value = TextBox5.Value
Label1.Caption = Range("Calculatie!H1").Value
End Sub

 

[snb]

Kijk eens hier: http://www.snb-vba.eu/VBA_Userform_invoercontrole.html

 

[edmoor]

Daar valt weinig aan te verkorten, maar doe het eens zo:

Private Sub TextBox1_AfterUpdate()
    Call CellUpdate("F2", TextBox1.Value)
End Sub

Private Sub TextBox2_AfterUpdate()
    Call CellUpdate("F3", TextBox2.Value)
End Sub

Private Sub TextBox3_AfterUpdate()
    Call CellUpdate("F4", TextBox3.Value)
End Sub

Private Sub TextBox4_AfterUpdate()
    Call CellUpdate("F5", TextBox4.Value)
End Sub

Private Sub TextBox5_AfterUpdate()
    Call CellUpdate("F6", TextBox5.Value)
End Sub

Sub CellUpdate(Cel As String, Waarde As String)
    Sheets("Calculatie").Range(Cel).Value = Waarde
    Label1.Caption = Sheets("Calculatie").Range("H1").Value
End Sub

Overigens vanwege het ontbreken van een voorbeeld document niet kunnen testen.

 

[Atwist]

Ik probeer het via de site van snb, maar het is voor mij nog niet duidelijk hoe zoiets gaat.

 

[edmoor]

Wat ik in #3 plaatste staat komt neer op sectie 2.2 Userform methode II van de site van snb.
Ik denk dat methode III en het gebruik van een Class Module nog wat te hoog gegrepen is voor je, met alle respect.

 

[VenA]

Volgens mij staat het hier al. Maar ik kan het mis hebben:d

https://www.helpmij.nl/forum/showthread.php/950378-Prijs-overnemen-uit-Label-naar-Listbox?p=6207180&viewfull=1#post6207180

 

[edmoor]

Inderdaad

 

[Atwist]

Volgens mij staat het hier al. Maar ik kan het mis hebben:d

https://www.helpmij.nl/forum/showthread.php/950378-Prijs-overnemen-uit-Label-naar-Listbox?p=6207180&viewfull=1#post6207180

@VenA
Inderdaad,
Snap alleen niet waarom ik geen melding kreeg van jou post.
Ik was namelijk met jou post#3 bezig het uitzoeken hoe ik het allemaal simpeler kan.
Mijn excuus dat ik het niet heb gelezen.