Datum

Titel

16.04.2024 09:22:11

Wenn Istleer über mehrere Blätter

15.04.2024 23:32:21

Darstellung im IMAGE sehr schlecht

15.04.2024 21:08:34

PDF mit Makro erstellen mehrere Sheets

15.04.2024 18:38:39

Arbeitszeiten Vorlage ergänzen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1040to1044

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Zahlenformatierung - Ausrichtung auf Dezimalpunkt

Forumthread: Zahlenformatierung - Ausrichtung auf Dezimalpunkt
9 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

19.01.2009 15:35:00

Peter

Guten Tag
Ich möchte eine Zahlenspalte so formatieren, dass die Zahlen nach dem Punkt der Vor- und Nachkommastellen trennt, ausgerichtet werden und führende Nullen und nachfolgende Nullen nicht gezeigt werden:
100.000001
1.13
80.13
100.1
.80
Bevor ich in die Vorschau gehe sind die . (Punkte) genau untereinander - kann leider nicht so ins Forum gestellt werden.
Die grösstmögliche Zahl ist 999.99
die kleinstmögliche Zahl ist 0.000001
Die entsprechenden Zahlen werden in der Regel eingegeben und sind nicht das Resultat einer Formelberechnung.
Danke für eine Antwort.
Gruss, Peter

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zahlenformatierung - Ausrichtung auf Dezimalpunkt

19.01.2009 15:43:00

Oberschlumpf
AW: Zahlenformatierung - Ausrichtung auf Dezimalpunkt

19.01.2009 15:48:00

Peter
Benutzerdefiniertes Format

19.01.2009 16:02:43

RS
##0.? für Schweizer... (owT)

19.01.2009 16:06:00

RS
AW: ##0.? für Schweizer... (owT)

19.01.2009 16:32:52

Peter
ohne Punkt, weiss ich nicht (owT)

19.01.2009 16:45:50

RS
AW: Zahlenformatierung - Ausrichtung auf Dezimalpunkt

19.01.2009 16:03:00

c0bRa
AW: Zahlenformatierung - Ausrichtung auf Dezimalpunkt

19.01.2009 16:35:24

Peter
AW: @ c0bRa. noch offen

19.01.2009 17:20:00

Peter

AW: Zahlenformatierung - Ausrichtung auf Dezimalpunkt

19.01.2009 15:43:00

Oberschlumpf

Hi Peter
Meinst du das mit der Ausrichtung so:
Userbild

Ich weiß dazu leider keine Lösung, wollte dir aber bei der Darstellung mit der Grafik helfen.
Ciao
Thorsten

AW: Zahlenformatierung - Ausrichtung auf Dezimalpunkt

19.01.2009 15:48:00

Peter

Hallo Thorsten
Genau! Das wäre das Ziel.
Danke und Gruss, Peter

Benutzerdefiniertes Format

19.01.2009 16:02:43


#'##0,?

soviel ? wie maximale Anzahl Nachkommastellen.
Grüsse RS

##0.? für Schweizer... (owT)

19.01.2009 16:06:00

AW: ##0.? für Schweizer... (owT)

19.01.2009 16:32:52

Peter

Hallo RS
Vielen Dank - so funktioniert das.
Anschlussfrage: Gibt es eine Möglichkeit, dass der Punkt nicht angezeigt wird, wenn keine Nachkommastellen vorhanden sind?
Gruss, Peter

ohne Punkt, weiss ich nicht (owT)

19.01.2009 16:45:50

AW: Zahlenformatierung - Ausrichtung auf Dezimalpunkt

19.01.2009 16:03:00

c0bRa

Hio...
So sollts gehen, wenn deine Schriftart Arial ist:

VBA-Code aus Microsoft Excel Objekt Tabelle1:

Option Explicit

Public Sub test()

    Dim r As Range

    On Error Resume Next

    For Each r In Selection

        r.Value = "'" & WorksheetFunction.Rept(" ", 2 * (4 - InStr(1, r.Value, "."))) & r.Value

    Next

End Sub

Rückmeldung nicht vergessen...

c0bRa
Ein Fachmann ist jemand, der immer mehr über immer weniger weiß, bis er zuletzt alles über nichts weiß.

AW: Zahlenformatierung - Ausrichtung auf Dezimalpunkt

19.01.2009 16:35:24

Peter

Hallo cObRa
Vielen Dank.
Ich habe das versucht umzusetzen. Irgendwie klappt das noch nicht:
Option Explicit


Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
Dim r As Range
On Error Resume Next
For Each r In Sh.UsedRange
r.Value = "'" & WorksheetFunction.Rept(" ", 2 * (4 - InStr(1, r.Value, "."))) & r.Value
Next
End Sub

Mit Selection klappt es nicht, da ja nach der Eingabe die nächste Zelle selektiert ist. Aber auch mit UsedRange ist noch etwas nicht, wie es sollte.
Gruss, Peter

AW: @ c0bRa. noch offen

19.01.2009 17:20:00

Peter