Verbindung Userform - Excel Tabelle

Ich möchte Werte in einer Textbox einer Userform vorblenden. Die Werte kommen aus einer excel-Tabelle und 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.
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?
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.
(Insgesamt sind in der Userform ca. 500 Eingabefelder. Es wäre schön, wenn ich nicht nach jeder EIngabe eine Neuberechnung per Code starten muß).
Vielen Dank
Jörg

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Verbindung Userform - Excel Tabelle

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Verbindung Userform - Excel Tabelle

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread