AW: Wertausgabe in TextBox
21.01.2010 09:43:36
JoWE
Hallo Mat,
die Ausführung des Makros solltest Du im Klassenmodul der Tabelle 'TA' an das 'SelectionChange_Ereignis' binden : Also der Wert der 'Textbox2' soll sich immer dann ändern, wenn die Zelle 'C18' der Tabelle 'TA' einen vom Wert des Textboxeintrages abweichenden Wert annimmt.
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:
Rechte Maustaste auf das Register der Tabelle 'TA', dann Linksklick auf 'Code anzeigen', dann im VB-Fenster von 'ALLGEMEIN' nach 'WORKSHEET' wechseln, dort den Code reinkopieren.
Gruß Jochen