Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
180to184
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
180to184
180to184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Label

Label
15.11.2002 10:14:50
martin
hallo experten,

hab mal wieder ein problem. ich habe in meiner userform drei textboxen, wo ich zahlen eingebe. die drei zahlen sollen addiert werden und in einem label angezeigt werden.
folgenden code habe ich geschrieben:

Private Sub TextBox4_Change()
If Len(TextBox4.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox4.Text) Then
Beep
MsgBox "Nur Zahlen bitte!"
TextBox4.Text = ""
End If
If TextBox4 = "" Then Exit Sub
If Not IsNumeric(TextBox4) Then
SendKeys "{BS}"
Beep
Else
If TextBox5 <> "" Then
Label13.Caption = CDbl(Mid(TextBox4, 1, 3)) + CDbl(Mid(TextBox5, 1, 3)) _
+ CDbl(Mid(TextBox6, 1, 3))
Else
Label13.Caption = CDbl(Mid(TextBox4, 1, 3))
End If
End If
Worksheets("Statistik").Range("G8") = Label13.Caption
Worksheets("Statistik").Range("D8") = TextBox4
End Sub

Private Sub TextBox5_Change()
If Len(TextBox5.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox5.Text) Then
Beep
MsgBox "Nur Zahlen bitte!"
TextBox5.Text = ""
End If
If TextBox5 = "" Then Exit Sub
If Not IsNumeric(TextBox5) Then
SendKeys "{BS}"
Beep
Else
If TextBox6 <> "" Then
Label13.Caption = CDbl(Mid(TextBox4, 1, 3)) + CDbl(Mid(TextBox5, 1, 3)) _
+ CDbl(Mid(TextBox6, 1, 3))
Else
Label13.Caption = CDbl(Mid(TextBox5, 1, 3))
End If
End If
Worksheets("Statistik").Range("G8") = Label13.Caption
Worksheets("Statistik").Range("E8") = TextBox5
End Sub

Private Sub TextBox6_Change()
If Len(TextBox6.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox6.Text) Then
Beep
MsgBox "Nur Zahlen bitte!"
TextBox6.Text = ""
End If
If TextBox6 = "" Then Exit Sub
If Not IsNumeric(TextBox5) Then
SendKeys "{BS}"
Beep
Else
If TextBox5 <> "" Then
Label13.Caption = CDbl(Mid(TextBox4, 1, 3)) + CDbl(Mid(TextBox5, 1, 3)) _
+ CDbl(Mid(TextBox6, 1, 3))
Else
Label13.Caption = CDbl(Mid(TextBox6, 1, 3))
End If
End If
Worksheets("Statistik").Range("G8") = Label13.Caption
Worksheets("Statistik").Range("F8") = TextBox5
End Sub

mein problem: er addiert und zeigt die zahlen erst, wenn ich in textbox6 eine eingabe gemacht habe.
was mach ich verkehrt?

für eure hilfe wäre ich dankbar.

gruß
martin

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Label
15.11.2002 11:49:57
Nico D
Hallo Martin,

angenommen wir haben eine userform mit:
Textbox1
textbox2
textbox3
Label1
CommandButton1

dann schreibe in den commandbutton1 folgendes Makro:

Dim a As String
Dim b As String
Dim c As String
a = TextBox1.Value
b = TextBox2.Value
c = TextBox3.Value
Label1.Caption = WorksheetFunction.Sum(a, b, c)

somit werden textbox1-3 im label1 summiert.
Bestimmt findest du auch unter der Excel-Recherche etwas.

Grüße

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige