getal kopieren met behoud van opmaak

  • Onderwerp starter Onderwerp starter koenn
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

koenn

Gebruiker
Lid geworden
4 mrt 2009
Berichten
25
met onderstaande code wil ik bereiken dat, als checkbox1=true hij op de sheet berekeningen een bepaalde tekst in een cel zet. Dit werkt allemaal naar behoren maar nu heb ik het volgende probleem:
in de te plaatsen tekst moet een waarde komen uit een andere cel. Deze waarde staat op sheet berekeningen in cel D11. Deze waarde is het resultaat van een formule en is opgeslagen als een getal met 1 decimaal. Zodra deze samen met de tekst op de andere sheet wordt geplaats verdwijnt de instelling en staat het getal dus met tig decimalen tussen de tekst. dus bijvoorbeeld "tekst 9.1564654564 testing"
hoe kan ik dit aanpassen dat hij de zichtbare en niet de werkelijke waarde neemt van cel D11???

Code:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Sheets("voorbeeld").Range("A" & Rows.Count).End(xlUp).Offset(2, 0) = ("tekst " & Sheets("Berekeningen").Range("D11") & " testing")

End If
 
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Sheets("voorbeeld").Range("A" & Rows.Count).End(xlUp).Offset(2, 0) = "tekst " & format(Sheets("Berekeningen").Range("D11").value,"0.00") & " testing"
End Sub
 
bedankt voor de snelle reactie, het werkt:) weer een stukje dichter bij het voltooien van mijn afstudeeropdracht.:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan