VBA Userform change?

Guten Tag,
gibt es einen Sub, welcher den im Betreff formulierten Text darstellt?
Ich habe 60 Textboxen, die ich wenn eine davon mit einer Zahl gefüllt wird,
in dem Label davor die Summe angezeigt wird,
jetzt möchte ich aber nicht für jede Textbox einzeln den Code benutzen,
dann hätte ich im Endeffekt 60mal den gleichen Code.


lbl_S_1.Caption = WorksheetFunction.Sum(Val(txtbx_M_1.Text), Val(txtbx_F_1.Text), Val(txtbx_Vw_1.Text), Val(txtbx_Vt_1.Text))

Das wäre der Code den ich bei jeder TextBox beim change benutzen müsste,
sonst würde ich über eine Schleife einfach die Zahlen dahinter immer ändern und hätte das ganze in einem Code.
Gibt es eine Möglichkeit nach jedem verlassen einer TextBox,
das sich die Userform aktualisiert?
Danke an jeden der Hilft.
MfG
Herbert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das geht sogar ganz ohne Code:
- verknüpfe jede Textbox mit einer Ausgabezelle auf einem Tabellenblatt. Trage hierzu die Zelladresse (ggf mit Tabellenblattname davor) in die Eigenschaft ControlSource ein (in der Form: 'Tabelle1'!A1)
wähle für jede Textbox eine andere Zelle am besten in einer Spalte untereinander liegend
- bilde in einer weiteren Zelle per Formel die Summe über die Ausgabezellen der Textboxen
- Verwende für die Ausgabe eine Listbox und verknüpfe über diese die Eigenschaft RowSource mit der Zelle mit der Summenformel (auch wieder: Zelladresse mit Tabellenblatt angeben)
Listbox ist für die Ausgabe hier das beste Steuerelement, weil man es ähnlich wie eine Textbox mit einer Zelle verknüpfen kann, aber es ist "ReadOnly", dh der Anwender kann nichts eingeben. Bei einer Textbox ist die Verknüpfung lesend und schreibend, dh sobald der Anwender in die Ausgabetextbox klicken würde, würde die in der verknüpften Zelle stehende Formel mit dem Wert überschrieben.
Labels kann man nicht mit einer Zelle verknüpfen, daher können sie nur feste Werte anzeigen. (oder müssen per Code geändert werden)
über die verschiedenen Eigenschaften (SpecialEffect, BorderStyle, BackColor) kannst du aber auch die Listbox so aussehen lassen wie ein Label.
Gruß Daniel

Private Sub UserForm_Click() Dim Tbx As TextBox, Ctl As Control For Each Ctl In Me.Controls If InStr(1, Ctl.Name, "TextBox", vbBinaryCompare) > 0 Then ret = ret + Val(Ctl) Next Ctl Debug.Print ret End Sub >/pre> mdf

Private Sub mobjRaiseClass_Calculate(ByVal pvlngIndex As Long) Controls("lbl_S_" & CStr(pvlngIndex)).Caption = Application.Sum(Val(Controls("txtbx_M_" & CStr(pvlngIndex)).Text), _ Val(Controls("txtbx_F_" & CStr(pvlngIndex)).Text), Val(Controls("txtbx_Vw_" & CStr(pvlngIndex)).Text), Val(Controls("txtbx_Vt_" & CStr(pvlngIndex)).Text)) End Sub

Private Sub mobjRaiseClass_Calculate(ByVal pvlngIndex As Long) Controls("lbl_S_" & CStr(pvlngIndex)).Caption = _ Application.Sum(Val(Replace(Controls("txtbx_M_" & CStr(pvlngIndex)).Text, "", 0)), _ Val(Replace(Controls("txtbx_F_" & CStr(pvlngIndex)).Text, "", 0)), _ Val(Replace(Controls("txtbx_Vw_" & CStr(pvlngIndex)).Text, "", 0)), _ Val(Replace(Controls("txtbx_Vt_" & CStr(pvlngIndex)).Text, "", 0))) End Sub

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Userform change?

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread