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

Zwei Makros behindern sich....

Zwei Makros behindern sich....
04.03.2004 17:18:55
Burkhard
Hallo Gemeinde,
ich habe eine Userform, auf der sich mehrere Textboxen befinden. In Textbox3 soll ein Produkt stehen, das sich aus dem Inhalt von Textbox1 und Textbox2 multipliziert. Wenn ich auf den Button "Texbox leeren" klicke, meckert er und springt in die Vb-Umgebung. Warum? Kann mir jemand helfen?


Private Sub Textbox1_Change()
If Me.TextBox2 <> "" Then
Me.TextBox3.Value = Me.TextBox1.Value  * Me.TextBox2.Value
End If
End Sub


Private Sub Textbox2_Change()
If Me.TextBox1 <> "" Then
Me.TextBox3.Value = Me.TextBox1.Value  * Me.TextBox2.Value
End If
End Sub

Privat Sub Cmd_leeren_Click()
Dim ObCb As Object
For Each ObCb In Me.Controls
If TypeName(ObCb) = “TextBox” Then OBCb.Value = “”
Next ObCb
End Sub

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Makros behindern sich....
04.03.2004 17:27:58
Ulf
Fehlt noch der Code von Textbox3!
Ulf
AW: Zwei Makros behindern sich....
04.03.2004 17:31:18
Burkhard
Hallo Ulf,
vielen Dank für deine schnelle Antwort!
Ich bin VB-Anfänger, bitte genauer erkläre!!
Danke im voraus. Burkhard
AW: Zwei Makros behindern sich....
04.03.2004 17:36:17
Ulf
Hat deine Textbox3 kein Ereignis?
Ulf
AW: Zwei Makros behindern sich....
04.03.2004 17:40:12
Burkhard
Hallo Ulf, in der Textbox3 soll eigentlich nur das Ergebnis aus der Multiplikation stehen, wenn ich auf "Datensatz hinzufügen" klicke, soll der ganze Satz in Excel eingetragen werden. Funktioniert auch, jedoch bleibt der letzte Datensatz in den Textboxen stehen, dafür das Makro "Textboxen leeren".
Gruß Burkhard
AW: Zwei Makros behindern sich....
04.03.2004 17:50:02
K.Rola
Hallo,
Option Explicit
Dim stopp As Boolean

Private Sub Textbox1_Change()
If stopp Then Exit Sub
If TextBox2 <> "" Then
TextBox3 = TextBox1 * TextBox2
End If
End Sub


Private Sub Textbox2_Change()
If stopp Then Exit Sub
If TextBox1 <> "" Then
TextBox3 = TextBox1 * TextBox2
End If
End Sub


Private Sub Cmd_leeren_Click()
Dim ObCb As Object
stopp = True
For Each ObCb In Controls
If TypeName(ObCb) = "TextBox" Then ObCb = ""
Next ObCb
stopp = False
End Sub

Gruß K.Rola
Anzeige
AW: Zwei Makros behindern sich....
04.03.2004 17:57:08
Burkhard
Hallo, KRota
vielen Dank, es funktioniert.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige