Oproep van excel naar TextBox

[sarges]

Hallo,

Ik probeer gegevens op te roepen van Excel naar een Textbox.
1 cel is geen probleem, of D5 + E5 + F5...enz maar dat wordt erg lang.
Het zal vast korter kunnen maar ik weet niet hoe.

Groet,

Serge

Private Sub CommandButton1_Click()
CODE = Range("D5:Z5").Select
[COLOR="red"]TextBox1.Value =  CODE  'hier wat er geselcteerd is in Range("D5:Z5").Select[/COLOR]
TextBox2.Value = Range("C4").Value
End Sub

 

[ExcelAmateur]

sarges,

Probeer het zo eens.

Private Sub CommandButton1_Click()
  TextBox1.Value = "=SUM(""D5:Z5"")"
  TextBox2.Value = Range("C4").Value
End Sub.

 

[sarges]

ExcelAmateur,

Er komt alleen maar =SUM("D5:Z5") in de TextBox.
Het is geen uitkomst van een som wat in de TextBox moet komen.
Het is de waarde wat in de cel staat.

TextBox1.Value = Range("D5").Value & "  " & Range("E5").Value

 

[Mark xl]

Hoi Serge,

Gebruik

TextBox1.Value = Worksheetfunction.Sum(Range("D5:Z5"))

Of

TextBox1.Value = Application.Sum(Range("D5:Z5"))

Of

TextBox1.Value = Evaluate("Sum(D5:Z5)")

De laatste kan ook met blokhaken ipv "Evaluate(...)" nl:

TextBox1.Value = [Sum(D5:Z5)]

maar dat wordt niet beschouwd als netjes programmeren. (mocht je je daar wat van aantrekken uiteraard )

Worksheetfunction.Sum is de snelste manier (daar merk je echter helemaal niets van bij dit voorbeeld)

Evaluate is de enige manier om dynamisch een werkbladfunctie te gebruiken in excel. omdat je een string kunt samenstellen en deze later kan evalueren.

Succes ermee in elk geval..!
Mark.

 

[sarges]

Ha Mark,

Probeer me het wel aan te trekken, maar het is ook best moeilijk als hobbyist
Ik ga er mee aan de slag, bedankt.

Ook ExcelAmateur bedankt voor je aangeboden hulp.

Groet,

Serge