Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Textfeld nur an erster Stelle ein "-" zulassen
18.02.2007 18:51:18
spillo
Hallo Liebe Profis,
brauche bitte eure Hilfe.
Ich habe mir folgendes VBA erstellt, in dem ich bei einer Textbox nur Zahlen, Bckspace und Minuszeichen zulasse. Gibt es eine Möglichkeit, dass ich noch Prüfe, dass das Minuszeichen (wegen Negativbetrag) NUR einmal an der ersten Stelle eingegeben werden darf?
Private Sub Zahleneingabe(KeyAscii)
' nur Ziffern und Komma können in Textbox eingegeben
' Punkte als "," umwandeln
If KeyAscii = Asc(".") Then KeyAscii = Asc(",")
' Nur Ziffern und Rückschritt erlaubt
If KeyAscii Asc("1") And KeyAscii Asc("2") And _
KeyAscii Asc("3") And KeyAscii Asc("4") And _
KeyAscii Asc("5") And KeyAscii Asc("6") And _
KeyAscii Asc("7") And KeyAscii Asc("8") And _
KeyAscii Asc("9") And KeyAscii Asc(",") And _
KeyAscii vbKeyBack And KeyAscii Asc("0") And _
KeyAscii Asc("-") Then
KeyAscii = 0
End If
' Nur EIN Komma erlaubt
If InStr(1, TextBox2.Text, ",") 0 And KeyAscii = Asc(",") Then KeyAscii = 0
..
Vielen Dank für Eure Hilfe!!
Schönen Abend noch.
lg
Spillo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfeld nur an erster Stelle ein "-" zulassen
18.02.2007 19:06:00
Josef
Hallo ?,
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    
    Select Case KeyAscii
        Case 44, 46
            If InStr(1, TextBox1, ",") = 0 Then
                KeyAscii = 44
            Else
                KeyAscii = 0
            End If
        Case 45
            If Len(TextBox1) > 0 Then KeyAscii = 0
        Case 48 To 57
        Case Else
            KeyAscii = 0
    End Select
    
End Sub

Gruß Sepp
Anzeige
AW: Textfeld nur an erster Stelle ein "-" zulassen
18.02.2007 19:15:00
Spillo
Hallo Sepp,
vielen Dank für die rasche Hilfe.
Wenn ich jetzt deinen VBA-Code gegen meinen austausche, dann funktioniert generell keine Eingabe von "-" und auch mehrer "," sind jetzt wieder möglich.
Was mache ich falsch?
lg
Spillo
AW: Textfeld nur an erster Stelle ein "-" zulassen
18.02.2007 19:19:00
spillo
Sorry Sepp,
ich habe den Fehler gefunden. Habe zu wenig geschaut.
TextBox2 hieß ja mein Feld.
Hat sich also geklärt.
Vielen herzlichen Dank für die Hilfe!!!!!
lg
Spillo

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige