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)
Um Text in Währung umwandeln zu können, folge diesen Schritten:
Falls du Daten aus einem Formular übernimmst, kannst du dies auch im VBA-Code umsetzen. Hier ist ein Beispiel:
Sub test()
Dim strEingabe As String
strEingabe = InputBox("Eingabe:")
Range("A1") = CCur(strEingabe)
End Sub
Dieses Skript wandelt die Eingabe automatisch in eine Zahl im Währungsformat um.
Text wird nicht als Währung angezeigt: Stelle sicher, dass die Zelle im richtigen Format (Währung) formatiert ist. Überprüfe auch, ob die Eingabe tatsächlich als Zahl und nicht als Text vorliegt.
Eingabe wird nicht erkannt: Wenn du die Eingabe aus einem Formular übernimmst, achte darauf, dass die übergebene Variable in einen Währungswert umgewandelt wird. Nutze dazu CCur() im VBA.
Wenn du Excel-Text in Währung umwandeln möchtest, gibt es auch andere Methoden:
TEXT-Funktion: Du kannst die TEXT-Funktion verwenden, um Text zu formatieren. Beispiel: =TEXT(A1;"€ #,##0.00") wandelt den Wert in Zelle A1 in das Währungsformat um.
Power Query: Wenn du häufig Daten importierst und umwandeln musst, kannst du auch Power Query verwenden, um die Umwandlung in einem Schritt zu automatisieren.
Umwandlung von Text mit Eurozeichen: Wenn du einen Text wie "100€" hast, kannst du ihn mit der Formel =WERT(WECHSELN(A1;"€";"")) in eine Zahl umwandeln und anschließend in Währung formatieren.
Zahl in Währung umwandeln: Wenn du eine Zahl hast, die beispielsweise in Zelle B1 steht, benutze die Formel =TEXT(B1;"€ #,##0.00"), um sie als Währung darzustellen.
Formatierung anpassen: Wenn du das Währungsformat linksbündig anzeigen möchtest, kannst du die Ausrichtung der Zelle ebenfalls anpassen.
VBA automatisieren: Überlege, ob du VBA nutzen möchtest, um die Umwandlung automatisch durchzuführen, wenn Daten eingegeben oder importiert werden.
Bedingte Formatierung: Setze bedingte Formatierungen ein, um unterschiedliche Währungsbeträge visuell hervorzuheben.
1. Wie kann ich sicherstellen, dass ein Text als Zahl erkannt wird?
Um sicherzustellen, dass ein Text als Zahl erkannt wird, kannst du die Funktion WERT() verwenden, um den Text in eine Zahl umzuwandeln.
2. Kann ich mehrere Währungen in einer Excel-Tabelle verwenden?
Ja, du kannst verschiedene Währungsformate in einer Tabelle verwenden, indem du die Zellen jeweils unterschiedlich formatierst. Achte darauf, die entsprechenden Währungszeichen zu verwenden.