Makro Formel 97 -> 2010

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Hans,
kann keine Fehler feststellen, möglich, das sich die Formel bzw. die benannte Funktion am neuen Blattnamen verschluckt.
Ich würde auf eine UDF umsteigen. In ein allgemeines Modul der Mappe, oder alternativ in ein AddIn folgenden Code.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function BERECHNE(Rechnung As Variant) As Variant
  Dim vntRet As Variant

  vntRet = Evaluate(Replace(Rechnung, ",", "."))

  If Not IsError(vntRet) Then
    BERECHNE = vntRet
  Else
    BERECHNE = ""
  End If

End Function

In der Tabelle dann wie eine "normale" Funktion verwenden.
Tabelle1

	A	B	C
14	Objekt		Gesamt
15
16	Fb:	2,24 * 3 + 0,60 * 3 + 1,48 + 2,55 + 2,10	14,65 m
17	Raum 10:	1,83 * 2 + 3,66 * 2 + 2,25 + 1,68 + 0,39 + 0,10 * 5	15,80 m
18	Raum 11:	2,09 * 2 + 3,76 * 2 + 2,25 * 2 + 2,08 + 0,43 * 2 + 0,10 * 10	20,14 m

Formeln der Tabelle

Zelle	Formel
C15	=berechne(B15)
C16	=berechne(B16)
C17	=berechne(B17)
C18	=berechne(B18)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4

« Gruß Sepp »

Hallo Hans,
ich hab deine Datei hochgeladen und in Excel 2010 Professional Plus (vollständig installiert bis auf einige exotische Features).
Deine Datei funktioniert - d.h. die als Multiplikation und Addition eingegebenen Werte werden berechnet.
Anschliessend hab ich deine Datei als Arbeitsmappe mit Makros im neuen Format gespeichert, geschlossen und wieder geöffnet. Auch hier funktionieren die Berechnungen.
Die Formel ist ja als Name hinterlegt:

=WENN(ODER(Tabelle1!$B40="";RECHTS(Tabelle1!$B40;1)="+");"";
WENN(RECHTS(Tabelle1!$B39;1)="+";AUSWERTEN(Tabelle1!$B39&Tabelle1!$B40);
AUSWERTEN(Tabelle1!$B:$B)))
Die Funktion "AUSWERTEN" ist keine Standard-Excelfunktion sondern eine von vielen Funktion im  Excel 4.0 - Makro Format.

Diese hat Microsoft irgendwo in den neueren Excelversionen integriert, aber auch nach fast 20 Jahren nicht als offizielle Funktionen in Excel eingebunden und auch in der Dokumentation ist nirgendwo was brauchbares darüber zu finden.

Nachdem ich die Datei in einem nicht vertrauenswürdigen Verzeichnis gespeichert hab wurden auch die von dir beschriebenen "#NAME?"-Fehler bei Neueingaben/Änderungen angezeigt.

Wenn du deine Dateien unter Excel2010 weiter nutzen willst, dann muss du sie in vertrauenswürden Verzeichnissen speichern oder einzeln aus vertrauenswürdig deklarieren.

Die entsprechenden Einstellungen muss du in Excel unter 

Optionen--Sicherheitscenter--Einstellungen für Sicherheitscenter 

machen.

Nach dem Öffnen der Dateien sollten dann die Berechnungen bei Eingaben auch ausgeführt werden.

Gruß

Franz

Beliebteste Forumthreads (12 Monate)

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread