Formel finden und als Text auslesen

06/10/2008 - 17:36 von Wolfgang Kutsche | Report spam
Hallo NG,

in einer Tabelle, in der der Benutzer Zahlenwerte erfasst (mit
Gültigkeitsregel Dezimal) hat er auch die Möglichkeit Formeln einzugeben.
Beispiel: „,25*(2,45+2,30)/2“
Per VBA wird aus dieser Erfassungs-Tabelle eine neue Tabelle erzeugt, die
dann ausgedruckt wird.
Für den Fall, dass der Inhalt der Zelle eine Formel ist, soll neben der
Zelle mit dem Ergebnis der Formel auch die Formel als Text dargestellt werden.
Nun meine beiden Fragen:
Wie kann ich mit VBA ermitteln, ob eine Zelle eine Formel enthàlt?
Wie kann ich die Formel als Text in eine Variable schreiben?

Gruß Wolfgang
WinXP Home SP2, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de
 

Lesen sie die antworten

#1 Wolfgang Kutsche
06/10/2008 - 17:50 | Warnen spam
Hallo NG,

habe selbst eine Lösung gefunden:

Dim z As Integer

Sub Formel_als_Text()
z = 1
Do While Cells(z, 1) <> ""
If Left(Cells(z, 1).Formula, 1) = "=" Then
Cells(z, 2) = Cells(z, 1).Formula
End If
z = z + 1
Loop
End Sub

Vielleicht kennt Ihr noch eine elegantere Lösung für
If Left(Cells(z, 1).Formula, 1) = "=" Then

Gruß Wolfgang
WinXP Home SP2, Office 2003 SP3 & 2007 SP1
http://www.wk-bau-edv.de

Ähnliche fragen