Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
656to660
656to660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Dezimalstellenbedingtes Zellformat

Forumthread: Dezimalstellenbedingtes Zellformat

Dezimalstellenbedingtes Zellformat
29.08.2005 20:54:28
Ralf-Eckhard
Hallo.
Ich möchte, daß wenn man in eine Zelle eine ganze Zahl (z. B. 26) einträgt, daß dann "26 km" erscheint. Gibt man in dieselbe Zelle einen Wert mit Nachkommastellen ein (z. B. 59,5), soll "59,50 €" erscheinen. Ist sowas irgendwie möglich?
Danke im voraus,
Ralf-Eckhard
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dezimalstellenbedingtes Zellformat
29.08.2005 21:41:32
Ramses
Hallo
und was passiert dann bei 59 Euro ?
Die Nachkommastellen 59.00 sind NUR Formate, die "00" stehen nicht in der Zelle drin.
Entspricht als einer ganzen Zahl.
Gruss Rainer
AW: Dezimalstellenbedingtes Zellformat
29.08.2005 22:21:22
Ralf-Eckhard
Hallo Rainer.
Danke für Deinen desillusionierenden aber völlig korrekten Einwand *lach*
Ja, soganz durchdacht ist das irgendwie noch nicht ... muß mir wohl doch nochmal Gedanken über die grundsätzliche Problemstellung und deren Lösungsansätze Gedanken machen :-))
Schönen Abend noch,
Ralf
Anzeige
AW: Dezimalstellenbedingtes Zellformat
29.08.2005 22:30:03
Josef
Hallo Ralf!
Einen Trick gibt's um das ganze umzusetzten!
Formatiere die entsprechenden Zellen als Text!
In das Modul der Tabelle (rechtsklick auf Blattregister &gt Code anzeigen)
kopierst du dann folgenden Code (gilt für Spalte "A")
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
  On Error GoTo ErrExit
  Application.EnableEvents = False
  If InStr(1, Target.Text, ",") = 0 Then
    Target.NumberFormat = "0 ""km"""
  Else
    Target.NumberFormat = "#,##0.00 $"
  End If
  On Error Resume Next
  Target = Target * 1
  On Error GoTo ErrExit
  ErrExit:
  Application.EnableEvents = True
End If
End Sub


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Anzeige
AW: Dezimalstellenbedingtes Zellformat
30.08.2005 00:00:17
Ralf-Eckhard
Hallo Joseph.
Vielen Dank - funktioniert einwandfrei. Leider bin ich nicht der VBA-Profi.
Welchen Teil muß ich ändern wenn die Formatierung für Spalte B (und in einem anderen Tabellenblatt für Spalte C) gelten soll?
Danke im voraus
Ralf
AW: Dezimalstellenbedingtes Zellformat
30.08.2005 00:02:33
Reinhard
Hi Ralf,
in :
If Target.Column = 1 And Target.Count = 1 Then
steht die erste 1 für erste Spalte= A, B=2 usw.
Die zweite 1 prüft nur ab dass nur eine einzige Zelle geändert wurde und kein Bereich.
Gruß
Reinhard
Anzeige
AW: Dezimalstellenbedingtes Zellformat
30.08.2005 00:03:37
Josef
Hallo Ralf!
Target.Column = 2 für Spalte "B", bzw. Target.Column = 3 für "C".
Gruß Sepp

Forumthreads zu verwandten Themen

Dezimalstellen ändern
P.Mackes

Hallo,
mit welcher Tastenkombination lassen sich Dezimalstellen bei Kommas am einfachsten verändern?
Bzw. das Zahlenformat auf % mit 2 Kommastellen ändern. Ctrl+Shift+% reduziert leider immer auf keine nachkommastelle...
mfg, Peter
03.04.2009 01:21:10
Thread-ID: 1066532
1 Beitrag
Anzeige
Dezimalstellen in Textbox
Manuel

Hallo Zusammen,
ich hab mal wieder ein Problem. Und zwar, wie kann ich in einer Textbox, welche ich per VBA aus einer Tabelle auslese, auf 2 Stellen hinterm Komma begrenzen?
Ich habs mal versucht mit: Private Sub UserForm_Activate() 'Legt das Format für TextBox16 auf 2 Stellen nach dem...
29.12.2009 15:18:04
Thread-ID: 1126209
12 Beiträge
feste Anzahl von Dezimalstellen für Variable
Johann Maderer

Hallo,wie kann in VBA einer Variablen eine feste Anzahl von Dezimalstellen zuweisen werden?
Ich kenne zwar die "Format" - Anweisung, aber dieser Befehl muss jedesmal neu beschrieben werden.
Gibt es einen Datentyp, in dem die Anzahl der Dezimalstellen festlegt werden kann?Gruß
Johann
13.04.2002 10:38:06
Thread-ID: 112973
1 Beitrag
Dezimalstellen
Andreas
Hallo Marc,hier mal ein Beispiel:
=WENN(GANZZAHL(A1/A2)*1000(A1/A2)*1000;RUNDEN(A1/A2;4);A1/A2)A1/A2 ist dabei die Berechnung, musst Du durch Deine Ergebnisberechnung ersetzen!Andreas
15.04.2002 12:59:32
Thread-ID: 113311
4 Beiträge
Anzeige
variable Dezimalstellen bei % | Herbers Excel-Forum
Hermann
Hallo,
bei Dezimalzahlen ohne [%] ist es ganz einfach, wenn man variable Dezimalstellen hinter dem Komma möchte:
Mit Format Zahle "Standard" erhält man ...
bei 1 = 1
bei 1,2 = 1,2
bei 1,23 = 1,23
usw.
wie schafffe ich das bei der Formatierung von Prozentwerten?...
01.02.2010 16:02:17
Thread-ID: 1134853
6 Beiträge
Anzeige
Dezimalstellen
Savarol

Ich brächt mal Eure Hilfe, wenn ich mehrere Zahlen mit unterschiedlichen Dezimalstellen mit z.B. kg formatieren möchte und die Stellen beibehalten möchte funtzt das nicht. Mit 0,### "kg" krieg ich bei Zahlen ohne Dezimalstellen das Komma. Hat Jemand ne Lösung?
25.04.2002 16:56:47
Thread-ID: 116332
5 Beiträge
Dezimalstellen
Klaus

Hallo
Das Programm soll eine mir bisher fremde Datei durchsehen und alle enthaltenen Werte auf die angezeigten Dezimalstellen kürzen. Es läuft auch prächtig, mit einer Einschränkung, ich muss die Anzahl der Dezimalstellen kennen. Bei Währungen z.B. zwei Dezimalstellen, bei Tonnagen drei Dez...
15.08.2011 21:29:17
Thread-ID: 1226183
4 Beiträge
ShortCut für Dezimalstellen - FindControl versagt?
Andreas

Hallo Herber Fans,
ich habe mir heute Abend zwecks Vereinfachung des Arbeitens einen ShortCut für Dezimalstellen hinzufügen/ entfernen erstellen wollen. Hierzu nutze ich den .FindControl Befehl und die IDs der beiden Schaltflächen. Aber es funktioniert nicht. Ich habe im Internet nach der B...
07.10.2011 23:01:40
Thread-ID: 1232933
4 Beiträge
Variable in VBA mit mehr als 15 Dezimalstellen
Sebastian

Hallo Experten,
gibt es eine Moeglichkeit, in VBA eine Variable mit mehr als 15 Dezimalstellen zu deklarieren? Die Hoechste Dezimalgenauigkeit hat meines Wissens nach Double mit 15 Dezimalstellen, aber gibt es irgendeinen Weg, die Praezision zu erhoehen?
In meinem aktuellen Fall braeuch...
25.11.2011 12:35:33
Thread-ID: 1239394
2 Beiträge
Dezimaltrennung bei mehr Dezimalstellen
Daniel

Hallo,
ich erhalte Daten aus einer Anwendung, die ich per Makro in Excel erhalte.
Diese Anwendung sendet die Daten mit Punkt als Dezimaltrennzeichen.
Das ist an sich auch kein Problem, im Normalfall werden die Daten trotzdem richtig in mein Excel Sheet geschrieben mit Komma als Tren...
03.02.2012 15:54:24
Thread-ID: 1249103
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum