Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Eintrag auf Zahlen beschränken

Betrifft: Eintrag auf Zahlen beschränken von: Chris
Geschrieben am: 16.09.2004 10:37:58

Hallo zusammen,

habe ein kleines Problemchen und zwar habe ich ein Formular entwickelt, indem ich die Auftragsnummer eingeben kann (txtAuftragsnr)

Ist der Eintrag nicht numerisch (keine Zahl), soll dies ausgegeben werden, ansonsten, soll der Wert eingegeben werden.

Mein Makro:

Dim z As Integer

For z = 1 To 9

If txtAuftragsnr.Value = z Then
MsgBox "Es dürfen nur Zahlenwerte eingegeben werden"
Else
Sheets("Datenblatt").Cells(3, 3).Value = txtAuftragsnr.Value
End If

Next


Beispiel an Eingabe: 10020500

Danke für Eure Hilfe!

LG Chris

  


Betrifft: AW: Eintrag auf Zahlen beschränken von: Magic
Geschrieben am: 16.09.2004 10:44:32

Hallo Chris,

versuch mal:

if isnumeric(txtAuftragsnr.value) then
Sheets("Datenblatt").Cells(3, 3).Value = txtAuftragsnr.Value
else
MsgBox "Es dürfen nur Zahlenwerte eingegeben werden"
End If

Gruß
Michael


  


Betrifft: AW: Eintrag auf Zahlen beschränken von: ransi
Geschrieben am: 16.09.2004 10:45:42

hallo

versuch mal so:
ist aber nicht getestet.

if not isnumeric(txtAuftragsnr.Value) then msgbox "Es dürfen nur Zahlenwerte eingegeben werden"
txtauftragsnr.setfocus
endif
Sheets("Datenblatt").Cells(3, 3).Value = txtAuftragsnr.Value

ransi


  


Betrifft: AW: Eintrag auf Zahlen beschränken von: Annett
Geschrieben am: 16.09.2004 10:54:06

Hallo Chris,

es kommt keine Meldung, es sind aber nur Zahlen möglich.

Private Sub TextBox5_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case 48 To 57
        Case Else: KeyAscii = 0
    End Select
End Sub


Gruß Annett


 

Beiträge aus den Excel-Beispielen zum Thema "Eintrag auf Zahlen beschränken"