Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Punkteingabe verhindern

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
Anzeige

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 !
Anzeige
AW: Punkteingabe verhindern
23.05.2006 08:38:38
masahiro
jep das ist super!
Vielen Dank!
Grüße Henning
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige