Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Keine Kommazahlen in Userform eingeben

Keine Kommazahlen in Userform eingeben
26.11.2005 19:24:33
matthias
Hallo Leute!
Habe mal wieder ein kleines Problem!
Ich möchte gern, dass man in ein Userformabfrage nur positive ganze Zahlen eingeben kann.
Habe dazu schon ein Code geschrieben, allerdings noch ohne die Kommageschichte!
Bitte um Hilfe!
Sonnige Grüße aus Hannover
matthias
Hier mein vorläufiges Ergbnis:
Public 

Sub Länge_Change()
'deklarieren der max Bauflächenlänge
Dim Länge As Long
If Me.Länge.Value > 0 And Me.Länge.Value < 100000000 Then
Else
Me.Länge.Value = ""
End If
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Keine Kommazahlen in Userform eingeben
26.11.2005 19:37:19
Matthias
Hallo Matthias,
wie wär's damit:

Sub Länge_Change()
Länge = Application.Max(0, Val(Länge))
Länge = Application.Min(100000000, Val(Länge))
Länge = Int(Länge)
End Sub

Gruß Matthias
AW: Keine Kommazahlen in Userform eingeben
26.11.2005 19:47:03
Hajo_Zi
Hallo Matthias,

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
MsgBox "Bitte vorgegebene Formate verwenden", vbExclamation
End Select
End Sub



AW: Keine Kommazahlen in Userform eingeben
26.11.2005 19:48:59
Josef
Hallo Matthias!
Z.B. so!
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub Länge_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Länge) > 0 Then
  If CDbl(Länge) > 100000000 Then
    Cancel = True
    MsgBox "Wert prüfen!"
  End If
End If
End Sub


Private Sub Länge_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii
  Case 48 To 59
  Case Else
    KeyAscii = 0
End Select

End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Keine Kommazahlen in Userform eingeben
26.11.2005 20:26:21
matthias
Vielen dank!
es klappt! :-) :-)
hab das jetzt so:
Public Sub Länge_Change()
'deklarieren der max Bauflächenlänge
Dim Länge As Long
If Me.Länge.Value > 0 And Me.Länge.Value Else
Me.Länge.Value = ""
End If
End Sub 

Private Sub Länge_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else
KeyAscii = 0
MsgBox "Bitte vorgegebene Formate verwenden", vbExclamation
End Select
End Sub

Habe noch ne kleine Frage, wie kriege ich es hin nur Zahlen nicht wie bei mir von 0 bis irgendwas, sondern von 10000 bis irgendwas?
Sonnige Grüße aus hannover
matthias
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige