Formatproblem

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jessica,
über ein Zellenformat läßt sich eine Eingabe nicht beschränken. Auch mit Gültigkeiten kannst du bei deinen Anforderungen nicht arbeiten. Hier muss vielmehr mit VBA geprüft werden, ob die Eingabe korrekt ist. Folgendes Makro prüft innerhalb der Select Case-Anweisung auf die von dir vorgegebenen Formate und anschließend noch auf den Wertebereich 10.1 bis 10.5. Bei falscher Eingabe erscheint eine Messagebox.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim bln As Boolean
If Target.Address = "$B$5" Then
bln = True
Select Case Len(Target)
Case 1, 2
If Not IsNumeric(Target) Then bln = False
Case 3
If Mid(Target, 2, 1) <> "." Or Not IsNumeric(Left(Target, 1)) _
Or Not IsNumeric(Right(Target, 1)) Then bln = False
Case 4
If (Mid(Target, 2, 1) <> "." Or Not IsNumeric(Left(Target, 1)) _
Or Not IsNumeric(Right(Target, 2))) Or _
(Mid(Target, 3, 1) <> "." Or Not IsNumeric(Left(Target, 2)) _
Or Not IsNumeric(Right(Target, 1))) Then bln = False
Case 6
If Mid(Target, 3, 1) <> "." Or Mid(Target, 5, 1) <> "." _
Or Not IsNumeric(Left(Target, 2)) _
Or Not IsNumeric(Mid(Target, 4, 1)) _
Or Not IsNumeric(Right(Target, 1)) Then bln = False
Case Else
bln = False
End Select
If Target < 10.1 Or Target > 10.5 Then bln = False
If bln = False Then MsgBox "Falsche Eingabe in Zelle B5!", vbCritical
End If
End Sub

Gruß Ingolf

Müssen uns irgend wie missverstanden haben.
Das ich die Fehlermeldung bekomme wenn ich mit dem Button das Format "x.xx" eigebe ist klar ich wollt nur wissen ob man das irgend wie zulassen kann. (Für x werden keine Zahlen eingesetzt).
Und wenn ich x.xx oder xx.x eingebe (mit Zahlen) hat er mir auch eine Fehlermeldung gebracht. Hab aber den Fehler gefunden ein Or musste durch And ersetzt werden.
Und jetzt funktionierts und ich bin glücklich was diese Problem betrifft.
Das andere Problem von vorher hab ich leider noch nicht gelöst, hab deine Frage versucht so gut es geht zu beantworten.
https://www.herber.de/forum/archiv/708to712/t709389.htm (der alte Link)
Hab auch schon eine neue anfrage gestellt: https://www.herber.de/forum/archiv/708to712/t711080.htm
noch zur erleuterung der Dateiname soll auch gespeichert werden (in Spalte B)
Danke für deine hilfe und hoffe du kannst mir bei meinem anderem Problem auch helfen
Jessica

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formatproblem

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread