AW: Verbindung Userform - Excel Tabelle
09.08.2006 18:43:30
Gerd
Hallo Jörg,
Teststellung: Userform1 mit Textbox1
'Ich möchte Werte in einer Textbox einer Userform vorblenden.
'Die Werte kommen aus einer excel-Tabelle
Modul UserForm1
Private Sub UserForm_Activate()
TextBox1.Text = CStr(Worksheets("Tabelle1").Cells(1, 1).Value)
End Sub
Modul Tabelle1
'sind u.U. das Ergebnis einer umfangreichen Formel.
'Wird der Wert nicht geändert, braucht nichts passieren,
'ansonsten soll der Wert der Textbox in die Tabelle übernommen werden.
Private Sub Worksheet_Calculate()
If UserForm1.TextBox1.Text <> CStr(Worksheets("Tabelle1").Cells(1, 1).Value) Then
UserForm1.TextBox1.Text = CStr(Worksheets("Tabelle1").Cells(1, 1).Value)
End If
End Sub
'Der Versuch der Verbindung mittels Controlsource führt leider nicht zum Ziel,
'da die Formel in der Tabelle überschrieben wird.
'Welche anderen Möglichkeiten gibt es?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
UserForm1.TextBox1.Text = CStr(Worksheets("Tabelle1").Cells(1, 1).Value)
End If
End Sub
'Die Neuberechnung der Tabelle muß sofort erfolgen, da sich u.U. Änderungen bei anderen Zellen ergeben können, die ebenfalls wieder als Textbox in der gleichen Userform vorgeblendet werden.
Deinen letzten Satz habe ich nicht richtig kapiert!
Gruß
Gerd