Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Problem mit Datenformat

    Betrifft: Problem mit Datenformat von: Klaus
    Geschrieben am: 02.10.2003 10:21:02

    Hallo zusammen,

    ich moechte aus mehreren Textboxen Werte auslesen und zusammenaddieren. Wenn ich die einzelnen Werte Integer-Variablen uebergebe, kommt ein Fehler hoch, wenn eine Textbox keinen Wert enthaelt. Wenn ich sie als Variant definiere, klappt es mit dem addieren nicht. Was kann ich machen?
    Schon mal vielen Dank im voraus.
    Gruesse Klaus

      


    Betrifft: AW: Problem mit Datenformat von: ChrisL
    Geschrieben am: 02.10.2003 13:40:14

    Hi Klaus

    z.B.

    Option Explicit

    Private Sub CommandButton1_Click()
    Dim Wert(2) As Integer
    Dim i As Byte
    On Error Resume Next
    
    Wert(1) = TextBox1
    Wert(2) = TextBox2
    
    For i = 1 To 2
        If IsNumeric(Wert(i)) = False Then Wert(i) = 0
    Next i
    
    MsgBox Wert(1) + Wert(2)
    End Sub
    



    Gruss
    Chris


      


    Betrifft: AW: Problem mit Datenformat von: Klaus
    Geschrieben am: 03.10.2003 08:55:28

    Hi Chris,

    vielen Dank.
    Gruesse Klaus


     

    Beiträge aus den Excel-Beispielen zum Thema " Problem mit Datenformat "