Spaltenbereich mit "0" resp. DAtum formatieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub formatNumbers() Dim rng As Range On Error Resume Next For Each rng In Columns(1).SpecialCells(xlCellTypeConstants, xlNumbers).Cells If rng >= 10000 Then rng.NumberFormat = "dd.MM.yyyy" Else rng.NumberFormat = "General" End If Next End Sub

Hi Peter,
das kannst du auch ohne VBA erreichen, indem du ein benutzerdefiniertes Zahlenformat mit Bedingungen wählst.
In B1 steht das Format.
(Das ist keine "bedingte Formatierung".)

	A	B
1	Standard	[<10000]0,00;[>99999]0;TT.MM.JJJJ
2	456	456,00
3	9999	9999,00
4	10000	18.05.1927
5	45678	21.01.2025
6	99999	13.10.2173
7	100000	100000
8	456789	456789

Formeln der Tabelle

Zelle	Formel
B2	=A2
B3	=A3
B4	=A4

Hier werden Zahlen unter 10000 mit zwei Nachkommastellen, Zahlen über 99999 mit "0" und alles dazwischen als Datum angezeigt.
Die Grenzen 10000 und 99999 sind gegriffen - damit kannst du leicht spielen und den Datumsbereich wie gewünscht einschränken.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Guten Tag Erich
Ich habe noch eine Verständnisfrage zum Zahlenformat. In der Excel-Hilfe habe ich dazu folgendes gefunden:
****************
Richtlinien zum Anpassen eines Zahlenformats
Wenn Sie ein benutzerdefiniertes Zahlenformat erstellen möchten, beginnen Sie mit der Auswahl eines integrierten Zahlenformats als Ausgangspunkt. Sie können anschließend beliebige Codeabschnitte des Formats ändern, um ein eigenes benutzerdefiniertes Zahlenformat zu erstellen.
Ein Zahlenformat kann bis zu vier Codeabschnitte besitzen, die jeweils durch ein Semikolon getrennt sind. Diese Codeabschnitte definieren das Format für positive Zahlen, negative Zahlen, Nullwerte und Text (in dieser Reihenfolge).
;;;
Sie können z. B. diese Codeabschnitte verwenden, um das folgende benutzerdefinierte Format zu erstellen:
[Blau]#.##0,00_);[Rot](#.##0,00);0,00;"Umsatz "@
Sie müssen nicht alle Codeabschnitte in das benutzerdefinierte Zahlenformat einbeziehen. Wenn Sie für das benutzerdefinierte Zahlenformat nur zwei Codeabschnitte angeben, wird der erste Abschnitt für positive Zahlen und Nullen verwendet, während der zweite Abschnitt für negative Zahlen verwendet wird. Wenn Sie nur einen Codeabschnitt angeben, wird dieser für alle Zahlen verwendet. Wenn Sie einen Codeabschnitt überspringen und einen nachfolgenden Codeabschnitt einbeziehen möchten, dann müssen Sie das
abschließende Semikolon für den zu überspringenden Abschnitt einbeziehen.
********************
Wenn ich nun "unser" Zahlenformat: [99999]0;dd/mm/yyyy anschaue, dann wäre
der String vor dem ersten Semikolon [ der String vor dem zweiten Semikolon [>99999]0 die Definitin für die negativen Zahlen und
der anschliessende String dd/mm/yyyy für die NULL Werte
Diese Definition stimmt hier aber nicht. Ich frage unter anderem auch, weil ich das Format erweitern wollte, so dass mir negative Zahlen rot und mit einem - vornedran gezeigt werden.
Kannst du mich näher in das Geheimnis dieser Definition einführen?
Gruss, Peter

Beliebteste Forumthreads (12 Monate)

	A	B	C	D
1		0,5	1,5	15151
2	[Rot][<1]0,00%;[Blau][<10000]0,00;[Magenta]"ein "TTTT" im "MMMM	50,00%	1,50	ein Dienstag im Juni
3	[Rot][<1]0,00%;[Blau][<10000]0,00;[Magenta]"und "0	50,00%	1,50	und 15151

Spaltenbereich mit "0" resp. DAtum formatieren

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spaltenbereich mit "0" resp. DAtum formatieren

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread