Thema: Zahlenformatierung mit Punkt nach der 1. Ziffer

Home

Gruppe

Format

Problem

Wie kann ich Zellen so formatieren, daß nach der ersten Ziffer ein Punkt gesetzt wird? Beispiele: 1 = 1., 10 = 1.0, 123455 = 1.234455

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub FormatEin()
    Worksheets("Data").OnEntry = "Formatting"
End Sub

Sub FormatAus()
    Worksheets("Data").OnEntry = ""
End Sub

Sub Formatting()
    Application.Caller.NumberFormat = "0\." & _
      String(Len(CStr(Application.Caller)) - 1, "0")
End Sub

Beiträge aus dem Excel-Forum zu den Themen Format und Zahl

eine Zelle, 2 Formeln, Zahlen aber getrennt	Counter durch Änderung vom Zelleninhalt hochzählen
VBA - Wochentage, zählenwenn	Zufällige Auslosung mit Anzahlabfrage
Anzahl belegter Spalten pro Zeile	Bedingte Formatierung vor Copy/Paste schützen
String(Zahlen) in Spalten aufteilen	Zahlengruppe Zählen
Datei löschen mit unterschiedlichen Zahlen im Name	Bed. Formatierung, wenn alle Beding. erfüllt.
Telefonnummer automatisch per VBA formatieren	Komplettes Excel Sheet kopieren mit Formaten
Zahlenwerte zählen ab bestimmter Zahl	Bedingte Formatierung per VBA mit Schleife
PQ - Zeichen in Zelle zählen	Aus einer Zahlenreihe sollen alle Zahlen innerhalb
Kartendiagramm per VBA erstellen und formatieren	bedingte Formatierung
Zählenwenn	Zellfarbe per Cond Formatting nach Zellfarbe änder
UserForm im Querformat drucken	Summe aus Texten+Zahl mit Bedingung
Bedingte Formatierung	Teilstringabfrage bei bedingter Formatierung
Bedingte Formatierung mit UND Verknüpfung	SVERWEIS mit Zählenwenn
Größte Zahl finden	Textformat (VBA)
Teilzahlen runden / bestimmte Summe	Bedingte Formatierung Frage
Array in Tabelle kopieren, Verlust von Format	Wert suchen und ab Wert Zahlen addieren
Übernahme in Word Format wird nicht übernommen	VBA, 4 Informationen in 4 Zellen schreiben
bedingte Formatierung mit mehreren Bedingungen	Datum aus Oracle-Abfrage als Datum formatieren
Bedingte Formattierung	Bedingte Formatierung - kleiner als Fehler
Zahlenformat Handynr.	Diagramme und ihr Format
bedingte formatierung per VBA	Bedingte Formatierung bezogen auf 2. Zelle
Formatgleichheit von Zeichenfolgen für SVERWEIS	Zahl von Range herausfinden?
bedingte Formatierung	Bedingte Formatierung
dynamische Ausgabe der Spaltenanzahl bei Argumentensuche	Tabellen - Zellen - Formatieren -
Spaltenanzahl erweitern