✔ TextBox auslesen

[nicossi]

Hallo,

ich hab ein weiteres Problem bei meiner VBA-Programmierung.
Und zwar möchte ich aus einem Eingabefeld Zahlen für eine Berechnug auslesen, das habe ich wie folgt programmiert:

kartenanzahl = TextBox1.text

Ich kann das nur auslesen, wenn ich kartenanzahl vorher als string deklariert habe, dann hab ich allerdings nachher das Problem, dass es in der Berechnung ja auch als string gelesen wird.
Kann mir jemand sagen, wie ich es entweder nachher in Integer umwandeln kann bzw. ob es eine Möglichkeit gibt das Eingabefeld auszulesen, wenn man die Kartenanzahl vorher schon als Integer deklariert hat?
Ist bestimmt ganz einfach für euch und jemand kann mir helfen.

Danke!

Gruß Nicole

 

[GeCKo1234]

Hi,

versuchs mal so:

kartenanzahl = Val (TextBox1.text)

müsste normal gehn

mfg
GeCko

 

[Julian Maicher]

Umwandlung von String in Integer:

Cint(String)

 

[braungraphix]

Mal als Beispiel nimm beide Antworten die Vorher kamen nacher zusammen.

userform1 = Formularname
var = Variablenname in Option Explicit deklariert
txtbox = Textfeld

Beispiel (ähnlich wie du es hast):

var = val(userform1.txtbox.text)

Umwandlung:

cint(var)

So solltest du das hinbekommen!

 

[Julian Maicher]

Ich würds ganz einfach so machen:

Dim value As Integer
value = Cint(TextBox1.Text)
'... Berechnungen mit value

 

[JensG]

Hallo Zusammen,
da will ich auch mal meinen Senf dazugeben

Wenn bei

   value = Cint(TextBox1.Text)

aber keine Zahl einegeben wird löst das einen Laufzeitfehler aus.
Also würde ich vorher noch mit isnumeric prüfen ob die Eingabe korrekt ist.

    If IsNumeric(Text1.Text) Then
        value = Cint(TextBox1.Text)
    Else
       MsgBox "Bitte einen numerischen Wert eingeben"
       Text1.Setfocus 
       Text1.SelStart = 0
       Text1.SelLength = Len(Text1.Text)
       Exit Sub
    End If

Bei Val wird kein Laufzeitfehler heraus aber ein irrelevanter Wert wenn
z.B. nen Buchstabe eingegeben wird.

Jens

 

[Julian Maicher]

Ja ok, solche Prüfungen setze ich immer vorraus

 

[nicossi]

hi jungs,

vielen lieben danke für die zahlreichen tipps, besonders an JensG, denn das problem mit if not isnumeric ist prompt aufgetreten, aber mit deiner lösung hats direkt geklappt. besten dank!
ich hoffe, jetzt wird alles funktionieren und ich muss hier niemanden mehr nerven

gruß nicole