Office: Ergebnis einer Formel in Textbox

Hallo zusammen,

ich habe eine Userform mit einer Textbox, die das Ergebnis einer Formel anzeigen soll.
Diese Variante habe ich gewählt, um die Anzeige auch beim Scrollen des Blattes sehen zu können.
Ist dies möglich?
Und als Zusatz, *wink.gif* , die Textbox soll aktuallisiert werden, bei Änderung des Ergebnisses.

Viele Grüße,
Sven

:)

 

Hallo Sven,

dafür gibts auch das Überwachungsfenster!


Sonst so: Formelergebnis von A1 wird in TextBox1 angezeigt.

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Calculate()
With UserForm1
If .Visible Then .TextBox1 = Range("A1").Text
End With
End Sub





« Gruß Sepp »

 

Hi Sepp,
wofür soll ich das Überwachungsfenster nehmen?

Der Tipp mit Worksheet_Calculate ist eine Spitzenidee, aber die Formel nicht über eine Zelle laufen zu lassen, sondern per VBA geht wohl nicht, oder?

Gruß SVen

 

Hallo Sven,

benutze Application.Evaluate()

 

Hallo Sven,

' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
With UserForm1
If .Visible Then .TextBox1 = Evaluate("SUM(A1:A10)")
End With
End Sub





« Gruß Sepp »

 

super danke