Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Punkteingabe verhindern
23.05.2006 08:25:06
masahiro
Hallo zusammen!
Ich möchte dass der Anwender keinen Punkt zur Kennzeichnung der Dezimalstellen verwendet. Dass er keine 0.0 eingeben darf kann ich ja wie folgt realisieren

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Text = "0.0" Then
MsgBox "Deziamleingaben bitte mit Komma (z.B. 0,8)."
End If
End Sub

Wie kann ich jetzt realisieren, dass garkeine x.x eingabe gemacht werden dürfen?
Vielen Dank
Grüße Henning

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Punkteingabe verhindern
23.05.2006 08:33:48
Heiko
Hallo Henning,
was hältst du den davon ?!

Private Sub Worksheet_Change(ByVal Target As Range)
' Zur Not den überwachten Range mit Intersect oder Union noch eingrenzen.
If InStr(Target.Text, ".") > 0 And IsNumeric(Target.Text) Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Deziamleingaben bitte mit Komma (z.B. 0,8)."
End If
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
AW: Punkteingabe verhindern
23.05.2006 08:38:38
masahiro
jep das ist super!
Vielen Dank!
Grüße Henning
Anzeige

169 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige