---

Hallo Community,

ich Suche ein Zellformat, welches ausschließlich Zahlen akzeptiert und deren Dezimalstellen anzeigt, sofern es welche gibt.
Handelt es sich jedoch um eine Ganzzahl, will ich auch keine Dezimalstelle sehen.

Also gebe ich z.B. eine 5 ein, dann will ich auch nur diese 5 sehen und nicht etwa 5,0 oder 5,00 etc.
Gebe ich hingegen 4,25 ein, dann will ich das auch so sehen können: 4,25

Das Problem ist, dass ich damit auch noch weiterrechnen muss, also kann ich die Zellen nicht einfach als "Text" formatieren

Ich bin mittlerweile auf dieses Zellformat hier gestoßen:
#.##0,??
Das Problem dabei ist, dass jetzt IMMER ein Komma angezeigt wird.
Also aus 5 wird 5, 

Gibt es vielleicht eine Lösung, die Dezimal-Nullen sauber zu unterdrücken und auch das Komma nur bei Bedarf erscheinen zu lassen?

Ich hoffe, Ihr könnt mir helfen.
Vielen Dank,
Nina

------------------
Nichts auf der Welt ist so gerecht verteilt wie Intelligenz.
Jeder ist der Meinung, genug davon zu besitzen. [René Descartes]
Ist das nicht wunderbar?!?    
System-Info | Bildschirmaufzeichnung | Creo 1 | Richtig fragen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Da dürftest du schon einiges verstellt haben...

Starte ich Excel und öffne eine Tabelle, dann kann ich 5,25 eingeben und sehe 5,25.
Gebe ich hingegen 5 ein sehe ich nur 5. Also wie von dir gewünscht.

Formateinstellung: Allgemein

------------------
Grüsse

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Standard-Format und über Daten->Gültigkeit nur Dezimalzahlen zulassen

------------------

Gruß Thomas
CADdog, the dog formerly known as TR

AutoCAD spricht mit einem, aber viele hören nicht zu.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von CADdog:
...Standard-Format und über Daten->Gültigkeit nur Dezimalzahlen zulassen...

---

Danke CADdog!
Sooo einfach, wenn man's weiss!!! 

Vielen lieben Dank,
Nina

------------------
Nichts auf der Welt ist so gerecht verteilt wie Intelligenz.
Jeder ist der Meinung, genug davon zu besitzen. [René Descartes]
Ist das nicht wunderbar?!?    
System-Info | Bildschirmaufzeichnung | Creo 1 | Richtig fragen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Leider zu früh gefreut.
Die Felder sind bei mir so schmal, dass die Werte jetzt aufgerundet werden, statt meinetwegen notfalls durch das Nummersymbol # ersetzt zu werden. Also aus der Eingabe 2,75 wird in der Tabelle eine 3
Erst, wenn ich die Spaltenbreite verdreifache, sehe ich tatsächlich die 2,75

Gibt es dafür auch noch eine Lösung?

Danke im Voraus!
LG, Nina

------------------
Nichts auf der Welt ist so gerecht verteilt wie Intelligenz.
Jeder ist der Meinung, genug davon zu besitzen. [René Descartes]
Ist das nicht wunderbar?!?    
System-Info | Bildschirmaufzeichnung | Creo 1 | Richtig fragen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Formatieren? 

Aber mal Scherz beiseite, wie schaut es mit einer bedingten Formatierung aus?

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Patrick Weber:
...wie schaut es mit einer bedingten Formatierung aus?

---

Du meinst, dass die Spalte automatisch breiter wird, falls eine Zahl aus mehr als nur einem Zeichen besteht?
Das habe ich wieder verworfen, weil die Spalte nicht wieder automatisch schmaler wird, nachdem die Zahl sich wieder zu einer 1-stelligen gändert hat.

Oder übersehe ich etwas?

Liebe Grüße,
Nina

------------------
Nichts auf der Welt ist so gerecht verteilt wie Intelligenz.
Jeder ist der Meinung, genug davon zu besitzen. [René Descartes]
Ist das nicht wunderbar?!?    
System-Info | Bildschirmaufzeichnung | Creo 1 | Richtig fragen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

xl_2003_BeiGanzzahl_und_Kommazahl_verschiedene_Formatierung.zip

quick & dirty

Wenn das Tabellenblatt diesen Code enthält, dann werden die Zellen je nach Eingabe "just in time" formatiert.

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Err
   
    If InStr(Target.Value, ",") > 0 Then
        Target.NumberFormat = "0.00"
    Else
       Target.NumberFormat = "0"
    End If
Err:
    Exit Sub
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Thomas Harmening:
...quick & dirty...

---

COOOOOL! 

Danke Thomas,

das klappt ja tadellos! 
Damit kann ich auf jeden Fall arbeiten!

Viielen Dank!
Liebe Grüße,
Nina

------------------
Nichts auf der Welt ist so gerecht verteilt wie Intelligenz.
Jeder ist der Meinung, genug davon zu besitzen. [René Descartes]
Ist das nicht wunderbar?!?    
System-Info | Bildschirmaufzeichnung | Creo 1 | Richtig fragen

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

Zitat:

---

Original erstellt von Frau-PROE:
Du meinst, dass die Spalte automatisch breiter wird, falls eine Zahl aus mehr als nur einem Zeichen besteht?
Das habe ich wieder verworfen, weil die Spalte nicht wieder automatisch schmaler wird, nachdem die Zahl sich wieder zu einer 1-stelligen gändert hat.

---

hmm, hmm,
ich versteh ja schon nicht das WARUM der unterschiedliche Unterscheidung der Formatierung der Zellen ob Ganz- oder Fließkommazahl - aber machbar ist es ja ;)
Ebenso machbar ist dein Wunsch nach dem Jojo-Effekt der Spalten ;)

Target.Columns.AutoFit  'lässt die Spaltenbreite anhand der aktuellen Zelle definieren -unabhängig davon ob andere Zellinhalte in der Spalte mehr Anspruch an den Platz benötigen..
Columns(Target.Column & "," & Target.Column).AutoFit  'die Spaltenbreite anhand der bestgefülltesten Zelle in der Spalte.

Je nachden was nun genau deinen Vorstellung entspricht, das " ' " entfernen ;)

Code:

---

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Err
   
    If InStr(Target.Value, ",") > 0 Then
        Target.NumberFormat = "0.00"
    Else
       Target.NumberFormat = "0"
    End If
      
    'Target.Columns.AutoFit         'Breite anhand der aktuellen Zelle
    'Columns(Target.Column & "," & Target.Column).AutoFit  'Breite anhand der aktuellen Spalte
Err:
    Exit Sub
End Sub

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP