Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1000to1004
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
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Textfeld im VGA formatieren

Textfeld im VGA formatieren
20.08.2008 13:37:42
Nadine
Hallo,
ich habe im VBA eine Userform erstellt und möchte jetzt, dass in einem der Textfelder nur Zahlen stehen dürfen und das diese dann in Euro (zwei Kommastellen) umgewandelt werden.
Außerdem soll in einem weiteren Textfeld nur Zahlen stehen dürfen (ohne Währungsformatierung).
Bitte um HILFE,
Vielen Dank
Nadine

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

Betreff
Datum
Anwender
Anzeige
AW: Textfeld nur zahlen
20.08.2008 14:05:33
hary
Hallo Nadine
Aus dem Archiv!

Private Sub txtNumber_Change()
If Len(txtNumber.Text) = 0 Then Exit Sub
If Not Right(txtNumber, 1) Like "[0-9]" Then
Beep
MsgBox "Nur Zahlen bitte!"
With txtNumber
.SetFocus
.SelStart = txtNumber.TextLength - 1
.SelLength = 1
End With
End If
End Sub


Gruss Hary

AW: Textfeld nur zahlen
20.08.2008 14:14:00
Nadine
Hi,
ich hab diese Formel bereits eingegeben:
Range("F12").Select
Selection.NumberFormat = "#,##0.00 $"
jedoch findet die Formatierung nur statt wenn in dem Textfeld eine Zahl ohne Nachkommastellen eingegeben wird.

Anzeige
AW: Textfeld nur zahlen
20.08.2008 14:29:32
hary
Hallo Nadine
Hier noch ein Code von Rudi aus dem Archiv

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57, 44, 46
Case Else
KeyAscii = 0
End Select
End Sub


ansonsten gib mal in der Archiv-Suche "textfeld nur zahlen" ein. Habe da ne Menge gefunden, auch mit Format.
Gruss Hary

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