Neuberechnung eine Function
11.05.2005 08:46:18
Wolfgang
Ich habe folgendes Problem:
Meine Excel-Datei hat 100 Tabellenblätter und ist insgesamt 6MB groß.
Die unten aufgeführte Function habe ich durch dieses Forum bekommen.
Sie funktioniert einwandfrei, nur habe ich nach ein paar Tagen festgestellt, dass alle Zellen die in der Formel die Function >Vorblatt Es kommt auch vor, das eine Fehlermeldung in den ensprechenden Zellen herausgegeben wird, #Wert! oder #NV.
Hat jemand eine Idee woran dies liegen kann?
Muss an der Funktion etwas geändert werden und wenn, was.
Wenn es so ist, an welcher Stelle.
------------------------------------------------
Option Explicit
Function vorblatt(zelle As Range) As Range
Application.Volatile
If zelle.Parent.Index > 1 Then
Set vorblatt = Sheets(zelle.Parent.Index - 1).Range(zelle.Address)
Else
Set vorblatt = zelle 'für minimum erstes Blatt!!!
'set vorblatt=Sheets(sheets.count).Range(zelle.Address) 'für rollierende zuweisung!!!
End If
End Function
------------------------------------------------
Jetzt schon mal vielen Dank im voraus.
Gruß Wolfgang