Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
936to940
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
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nur zahlenwerte in eine Textbox eingeben

nur zahlenwerte in eine Textbox eingeben
27.12.2007 18:22:00
Wolfgang
hallo,
möchte gerne, dass es nur möglich ist zahlen in eine TextBox einzugeben, keine buchstaben oder sonderzeichen.
kann mir jemand helfen?
danke schon mal

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur zahlenwerte in eine Textbox eingeben
27.12.2007 18:25:02
Hajo_Zi
Hallo Wolfgang,

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



AW: nur zahlenwerte in eine Textbox eingeben
27.12.2007 18:37:00
Wolfgang
super, klappt
danke und einen guten rutsch ins neue jahr

AW: nur zahlenwerte in eine Textbox eingeben
27.12.2007 18:43:16
Wolfgang
hab noch eine frage. wie schaff ich es nun, dass in eine textbox nur werte zwischen 11 und 15 eingegeben werden können?

AW: nur zahlenwerte in eine Textbox eingeben
27.12.2007 18:55:49
Hajo_Zi
Hallo Wolfgang,

Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Len(TextBox1) = 0 Then
Select Case KeyAscii
Case Asc("1") ' Prüfung ob Zahl
Case Else                       ' alle anderen Eingaben löschen
KeyAscii = 0
End Select
ElseIf Len(TextBox1) = 1 Then
Select Case KeyAscii
Case Asc("1") To Asc("5") ' Prüfung ob Zahl
Case Else                       ' alle anderen Eingaben löschen
KeyAscii = 0
End Select
Else
KeyAscii = 0
End If
End Sub


Gruß Hajo

Anzeige
AW: nur zahlenwerte in eine Textbox eingeben
27.12.2007 19:05:00
Wolfgang
hallo,
kann jetzt leider nur einsen reinschreiben,
und was ich eben noch vergessen hatte zu erwähnen. wäre super wenn man noch kommazahlen mit bis zu 2 stellen eingeben könnte also z.B 11,56 oder 12,6
wenn es nicht zuviel verlangt ist
danke schon mal

AW: nur zahlenwerte in eine Textbox eingeben
27.12.2007 19:11:28
Hajo_Zi
Hallo Wolfgang,
mit jeder neuer Aufgabenstellung muss man sich neu in das Problem einarbeiten. Das wird mir jetzt zu viel. Wobei ich vermute das Deine Aufgabe noch nicht komplett beschrieben ist. Jetzt geht es um ,56 und ,6 und ich vermute im nächsten Schritt um noch paar mehr Zahlen.
Gruß Hajo

Anzeige
AW: nur zahlenwerte in eine Textbox eingeben
27.12.2007 19:14:00
Wolfgang
ja also es geht um alle zahlen zwischen 11 und 15 auf zwei nachkommastellen.
wenn es zuviel arbeit ist, ist das auch egal.
versuchs dann irgendwie anders
schönen abend noch

AW: nur zahlenwerte in eine Textbox eingeben
27.12.2007 20:21:35
Gerd
Hallo Wolfgang,
oder nicht gewollte Zeichen einzeln sperren (viel Arbeit für manche! :-) . 

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'   Eingaben nur Zahlen zwischen 11,00 und 15,00
Select Case Len(TextBox1.Text)
Case 0
If KeyAscii  49 Then KeyAscii = 0
Case 1
If KeyAscii  53 Then KeyAscii = 0
Case 2
If KeyAscii  44 Then KeyAscii = 0
Case 3, 4
If KeyAscii  57 Then KeyAscii = 0
If Left(TextBox1.Text, 2) = "15" And KeyAscii  48 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select
End Sub


Gruß Gerd

Anzeige

304 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Zahl eingeben und per VBA formatieren
Herbert

Hallo Gemeinde
Ich habe eine Zelle in einem .xlt, dort soll der User eine Zahl eingeben und mit dem Changeereignis
soll die Zahl in der Form JJ/###A umgewandelt werden.
Beispiel: 201 soll 08/201A werden. Das, was ich hier verbrochen habe, funst nicht, kann mir jemand helfen?
P...
05.11.2008 16:08:10
Thread-ID: 1021969
12 Beiträge
Textzahl umwandeln
Stephan

Hallo zusammen,
ich habe folgendes Problem:
Mit dem u. a. Code werden Zeilen aus einer Datei in eine andere kopiert. Die Spalte B (B2:B65535) der Zieldatei ("Auswertung.xls)" soll nun aber zusätzlich noch mit 1 multipliziert werden, da diese ein Datum als Textzahl enthält und dieses in...
10.11.2008 11:12:00
Thread-ID: 1023147
22 Beiträge
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
TextBox Inhalte sollen Zahlen sein
Frank

Hallo Zusammen!!!
Mit folgendem Code:
Private Sub CommandButton2_Click() If Me.TextBox1.Value = "" Then MsgBox "Sie müssen ein Datum eingeben" Exit Sub End If If Me.TextBox2.Value = "" Then MsgBox "Sie müssen eine Anfangszeit eingeben " Exit Sub End If If Me.TextBox3.Value = "" Then M...
17.11.2008 21:37:00
Thread-ID: 1025414
8 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
5
11
5
3
1
11
21
2
7
4
3
3
2
1
8
5
4
21
3
5
2
2
6
4