Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

2 Stellen nach dem Komma...

2 Stellen nach dem Komma...
17.07.2003 09:05:22
streuner
Hi Leutz!

Hole mir per VBA Daten aus Tabelle 1 und trage die dann in eine neue Tabelle ein, wenn die Werte eingetragen werden, erscheint folgendes Zeichen "#"...mmh! Wenn ich auf das entsprechende Feld klicke, wird mir eine Kommazahl angezeigt, die 8 oder 9 Stellen hat. Wie kriege ich das hin, dass die eingetragenen Werte auf 2 Stellen nach dem Komma beschränkt werden?

MFG Streuner

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

Betreff
Datum
Anwender
Anzeige
AW: 2 Stellen nach dem Komma...
17.07.2003 09:16:25
ivan


hi Streuner
versuche es so!

Private Sub TextBox1_Change()
TextBox1 = Format("#,##0.00")
End Sub

GRUSS
IVAN


Hab's selber gelöst! o.T.
17.07.2003 09:10:13
streuner
o.T.


AW: NACHTRAG
17.07.2003 09:52:23
ivan


hi Streuner
veruch es mal so.
in die userform eingeben.
hier kann man nur zahlen eingegen.
wenn du dich mit einer komma stelle zufrieden geben würdest kanst
du das verwenden.

Option Explicit
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc("."), Asc(",")
If InStr(TextBox1, ",") <> 0 Then
KeyAscii = 0
Else
KeyAscii = Asc(",")
End If
Case Asc(vbBack)
Case Asc("-")
If Len(TextBox1) = 0 Then
If InStr(TextBox1, "-") <> 0 Then
Else
KeyAscii = Asc("-")
End If
Else
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End Sub

gruss
ivan


Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige