Eigene Funktion beim Starten ausführen
10.01.2013 07:39:10
Ralf
ich habe mal wieder ein Problem mit meiner selbst erstellten Funktion. In einem Modul liegt _
meine Funktion
Public Sub MaterialBerechnen(). Nennen wir die Mappe mal Ausgangsmappe.xlsm
Diese wird aus einer Zelle mit =MaterialBerechnen("A1") angesprochen.
Gehen wir mal davon aus dass in A1 10 steht.
Das funktioniert auch ganz gut.
In der Funktion MaterialBerechnen() wird auf eine andere Arbeitsmappe(Test.xlsx) zugegriffen.
Jetzt das Problem:
Ist diese Test.xlsx nicht geöffnet kann nichts berechnet werden und es wird #Wert angezeigt.
Wird dann die Test.xlsx geöffnet und ich klicke F9 oder ich schließe die Ausgangsmappe.xlsm und _
_
öffne sie wieder, werden die Zellen trotzdem nicht neu berechnet.
Erst wenn ich wie im Beispiel oben die Zelle A1 anklicke und dort die 10 wieder neu eingebe, _
wird die berechnung wieder durchgeführt. Bei einer zelle wäre es ja nicht so schlimm aber ich _
habe ca. 5000 Zellen mit Werte.
Unter Worksheet_Change am Ende Application.CalculateFull hat auch nichts gebracht.
Dann habe ich eine weitere Funktion geschrieben die beim Öffnen der Ausgangsmappe.xlsm ausgefü _
_
hrt werden soll und alle Zellen nochmal neu schreibt.
Aber auch das hilft mir nicht wirklich weiter.
Public Sub Schreibe_Alle_Nochmal()
Dim TMP, i, a, letzte
'Letzte benutze Zelle in der Spalte A
letzte = Sheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
If letzte
Funktioniert aber auch nicht...
Habt ihr noch Rat?
Gruß
Ralf