ich bräuchte eine Hilfestellung zu folgendem Problem. Eine Userform zeigt mir quasi in Echtzeit Werte die in einer Tabelle berechnet werden. Um diese Werte sofort sehen zu können, ohne erst die nächste Textbox anzuklicken - habe ich folgenden Code in der Tabelle verwendet:
Private Sub Worksheet_Calculate()
On Error Resume Next
UserForm3.TextBox17 = Range("I28") ' zeigt die Werte in Echtzeit in Textbox an
UserForm3.TextBox19 = Range("H30")
UserForm3.TextBox20 = Range("H29")
UserForm5.TextBox1 = Range("L13")
UserForm3.Repaint
On Error Resume Next
UserForm5.TextBox1 = Range("L13") ' zeigt die Werte in Echtzeit in Textbox Übersetzungspreis _
_
an
UserForm5.TextBox2 = Range("M13") ' zeigt die Werte in Echtzeit in Textbox Übersetzungspreis _
_
an
UserForm5.TextBox4 = Range("L14") ' zeigt die Werte in Echtzeit in Textbox Autorenpreis an
UserForm5.TextBox3 = Range("M14") ' zeigt die Werte in Echtzeit in Textbox Autorenpreis an
UserForm5.TextBox6 = Range("L15") ' zeigt die Werte in Echtzeit in Textbox Regiepreis an
UserForm5.TextBox5 = Range("M15") ' zeigt die Werte in Echtzeit in Textbox Regiepreis an
UserForm5.TextBox56 = Range("F41") ' zeigt die Werte in Echtzeit in Textbox Tagespreis Regie _
_
an
UserForm5.TextBox8 = Range("C42") ' zeigt die Werte in Echtzeit in Textbox Produktionsleitung _
_
an
UserForm5.TextBox7 = Range("M42") ' zeigt die Werte in Echtzeit in Textbox Produktionsleitung _
_
an
UserForm5.TextBox10 = Range("L43") ' zeigt die Werte in Echtzeit in Textbox Aufnahmeleitung _
_
an
UserForm5.TextBox9 = Range("M43") ' zeigt die Werte in Echtzeit in Textbox Aufnahmeleitung an
UserForm5.TextBox12 = Range("L44") ' zeigt die Werte in Echtzeit in Textbox Tonmeister an
UserForm5.TextBox11 = Range("M44") ' zeigt die Werte in Echtzeit in Textbox Tonmeister an
UserForm5.TextBox14 = Range("L48") ' zeigt die Werte in Echtzeit in Textbox Cutter Aufnahme _
_
an
UserForm5.TextBox13 = Range("M48") ' zeigt die Werte in Echtzeit in Textbox Cutter Aufnahme _
_
an
UserForm5.TextBox16 = Range("L45") ' zeigt die Werte in Echtzeit in Textbox Cutter Taken an
UserForm5.TextBox15 = Range("M45") ' zeigt die Werte in Echtzeit in Textbox Cutter Taken an
UserForm5.TextBox18 = Range("L46") ' zeigt die Werte in Echtzeit in Textbox Cutter schneiden _
_
an
UserForm5.TextBox17 = Range("M46") ' zeigt die Werte in Echtzeit in Textbox Cutter schneiden _
_
an
UserForm5.TextBox20 = Range("L47") ' zeigt die Werte in Echtzeit in Textbox Cutter M&E an
UserForm5.TextBox19 = Range("M47") ' zeigt die Werte in Echtzeit in Textbox Cutter M&E an
UserForm5.TextBox40 = Range("L49") ' zeigt die Werte in Echtzeit in Textbox Aufnahmestudio an
UserForm5.TextBox21 = Range("M49") ' zeigt die Werte in Echtzeit in Textbox Aufnahmestudio an
UserForm5.TextBox24 = Range("L50") ' zeigt die Werte in Echtzeit in Textbox Mischung an
UserForm5.TextBox28 = Range("C50") ' zeigt die Werte in Echtzeit in Textbox Mischung an
UserForm5.TextBox23 = Range("M50") ' zeigt die Werte in Echtzeit in Textbox Mischung an
UserForm5.TextBox26 = Range("L51") ' zeigt die Werte in Echtzeit in Textbox Downmix an
UserForm5.TextBox27 = Range("C51") ' zeigt die Werte in Echtzeit in Textbox Downmix an
UserForm5.TextBox25 = Range("M51") ' zeigt die Werte in Echtzeit in Textbox Downmix an
UserForm5.TextBox29 = Range("L58") ' zeigt die Werte in Echtzeit in Textbox QC an
UserForm5.TextBox30 = Range("M58") ' zeigt die Werte in Echtzeit in Textbox QC an
UserForm5.TextBox31 = Range("L59") ' zeigt die Werte in Echtzeit in Textbox File Transfer an
UserForm5.TextBox32 = Range("M59") ' zeigt die Werte in Echtzeit in Textbox File Transfer an
UserForm5.TextBox33 = Range("L60") ' zeigt die Werte in Echtzeit in Textbox File Transfer an
UserForm5.TextBox34 = Range("M60") ' zeigt die Werte in Echtzeit in Textbox File Transfer an
UserForm5.TextBox35 = Range("L61") ' zeigt die Werte in Echtzeit in Textbox ProRes an
UserForm5.TextBox36 = Range("M61") ' zeigt die Werte in Echtzeit in Textbox ProRes an
UserForm5.TextBox37 = Range("L62") ' zeigt die Werte in Echtzeit in Textbox ProRes an
UserForm5.TextBox38 = Range("M62") ' zeigt die Werte in Echtzeit in Textbox ProRes an
UserForm5.Repaint
End Sub
Es funktioniert auch sehr gut - einzig das flackern stört bei den Berechnungen. Hat jemand einen Tip für mich?Viele Grüße,
Anatol