Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
436to440
436to440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bestimmte Zahlenwerte für TB zulassen

Forumthread: Bestimmte Zahlenwerte für TB zulassen

Bestimmte Zahlenwerte für TB zulassen
06.06.2004 20:23:06
Lenny
Hallo zusammen,
wie kann ich ohne eine große if-Abfrage in einer Textbox nur die Eingabe folgender Zahlenwerte: 1, 2, 3, 4, 5, 6, 7, 8.
Es dürfen nur diese Zahlenwerte eingegeben werden.
Gruß
Lenny
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmte Zahlenwerte für TB zulassen
Ramses
Hallo
Zum Beispiel so:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Me.TextBox1 <> "" Then
If Not IsNumeric(Me.TextBox1) Then
MsgBox "Texteingabe nicht erlaubt"
Me.TextBox1 = ""
Cancel = True
Exit Sub
End If
Select Case CInt(TextBox1)
Case Is < 1 > 8
MsgBox "Unerlaubter Wert"
Me.TextBox1 = ""
Cancel = True
Exit Sub
End Select
End If
End Sub

Den Code in die Textbox kopieren
Gruss Rainer
Anzeige
AW: Bestimmte Zahlenwerte für TB zulassen
06.06.2004 20:32:40
Josef
Hallo Lenny!
ZB.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 8, 46, 48 To 57, 96 To 105
Case Else
KeyCode = 0
End Select
End Sub

Gruß Sepp
Korrektur!
06.06.2004 20:34:34
Josef
Hallo nochmal!
So stimmt's!

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case 8, 46, 49 To 56, 97 To 104
Case Else
KeyCode = 0
End Select
End Sub

Gruß Sepp
Anzeige
Hmmm....
Lenny
Korrektur läuft fast so wie ich es haben will, aber ich darf nicht z.B. 88, oder 123 eingeben können; sondern nur die einstellige Zahl 1, 2 ...
Vielleicht hast du ja noch eine Lösung parat.
Gruß
Lenny
AW: Hmmm....
06.06.2004 21:03:02
Josef
Hallo Lenny!

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Len(TextBox1) = 0 Then
Select Case KeyCode
Case 49 To 56, 97 To 104
Case Else
KeyCode = 0
End Select
Else
Select Case KeyCode
Case 8, 46
Case Else
KeyCode = 0
End Select
End If
End Sub

Gruß Sepp
Anzeige
SUPER, Danke... o.T.
Lenny
...
Bist du sicher....
Ramses
Hallo Sepp
Das KeyCode Ereignis zu nutzen ist gut,... aber bis du sicher dass du die richtigen Zeichen abfrägst ?
49 - 57 würde doch reichen ?
Die Zahl 1 ergibt doch eigentlich den Code 49 und der Keycode 97 ist doch eigentlich das "a" oder, ... und für was 8 und 46 ?
Gruss Rainer
Anzeige
@Ramses
06.06.2004 21:05:43
Josef
Hallo Rainer!
Bei mir geht ohne "97 To 104" der Ziffernblock nicht!
8 und 46 sind für die Rück- bzw. Entfernen- Taste.
Für das "a" erhalte ich als Rückgabe 65.
Gruß Sepp
Notebook... :-((
Ramses
Hallo Sepp,
Alles klar,... ich arbeite auf meinem Notebook natürlich ohne Nummernblock.
Gruss Rainer
Anzeige
oder anders...
Lenny
wie kann ich die Textlänge der Textbox auf 1 einstellen? (also nur ein Zeichen)
Gruß
Lenny
AW: oder anders...
Ramses
Hallo
probier doch erstmal meinen Code von oben aus und schau mal ob es das wäre.
Gruss Rainer
@ Ramses
Lenny
Bei deinem Code kann ich zwar keine Buchstaben eingeben, aber Zahlenkombinationen sind alle möglich. (ich kann von 0-9 alles eingeben)
Hab jetzt das Programm von Josef übernommen.
Aber trotzdem vielen Danke für deine Hilfe
Gruß
Lenny
Anzeige
Sorry. Fehler erkannt.
Ramses
Hallo
wäre trotzdem flott gewesen ein Feedback zu erhalten.
Gruss Rainer
AW: oder anders...
Frank
Hallo Lenny,
in dem Eigenschaftsfenster der Textbox gibt es den Wert: "Maxlength", hier eine 1 eintragen.
MfG
Frank
Danke.. o.T.
Lenny
...
Anzeige

Forumthreads zu verwandten Themen

Nur "Inhalte Einfügen - Werte" zulassen
Susi

Guten Morgen liebe Excel-Freunde,
ich habe eine Excel-Datei, welche ich an diverse Nutzer verteile. Nun hat jeder von denen einen anderen Excel-Kenntnisstand und hält sich nicht an die Vorgaben im Anwerderhandbuch.
Über einige Makros habe ich schon möglich Fehlerquellen ausgeblendet z.B...
27.10.2008 07:52:07
Thread-ID: 1019511
4 Beiträge
Anzeige
Textbox nur bestimmte Formatierung zulassen
Karsten

Hallo
Ich habe in einer Userform eine Textbox.
Der Inhalt muss in folgender Formation eingegeben werden:
T12345
oder
T12345A
Also, als erstes muss immer ein T eingegeben werden.
Dann eine 5 Stellige Zahl
Nach den 5 Zahlen darf ein Buchstabe stehen, aber keine Za...
27.11.2008 22:17:00
Thread-ID: 1028513
4 Beiträge
Nur bestimmte Zeichen in Zelle
wolle

Erstmal ein Hallo an Alle und alles gute in 2009!
Ich hätte folgende Frage:
Wie kann ich es machen, dass in Spalte B von Zelle B10 bis Zelle Bxx nur die Zeichen "J" "j" "N" "n" eingeben werden können und bei Eingabe eines anderen Zeichens ein kleines Popup erscheint, das den Bediener in...
09.01.2009 11:22:25
Thread-ID: 1038162
3 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
6 Beiträge
Zellenformatierung: nur die letzen 2 Zahlen zeigen
Martin

Hallo,
leider komme ich nicht mehr weiter. Besteht die Möglichkeit eine Zelle so zu formatieren, dass nur die letzten beiden Zahlen einer (stets vierstelligen) Zahl angezeigt werden?
Beispiel:
Zelleninhalt "1985", aber angezeigter Wert "85"
Zelleninhalt "1933", aber angezeigt...
21.07.2009 12:49:48
Thread-ID: 1090208
13 Beiträge
Excel Zelle nur Zahleneingabe
ChrisW

Hallo Leute,
Hier noch ein weiteres (ich hoffe kleines) Problem.
Kann ich verhindern, das in einem geschützten Blatt in eine Freigeschaltete Zelle anstatt "Zahlen" "Buchstaben" geschrieben werden?
Also wenn buchstaben in der Zelle enthalten sind soll nach "Enter" die Zelle keinen We...
30.07.2009 15:57:46
Thread-ID: 1092578
5 Beiträge
Anzeige
Zellen nur für spezielle Zahlen freigeben
Bernd

Hallo zusammen,
ich möchte gerne einige Zellen nur für spezielle Zahleneingaben (-2,-1,0,1,2) freigeben und ansonsten eine MsgBox ausgeben, sofern die Zahl ausserhalb der Range liegt. Ist diese Art der Zellensperrung in Excel möglich?
Viele Grüße,
Bernd
21.01.2010 08:40:16
Thread-ID: 1131610
3 Beiträge
In UserForm nur bestimmte Einträge zulassen
MRR
Würde ich vielleicht so lösen:

HTH, Matthias
10.04.2002 12:28:52
Thread-ID: 112050
3 Beiträge
Nur 50 Zeichen zulassen
marco

hallo,ich habe ein problem, hoffentlich kann mir jemand helfen:in einer userform-textbox möchte ich eine EURO-betrag in buchstaben einfügen. das ist nicht das problem, das klappt auch. es sollen aber nur 50 zeichen zugelassen werden. sollten aber mehr als 50 zeichen eingetragen werden, soll
...
10.04.2002 14:33:42
Thread-ID: 112104
2 Beiträge
Anzeige
Noch was vergesse: bestimmte Zeichen zulassen
Jockel

Hi,
ich habe noch was vergessen. Ich möchte in einer Combobox bei der Eingabe nur Ziffern und das Semikolon zulassen. Wie kann ich das erreichen.
Danke
Joachim
11.02.2010 10:39:48
Thread-ID: 1137661
18 Beiträge
Anzeige
Gültigkeit: nur bestimmte Zeichen
André

Moin zusammen,
in eine Zelle sollen mehrere Zahlen, getrennt mit Komma eingegeben werden. Es dürfen also nur die Ziffern 0-9 sowie ein Komma vorkommen, keine Buchstaben Leerzeichen oder sonstige Sonderzeichen.
Erlaubt wären z.B.:
10023,38742,12892,2341
oder:
23984,2375
n...
19.07.2010 14:36:21
Thread-ID: 1167733
5 Beiträge
Nur eindeutige Werte in Matrix zulassen?
Frank

Hallo,wie kann ich in einer Matrix A1:C10 überprüfen ob jeder dort eingetragene Wert auch wirklich nur einmal vorkommt?
Falls ein Wert zweimal eingetragen wird bzw. vorkommt sollte evtl. eine Meldung erscheinen wie z. B. "wert bereits vorhanden".GrußFrank
08.05.2002 13:35:54
Thread-ID: 119550
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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