würde die Performance des Makros mit Sicherheit erhöhen, wenn im Code die Wiederholungen für die Formatierung der TextBoxen optimiert werden könnten.
Private Sub into()
Set wks = Worksheets("Tabelle1")
txtbox1.Value = wks.Range("C4").Value
txtbox2.Value = wks.Range("D18").Value
txtbox3.Value = wks.Range("F5").Value
txtbox4.Value = wks.Range("G11").Value
txtbox5.Value = wks.Range("H15").Value
txtbox6.Value = wks.Range("J1").Value
txtbox7.Value = wks.Range("K10").Value
txtbox1.Value = CDbl (txtbox1.Value)
txtbox2.Value = CInt(txtbox2.Value)
txtbox3.Value = CInt(txtbox3.Value)
txtbox4.Value = Format(txtbox4, "#,##0.000")
txtbox5.Value = CInt(txtbox5.Value)
txtbox6.Value = CInt(txtbox6.Value)
txtbox7.Value = Format(txtbox7, "#,##0.0")
End Sub
Hat jemand eine Idee und kann mir dabei helfen?Vorab vielen Dank. Grüße chandler