folgendes Problem:
Ich möchte in einem Label einen Wert aus einer Excel Tabelle übernehmen. Dieser soll in einen Text eingebettet sein. Zudem soll der Wert auf drei Nachkommastellen gerundet werden.
Den Wert in ein Label zu übernehmen und einzubetten ist kein Problem, allerdings bekomme ich es mit dem Runden nicht hin!
Den Quelltext den ich beifüge bewirkt eine Änderung der ausgewählten Zelle - sprich er löscht die darin enthaltene Formel! (...das ist nicht so schön...)
Kann mir einer sagen, wie ich den Wert einer Zelle auslesen kann und in einem Label wiedergeben (in gerundeter Form) ?
hier mein Quelltext:
Private Sub UserForm_Initialize()
Dim ber As Range
Dim Zelle As Range
Sheets("Tabelle1").Activate
Set ber = Range("b15")
For Each Zelle In ber
ber.Select
Zelle.Value = Application.Round(Zelle.Value, 3)
Next Zelle
Label1.Caption = "Der exakte Sparrenabstand beträgt: " & Worksheets(1).Range("b15") & " m"
End Sub