ich möchte eine TextBox1 verwenden, um einen sich akutalisierenden Wert (Sheets("Tabelle1").Cells(32,3)) anzuzeigen. Leider funktioniert es mit TextBox1 = Sheets("Tabelle1").Cells(32,3).Value net!
Gruss, Mat
Sub schreiben_in_Textbox()
sheets("Tabelle1").Shapes(1).Select
Selection.Characters.Text = "test"
End Sub
Sub schreiben_in_Textbox()
Worksheets("Tabelle1").TextBox2.Value = Application.WorksheetFunction.Round(Worksheets("TA"). _
Cells(18, 3).Value, 2) & "%"
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsNumeric(Cells(18, 3).Value) And Cells(18, 3).Value _
Sheets("Tabelle1").TextBox2.Value Then _
Sheets("Tabelle1").TextBox2.Value = _
Application.WorksheetFunction.Round(Worksheets("TA"). _
Cells(18, 3).Value, 2) & "%"
End If
End Sub
So gehts: