Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

1000er Trennzeichen (.) bei Zahlen

Forumthread: 1000er Trennzeichen (.) bei Zahlen

1000er Trennzeichen (.) bei Zahlen
15.10.2003 09:55:17
Philipp
Ich suche eine Funktion die aus z.B. der Zahl

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?
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:05:16
Jürgen
Hallo Philipp,
_-* #.##0,00;-* #.##0,00;_-* "-"??;
als benutzerdefiniertes Format einstellen.
Gruß
Jürgen
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:07:05
Philipp
Hi,

ich habe vergessen zu erwähnen, dass es sich um ein VBA Script handel soll!

Trotzdem erstmal danke.
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:06:29
Megatron (Jens)
Hallo Philipp,
Format>Zahl>1000er Trennzeichen???

Gruß
Jens
Anzeige
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:16:25
Dirk
Hallo.

Zellen selektieren und denn so:

Selection.NumberFormat = "#,##0.00"
Selection.NumberFormat = "0.00"

Oder halt ohne Selektion die Zelle direkt ansprechen.

Cells(1, 1).NumberFormat = "0.00"
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:20:38
Philipp
Sry Leute ich habe vergessen zu erwähnen, dass es eine VBA Funktion sein soll!
Anzeige
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:22:52
Megatron (Jens)
Hallo Philiph,


Sub Makro1()
Selection.NumberFormat = "#,##0.00"
End Sub



Sub Makro2()
Selection.NumberFormat = "0.00"
End Sub


Gruß
Jens

ps: Bist Du sicher, dass Dein Level stimmt?
Anzeige
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:29:15
Philipp
Ja, ziemlich sicher. Aber ich habe auch nie gesagt, dass ich die Anzeige von Excel Feldern verändern möchte. Ich möchte eine VBA Funktion die als Rückgabewert die bearbeitete Zahl ausgibt und es könnte ja sein, dass es schon eine solche gibt. Dann muss ich sie nicht selber schreiben.
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:36:08
Megatron (Jens)
Sorry nicht böse sein, wahr nicht ernst gemeint!

Wäre hilfreich wenn Du genau beschreiben würdest was Du willst.

Von wo kommen die Angaben, wo sollen sie hin, sehen die Zahlen immer so aus?

Gruß
Jens
Anzeige
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:39:30
Philipp

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


Die Funktion gibt als Rückgabewert die bearbeitete Zahl als String aus.
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:53:35
Megatron (Jens)
Hallo Philipp,
vielleicht hilft Dir das hier weiter:

AddTDots1 = Left(Cells(5, 2), 2)
AddTDots2 = Mid(Cells(5, 2), 3, 3)
AddTDots3 = Right(Cells(5, 2), 6)
AddTDots = AddTDots1 & "." & AddTDots2 & "." & AddTDots3

Gruß
Jens
Anzeige
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:59:43
Philipp
Hi,

danke für den Tip, aber mein Problem hat weniger mit Zellen zu tun als mit einfachen Variableninhalten.

Habe inzwischen in der Referenz eine Funktion gefunden.

TEXT(wert as variant, numberformat as string) as string
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 11:05:01
Megatron (Jens)
Schön dass Du was gefunden hast!

Wäre gut wenn Du das nächste mal das ganze Problem schildern würdest, das erleichtert die Hilfe erheblich.

Gruß
Jens
Anzeige
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 11:48:03
Philipp
Muss mich verbessern.

Die Funktion TEXT() ist eine Excel Funktion, keine VBA Funktion.

In VBA benötigt man dazu die Funktion format()

Nur, falls jemand das hier liest und auch geholfen werden möchte ;-)
Danke für die Info! o.T.
15.10.2003 11:59:55
Megatron (Jens)
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:25:10
Dirk
Äh naja.
Ist es eigentlich auch.


Sub mittpkt()
cells(1,1).NumberFormat ="#,##0.00"
End Sub



Sub ohnetpkt()
cells(1,1).NumberFormat ="0.00"
End Sub


Die Zelle musst Du dann entsprechend anpassen.
Anzeige
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:31:02
Philipp
Ich möchte nicht die Anzeige von Zellen verändern. Das hätte ich erwähnt. Ich möchte, dass ich als Rückgabewert der Funktion die bearbeitete Zahl bekomme.
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:32:51
Dirk
Sorry, mir ist der Sinn der Sache nicht ganz klar. Kannst Du das Problem in seiner Gesamtheit mal beschreiben?
AW: 1000er Trennzeichen (.) bei Zahlen
15.10.2003 10:35:39
Philipp
Eine Funktion


Function AddTDots(zahl As Long) As String
'Die hier die Punkte einfügt
End Function


und die bearbeitete Zahl zurückgibt.
Anzeige
;
Anzeige

Infobox / Tutorial

1000er Trennzeichen in Excel verwalten


Schritt-für-Schritt-Anleitung

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.

  1. Excel öffnen und die Datei auswählen, in der Du die Änderungen vornehmen möchtest.

  2. Visual Basic for Applications (VBA) Editor öffnen: Drücke ALT + F11.

  3. Neues Modul hinzufügen: Klicke im Menü auf Einfügen und dann auf Modul.

  4. 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
  5. 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.

  6. 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
  7. Funktion testen: Rufe die Funktion in einer Zelle auf, z.B. =RemoveTDots("10.322.535,25"). Das Ergebnis sollte 10322535.25 sein.


Häufige Fehler und Lösungen

  • 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.


Alternative Methoden

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:

  1. Zelle auswählen.
  2. Rechtsklick und Zellen formatieren wählen.
  3. Unter der Kategorie Zahl das Format mit 1000er Punkt und zwei Dezimalstellen auswählen.

Praktische Beispiele

  1. Beispiel für die Funktion AddTDots:

    MsgBox AddTDots(1234567.89) ' Gibt "1.234.567,89" aus
  2. 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.


Tipps für Profis

  • 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.


FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige