10322535,25
das Folgende macht:
10.322.535,25
Und natürlich eine Funktion, die das Ganze wieder rückgängig macht.
Kann mir jemand helfen?
Sub Makro1()
Selection.NumberFormat = "#,##0.00"
End Sub
Sub Makro2()
Selection.NumberFormat = "0.00"
End Sub
Function AddTDots(zahl as long) as string
'hier werden die Punkte eingefügt und das Ganze in der Variablen zahlneu gespeichert
AddTDots = zahlneu
End Function
Sub mittpkt()
cells(1,1).NumberFormat ="#,##0.00"
End Sub
Sub ohnetpkt()
cells(1,1).NumberFormat ="0.00"
End Sub
Function AddTDots(zahl As Long) As String
'Die hier die Punkte einfügt
End Function
Um in Excel ein 1000er Trennzeichen (Punkt) in Zahlen zu verwenden oder zu entfernen, kannst Du folgende Schritte ausführen. Diese Anleitung geht davon aus, dass Du mit VBA arbeitest.
Excel öffnen und die Datei auswählen, in der Du die Änderungen vornehmen möchtest.
Visual Basic for Applications (VBA) Editor öffnen: Drücke ALT + F11
.
Neues Modul hinzufügen: Klicke im Menü auf Einfügen
und dann auf Modul
.
VBA-Code einfügen: Verwende den folgenden Code, um eine Funktion zu erstellen, die das 1000er Trennzeichen hinzufügt:
Function AddTDots(zahl As Double) As String
Dim zahlneu As String
zahlneu = Format(zahl, "#,##0.00")
AddTDots = zahlneu
End Function
Funktion testen: Gehe zurück zu Excel, und rufe die Funktion in einer Zelle auf, z.B. =AddTDots(10322535.25)
. Das Ergebnis sollte 10.322.535,25
sein.
Um das 1000er Trennzeichen zu entfernen, kannst Du eine weitere Funktion erstellen:
Function RemoveTDots(text As String) As Double
text = Replace(text, ".", "")
text = Replace(text, ",", ".")
RemoveTDots = CDbl(text)
End Function
Funktion testen: Rufe die Funktion in einer Zelle auf, z.B. =RemoveTDots("10.322.535,25")
. Das Ergebnis sollte 10322535.25
sein.
Falsches Ergebnis bei der Formatierung: Stelle sicher, dass die Eingabe als Zahl und nicht als Text vorliegt. Du kannst die Funktion Val()
verwenden, um sicherzustellen, dass die Eingaben als Zahl behandelt werden.
VBA funktioniert nicht: Überprüfe, ob Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter
und aktiviere Makros aktivieren
.
Funktion gibt Fehler zurück: Achte darauf, dass die Eingabewerte in der richtigen Form sind. Die Funktion RemoveTDots
erwartet einen String, der korrekt formatiert ist.
Falls Du keine VBA-Programmierung verwenden möchtest, kannst Du die Excel-Funktion FORMAT() nutzen. Mit dieser kannst Du Zahlen ebenfalls formatieren, allerdings nicht direkt in einer Funktion, die einen Rückgabewert liefert.
Eine einfache Möglichkeit, um 1000er Trennzeichen in Excel zu verwenden, ist:
Zellen formatieren
wählen.Zahl
das Format mit 1000er Punkt und zwei Dezimalstellen auswählen.Beispiel für die Funktion AddTDots:
MsgBox AddTDots(1234567.89) ' Gibt "1.234.567,89" aus
Beispiel für die Funktion RemoveTDots:
MsgBox RemoveTDots("1.234.567,89") ' Gibt 1234567.89 aus
Diese Beispiele zeigen, wie die Funktionen in der Praxis verwendet werden können, um mit dem 1000er Trennzeichen Excel zu arbeiten.
Schnelle Umwandlung ohne VBA: Du kannst auch die TEXT()
Funktion in Excel verwenden, um Zahlen mit einem 1000er Punkt zu formatieren. Beispiel: =TEXT(A1;"#.##0,00")
.
Automatisches Entfernen von Trennzeichen: Wenn Du regelmäßig Daten importierst, kannst Du den VBA-Code so anpassen, dass er automatisch beim Öffnen der Datei ausgeführt wird.
Fehlersuche: Nutze den Debugger im VBA-Editor, um Probleme in Deinen Funktionen schnell zu identifizieren.
1. Frage
Wie kann ich alle 1000er Trennzeichen in einem Bereich entfernen?
Antwort: Du kannst eine Schleife in VBA verwenden, um alle Zellen in einem Bereich zu durchlaufen und die Funktion RemoveTDots
anzuwenden.
2. Frage
Kann ich die Funktionen auch für andere Zahlenformate anpassen?
Antwort: Ja, Du kannst die Formatierungszeichen in den Funktionen anpassen, um verschiedene Formate zu unterstützen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen