Betrifft: In Userform Label bei Eingabe ändern
von: Alfred
Hallo,
ich habe ein - vielleicht gar nicht so großes - Problem. Zum besseren Verständnis hänge ich ein Beispiel an.
Ich möchte gerne in einem Label (Label5) Werte automatisch bei Eingabe berechnet haben.
Label5.Caption = WorksheetFunction.RoundDown((6 - (5 * ((TextBox4.Value) / (Label4.Caption)))), 1)
Label5 wird geändert, wenn in den Textboxen etwas geändert wird. Das klappt.
Label5 soll sich aber auch berechnet werden, wenn in ComboBox1 ein Wert ausgewählt wird. Das bekomme ich nicht hin.
Vielleicht hat jemand eine Idee und rettet mir das Wochenende.
Danke!
Gruß, Alfred
Betrifft: AW: In Userform Label bei Eingabe ändern
von: Hajo_Zi
Geschrieben am: 07.09.2019 15:35:49
Hallo Alfred,
ich konnte den Anhamng nicht sehen.
Benutze das Click Ereignis.
Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Betrifft: AW: In Userform Label bei Eingabe ändern
von: Alfred
Betrifft: AW: In Userform Label bei Eingabe ändern
von: Hajo_Zi
Geschrieben am: 07.09.2019 16:15:34
Hallo Alfred,
Gut die Lösung die geht und meiner Meinung nach die einzige ist möchtest Du nicht benutzen.
Ich bin dann raus.
Viel Erfolg noch.
Gruß Hajo
Betrifft: AW: In Userform Label bei Eingabe ändern
von: Alfred
Betrifft: AW: In Userform Label bei Eingabe ändern
von: Piet
Private Sub Textbox1_Change() Textbox4_rechnen If ComboBox1.ListIndex < 0 Then Exit Sub Label5.Caption = WorksheetFunction.RoundDown((6 - (5 * ((TextBox4.Value) / (Label4.Caption)) _ )), 1) End Sub Private Sub ComboBox1_Change() Dim a As Variant a = Application.Match(ComboBox1, Worksheets("Tabelle2").Columns(1), 0) If IsNumeric(a) Then Label1 = Worksheets("Tabelle2").Cells(a, 2) Label2 = Worksheets("Tabelle2").Cells(a, 3) Label3 = Worksheets("Tabelle2").Cells(a, 4) Label4 = Worksheets("Tabelle2").Cells(a, 5) 'Summe aus Label 1 - 3 End If If TextBox4.Value = "" Or Label4.Caption = "" Then Exit Sub Label5.Caption = WorksheetFunction.RoundDown((6 - (5 * ((TextBox4.Value) / (Label4.Caption))) _ ), 1) End Sub
Betrifft: AW: In Userform Label bei Eingabe ändern
von: Alfred
Geschrieben am: 07.09.2019 17:13:43
Hallo Piet,
Deine Lösung gefällt mir sehr gut. In der Beispieldatei funktioniert sie super.
Jetzt baue ich Deine Lösung in meine größere Datei ein.
Danke für Deine Hilfe. Jetzt geht es mir deutlich besser.
Gruß,
Alfred
Betrifft: AW: Danke für die Rückmeldung, freut mich oWt
von: Piet
Geschrieben am: 07.09.2019 22:06:53
...