Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen für Zahlen mit Komma formatieren

Forumthread: Zellen für Zahlen mit Komma formatieren

Zellen für Zahlen mit Komma formatieren
03.06.2004 15:53:37
Norbert
Hallo liebe Forumleute!
Kann mir bitte jemand bei einem Problem helfen? Ich habe kaum Kenntnisse in VBA, bitte daher um eine genaue Skriptangabe, wenn möglich!
Es geht darum, dass ich eine Zelle so formatieren möchte, dass NUR die Eingabe einer ZAHL MIT KOMMA möglich ist und NICHT mit Punkt!
Beispiel: 6,45 und NICHT 6.45 (2 Nachkommastellen und maximal 4 Vorkommastellen sollen möglich sein!)
Mit der "normalen" Zellenformatierung im Excel komme ich nicht weiter; habe ich schon ausprobiert, auch benutzerdefiniert; aber vielleicht habe ich auch etwas übersehen.
Aber mit VBA müßte das doch im Hintergrund möglich sein, oder? Und wenn ja, wie?
Es kann auch sein, dass bei falscher Eingabe, also z.B. mit einem Punkt als Trennzeichen eine Fehlermeldung kommt und erneut zur richtigen Eingabe auffordert; muß aber nicht.
Ich danke euch jetzt schon für die Hilfe!
Liebe Grüße
Norbert
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen für Zahlen mit Komma formatieren
Michael
Hallo Norbert,
so geht's:
1.
VBA Editor starten (Alt+F11)
2.
im "Projekt" Fenster die gewünschte Tabelle doppelt anklicken
3.
folgenden Code einfügen

Private Sub Worksheet_Change(ByVal Target As Range)
' Vergleiche, ob Inhalt der Zelle "." enthält
If InStr(1, Target.Value, ".") > 0 Then
' Fehlermeldung, wenn ja
MsgBox "Der Wert in Zelle " & Target.Address & " ist ungültig." _
& vbLf & "Bitte geben Sie Dezimalwerte mit Komma statt " & _
"mit Punkt ein !"
' Cursor zurück auf die Zelle mit falschem Inhalt setzen
Target.Select
End If
End Sub

Dieses Makro wirkt natürlich auf das gesamte Arbeitsblatt !
CIAO
Michael
Anzeige
AW: Zellen für Zahlen mit Komma formatieren
Norbert
Hallo Michael,
ich danke dir sehr, der Skript funktioniert super!
Du hast mir sehr geholfen damit!
Schönes Wochenende und liebe Grüße,
Norbert
AW: Zellen für Zahlen mit Komma formatieren
03.06.2004 16:36:29
Heinz
Hallo Norbert,
vielleicht hilft dir auch DATEN-Gültigkeit weiter.
Bei Zulassen: Dezimal und dann den kleinsten und größten Zahlenwert eingeben.
Gruß Heinz
Anzeige
AW: Zellen für Zahlen mit Komma formatieren
WernerB.
Hallo Norbert,
der nachstehende Code gehört in das Modul des betreffenden Tabellenblattes.
Als Eingabezelle habe ich "$A$1$" angenommen (musst Du ggf. anpassen).
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Meld As String
Dim Pruef As Boolean
If Target.Address <> "$A$1" Then Exit Sub
If Target.Text <> "" Then
If Not IsNumeric(Target.Text) Then
Pruef = True
Meld = "Eingabe ist nicht numerisch !"
End If
If Pruef = False Then
If InStr(Target.Text, ",") = 0 Then
Pruef = True
Meld = "Eingabe enthält kein Komma !"
End If
End If
If Pruef = False Then
If InStr(Target.Text, ",") > 5 Then
Pruef = True
Meld = "Eingabe enthält zuviel Vorkommastellen !"
End If
End If
If Pruef = False Then
If Len(Target.Text) > InStr(Target.Text, ",") + 2 Then
Pruef = True
Meld = "Eingabe enthält zuviel Nachkommastellen !"
End If
End If
If Pruef = True Then
Target.Select
MsgBox Meld & vbCr & vbCr & "Eingabe wird gelöscht !", _
vbOKOnly + vbCritical, _
"Dezenter Hinweis für " & Application.UserName & ":"
Target.ClearContents
End If
End If
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
AW: Zellen für Zahlen mit Komma formatieren
Norbert
Hallo WernerB,
ich danke dir ebenfalls sehr, der Skript funktioniert auch super!
Jetzt muß uch mich nur noch entscheiden, welchen ich nehme! ;-)
Ebenso ein schönes Wochenende und liebe Grüße,
Norbert
;

Forumthreads zu verwandten Themen

Werte untereinander zu werten nebeneinander.
astis

Hallo ich habe folgende Situation.
Ich habe eine Liste mit Daten. Diese sieht in etwa so aus:
Max Müller Blond
Max Müller 190 cm
Max Müller Beamter
Dieter Sonstwie Lehrer
Sabine Franke 165cm
Sabine Franke Krankenschwester
hierbei steht der name in Spalte 1 und di...
21.12.2008 02:05:00
Thread-ID: 1034511
3 Beiträge
Werte untereinander zu werten nebeneinander.
astis

Hallo ich habe folgende Situation.
Ich habe eine Liste mit Daten. Diese sieht in etwa so aus:
Max Müller Blond
Max Müller 190 cm
Max Müller Beamter
Dieter Sonstwie Lehrer
Sabine Franke 165cm
Sabine Franke Krankenschwester
hierbei steht der name in Spalte 1 und di...
28.12.2008 01:18:01
Thread-ID: 1035510
5 Beiträge
untereinanderstehende Werte via VBA umformatieren
Harry

Hallo zusammen,
ich habe folgendes Problem, das ich gerne mit VBA lösen möchte:
Und zwar habe ich eine Tabelle, in der untereinander in verschiedenen Spalten Werte stehen, die ich auf einem weiteren Tabellenblatt hintereinander ausgeben möchte.
Ich benötige dazu ein Makro, das bspw....
30.03.2009 19:56:28
Thread-ID: 1065412
5 Beiträge
Anzahl + und - von Prozentzahlen mit Kommas zählen
Prozentzahlen

Hallo,
ich bekomme das nicht hin. Ich sollte werte aus einer Spalte mit mehr als 2000 Zellen, welche Prozentzahlen positiv wie negativ wie z.B. -10,25%, +23,56%, -73,27% oder +33,68% usw. beinhalten. Dann sollte das ganze in 10% Schritten zusammengerafft werden können, sprich Anzahl der Zah...
09.07.2009 15:10:03
Thread-ID: 1087444
5 Beiträge
Anzahl Zeilen(umbrüche) in einer Zelle ermitteln
Andreas

Hallo Excel-Profis
Ich hoffe ihr könnt mir bei folgenden Problem helfen:
Gibt es eine Formel mit deren Hilfe sich die Anzahl der Zeilen oder Zeilenumbrüche in einer Zelle (verbundenen Zelle) ermitteln lässt?
Ich bedanke mich im Voraus für alle Tipps und Lösungen
07.10.2009 14:55:35
Thread-ID: 1107846
3 Beiträge
Römischen Zahlen mit Beschriftung trennen
Daniel

Hallo,
habe eine Liste mit Kategorien die mit Römischen Zahlen nummeriert sind, z.B.:
I Allgemeines
II Definition
III Inhalt
Ich möchte nun in einer Spalte die Römische Zahl stehen haben und in einer weiteren Spate die Beschriftung.
Beispielexcel hier: https://www.herber...
11.01.2014 13:27:10
Thread-ID: 1344858
4 Beiträge
csv files mit Komma trennen
Kneubühler Thomas

Ich möchte meine .csv files defaultmässig mit Komma getrennt haben. Bei meiner Privaten WS kann ich in den Ländereinstellungen den Separator auf Komma setzen und es funktioniert. In der Firma ist es nach jedem Reboot weg. Kann da eine Policy schuld sein? Oder wie kann ich das einstellen?
Bet...
23.07.2002 10:54:58
Thread-ID: 139327
2 Beiträge
Anzeige
Euro-Werte mit Komma importieren, NumberFormat
Mario

Hallo,
ich importiere aus einer Textdatei Zahlenwerte, und möchte diese als Euro-Werte mit zwei Nachkommastellen in Excel anzeigen. Hierfür benutze ich:
Worksheets("Verkäufe").Range("E:F").NumberFormat = "#,##0.00 €"
In der Textdatei sind die Werte getrennt durch Semikolon mit 0-2 N...
30.11.2014 12:46:41
Thread-ID: 1395340
3 Beiträge
.csv files mit Komma trennen
Thomas Kneubühler

Ich möchte meine .csv files defaultmässig mit Komma getrennt haben. Bei meinem Privaten PC kann ich in den Ländereinstellungen den Separator auf Komma setzen und es funktioniert. In der Firma ist es nach jedem Reboot weg. Kann da eine Policy schuld sein? Oder wie kann ich das einstellen?
Bet...
25.07.2002 07:50:50
Thread-ID: 140269
2 Beiträge
Dezimahlzahlen mit 2 Nachkommastellen
Karl

Hallo zusammen,
ich habe festgestellt Dezimalzahlen in Excel unterschiedlich dargestellt werden.
Bsp.: Zelle 10,00 Bearbeitungszeile 10
Zelle 10,95 Bearbeitungszeile 10,95
Zelle 10,40 Bearbeitungszeile 10,4
Das Problem ist wenn ich diese Excel Tabelle in eine CSV-Datei umge...
20.03.2015 17:41:12
Thread-ID: 1416246
3 Beiträge
Summewenn mit Textstring in anderer Spalte
Maris

Hallo zusammen,
ich finde leider keine Lösung.
Ich habe eine Formel:
=SUMMEWENN($B$6:$B$1000;"*Suchwort*";$E$6:$E$10000)
Hier fest das Suchwort hinterlegt. Ich möchte aber das das Suchwort (Textstring) in der Zelle D3 frei vergeben werden kann und dynamisch in der Formel steht a...
21.07.2017 11:30:33
Thread-ID: 1570314
3 Beiträge
VBA Zahlen mit Nachkommastellen
Jens

Hallo zusammen,
ich habe folgendes Problem mit meinem Excel Makro.
Ich lese aus einem Tabellenblatt bestimmte Werte aus und möchte diese auf dem ersten Tabellenblatt gesammelt schreiben.
An sich funktioniert das ganze auch, jedoch werden Werte mit Nachkommastellen im ersten Blatt fa...
11.09.2017 12:22:26
Thread-ID: 1579704
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige