ich habe ein Eingabefeld und dort soll ein Euro-Betrag eingegeben werden. Den will ich in eine Zelle schreiben. Dort soll er als Währung (mit Eurozeichen) erscheinen. Bisher ist er als Text eingetragen.
Was muss ich ändern?
Danke Euch.
Sub test()
Dim strEingabe As String
strEingabe = InputBox("Eingabe:")
Range("A1") = CCur(strEingabe)
End Sub
Gruß
Uwe
(:o)