Zahl mit Eurozeichen Ausgeben
18.06.2021 12:22:06
Lukas
ich hätte noch eine weitere Frage zum bereits vorliegenden Programm.
Wenn ich im Eingabefenster meine Preise eingetragen habe, dann wird der Preis nicht mit dem Eurozeichen versehen obwohl ich die Zelle als Währung formatiert habe.
Leider erscheint die Zahl in der Zelle dann nicht mit Eurozeichen sondern die Zahl steht in der Zelle und in der Zelle ist dann oben links ein grünes Dreieck klick ich jedoch als Doppelklick auf die Zelle dann erscheint die Zahl als Währung formatiert mit Eurozeichen. Ich möchte jedoch, dass die Zahl direkt nach der Eingabe mit Eurozeichen in der Zelle erscheint ohne einen Doppelklick auf die Zelle machen zu müssen
Die Excel-Datei findet Ihr unter folgendem Link: https://www.herber.de/bbs/user/146662.xlsm
Für das Eingabefenster habe ich folgenden Code:
Private Sub CommandButton1_Click()
'Eingaben in Zellen übernehmen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = Positionhinzufügen.Ordnungszahl.Value
ActiveSheet.Cells(last, 2).Value = Positionhinzufügen.Gewerk.Value
ActiveSheet.Cells(last, 3).Value = Positionhinzufügen.Leistungsbeschreibung.Value
ActiveSheet.Cells(last, 4).Value = Positionhinzufügen.Mengeneinheit.Value
ActiveSheet.Cells(last, 5).Value = Positionhinzufügen.Einheitspreisniedrigst.Value ----------> Kann es sein, dass anstatt Value hier: .NumberFormat = "#,##0.00 "
ActiveSheet.Cells(last, 6).Value = Positionhinzufügen.Einheitspreisdurchschnittlich.Value stehen müsste
ActiveSheet.Cells(last, 7).Value = Positionhinzufügen.Einheitspreishöchst.Value
Unload Positionhinzufügen
End Sub
Hat jemand eine Bessere Idee ?
Danke Grüße Lukas