Uebergabe von Textbox

Textbox · 2009-01-04T18:46:00+00:00

Hallo Zusammen Habe zwei Fragen. Textbox in einer UF 1. Wie kann ich bei Uebergabe von der Textbox zum Tabellenblatt erreichen, daß der Wert als Zahl und nicht als Text übergeben wird. Muss danach weiter arbeiten mit dieser Zahl im Tabellenblatt. 2. Wie kann ich erreichen, daß nur numerische Werte also Euro 12'000.50 eingegeben werden können und auch so auf dem Blatt übertragen wird. Für Eure Hilfe wäre ich froh, bin am verzweifeln. Gruß Steve

Moin Steve!
Etwas weiter vorne (...oder unten, je nachdem wie mans sieht) war bereits so eine ähnlich Frage.
Guckst Du hier:
https://www.herber.de/forum/messages/1036668.html
Wenn Du einen nummerischen Wert übergeben willst, dann musst Du in dem betreffenden VBA Code der die Werte übergibt eine Änderung vornehmen. Zum Beispiel so:
.Cells(lz, 2) = CDbl(TextBox1.Text)
Dein Problem, dass nur Zahlen in eine TextBox eingegeben werden können, habe ich mal über den ASCII-Code gelöst (...hier in meinem Beispiel beziehe ich mich aber auf Buchstaben):


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'nur Buchstaben in der  _
TextBox1 zulassen
Select Case KeyAscii
Case 32, 39, 45, 65 To 90, 97 To 122, 196, 214, 220, 223, 228, 246, 252
Case Else
KeyAscii = 0
MsgBox "Der Name darf keine Zahlen enthalten!" & Chr(13) & "Es sind nur Buchstaben  _
erlaubt!", 64, "Nachname"
End Select
End Sub

...die Zahlen in dem Code definieren die Zeichen, die eingegeben werden dürfen. In meinem Beispiel bezieht es sich auf Buchstaben. Diesen Code mußt Du übrigens in das VBA-Skribt des UserForms integrieren.
Um die Codezahlen zu finden, die Du für Deine Vorstellungen brauchst guckst Du hier:
http://de.wikipedia.org/wiki/ASCII-Code ...oder...
http://www.calo.de/lhtml_z.htm
...und wegen dem "ß" noch mal hier http://de.wikipedia.org/wiki/%C3%9F
Hoffe, Dir ein wenig geholfen zu haben!
Viele Grüße aus dem hohen Norden!
Lenni

Hallo Tino
Das würde mich aber nun schon interessieren, warum er die Multiplikation bei dir abschaltet bzw. nur eine Ganzzahl bringt.
Setz doch einfach mal eine MsgBox davor, nur um Zellformatierungen auszuschliessen


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case 44
KeyAscii = 46
Case Else
MsgBox "Das: """ & KeyAscii & """ ist ein nicht erlaubtes Zeichen" & vbCrLf,  _
vbCritical + vbOKOnly, "Fehler"
'Eingabe zurücksetzen
KeyAscii = 0
End Select
End Sub

Und in das Exit Ereignis


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MsgBox CDbl(Me.TextBox1.Value) * 2.5
End Sub

Würde mich interessieren. Bei mir werden die Komma-Werte korrekt umgerechnet
Gruss Rainer

Forumthread: Uebergabe von Textbox

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Uebergabe von Textbox

Forumthread: Uebergabe von Textbox

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread