Benutzerdefiniertes Zahlenformat

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo W.Winter,
ich hab leider keine Lösung aber ich verstehe auch dein Anliegen nicht wirklich.
Die 21 oder auch 21,00 sind doch schon unterschiedlich im Format, sind das manuelle Eingaben oder mit einer Formel berechnete Ergebnisse. Dann sollte doch dieses Ergebnis dem entsprechend in das Format gebracht werden , oder?
Des weiteren wie willst du nachher mit dem Nachkommastellen weiter machen wenn 21,50 rauskommt ist das machbar aber bei 21,- ?
Hast du mal eine Musterdatei wo deine vorhandenen Formatierung gemacht sind? Wie der Aufbau aussieht und mit einer kleinen Beispiel wie es nachher aussehen soll.
Bin mir gar nicht sicher ob dies überhaupt umsetzbar ist. Womöglich nur mit VBA.
Gruß Matze

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 And IsNumeric(Target) Then Select Case Target / Int(Target) Case Is = 1 Target.NumberFormat = "0.-" Case Is 1 Target.NumberFormat = "0.00" End Select End If End Sub

Der Sinn von "Genauigkeit wie angezeigt" ist vor allem, dass man simples Addieren und Subtrahieren von Geldbeträgen, wie es bei Buchhaltung und Steuerberatung üblich ist, gnadenlos ohne Sicherheitsvorrichtungen wie RUNDEN durchziehen kann (Kontrollen verwendet man dort sowieso, also Vergleich von Horizontal- und Vertikalsummen).
Um es anders zu benennen: "Genauigkeit wie angezeigt" ist eine globale Einstellungsmöglichkeit, um sich vom Double-Gleitkommatyp (8 Byte) virtuell zu entfernen (in Excel dargestellt als das noch einmal größere Variant mit 16 Byte).
Gefährlich ist höchstens die Verwendung einer Tabelle in einem anderen Kalkulationsprogramm, welches diese Funktion nicht kennt. Und zwar deshalb gefährlich, weil man das ganze Modell anpassen müsste.
Benötigt man zwischendurch dann doch mal eine %-, Zins-, Steuer- oder sonstige Faktoren-Berechnung, kann man deren Genauigkeit in der Berechnung selbst gestalten, um dann bei der Ausgabe wieder einen gerundeten Betrag zu erhalten. Wer ein wenig geübt ist, kann solche Berechnungen dann skaliert mit eigener Genauigkeit durchführen oder eben eine andere Format-Anzeige nutzen. Zumindest einmal spart man auch hier RUNDEN.
Den für die korrekte Ausgabe von Proportionalschriften benötigten längeren Strich erhält man übrigens über ZEICHEN(150) statt normal ZEICHEN(45). Wie aus meiner Datei (erstes Posting) ersichtlich, verschmilzt er leider unschön (zumindest in manchen Prop.-Schriften) mit seinem Nachbarn, wenn es sich nicht gerade um eine fixbreite Schrift wie Courier New handelt.
Nachlieferung:
_-* #.##0,00;-* #.##0,00 ist das normale Zellformat mit "zellfront-bündigem" Minuszeichen
_-* #.##0,;-* #.##0,;, ist das zugehörige bedingte Format zu =REST(A1;1)=0

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Count = 1 And IsNumeric(Target) Then Select Case Target / Int(Target) Case Is = 1 Target.NumberFormat = "0.-?" Case Is 1 Target.NumberFormat = "0.00" End Select End If End Sub

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread