möchte in eine Textbox eine Währungszahl schreiben:
Private Sub Chart_Activate()
On Error Resume Next
ActiveChart.Shapes("Text Box 2").Select
Selection.Characters.Text = Sheets("Stückliste").Cells(6, 7)
End Sub
leider steht dann z.B. 13.1 dabei sollte 13,10€ drin stehen.
Da es keine Zelle ist kann ich keine Währung umformatieren.
Bitte helft mir!
Gruss
Michael