nach Worksheet_Change werden UDF nicht ausgewertet
09.07.2007 23:01:00
Peter
Guten Abend
Mit Hilfe des Forums habe ich mein Worksheet_Change nun hingekriegt. Ich habe jedoch noch ein Folgeproblem und ein Geschwindigkeitsproblem
1. Folgeproblem
In meinem Workbook habe ich verschiedene Formeln, wo ich die Function KEINFEHLER2 (vgl. ganz unten) verwende. Diese Funktion gibt als Ergebnis das erste Argument aus, das nicht einen Fehler ergibt. Nun ist das Problem entstanden, dass nach Ablauf meines Ereignismakros diese Formeln alle den Fehlerwert #Wert ergeben, bis ich in die entsprechende Bearbeitungszeile klicke, womit das Ergebnis bei diesen Formeln auch wieder stimmt. Gibt es eine Möglichkeit, dass diese Function auch nach Ablauf meines Ereignismakros ohne Bemühen der Beareitungszeile funktioniert?
2. Geschwindigkeitsproblem
Das Ereignismakro benötigt etwa 30 Sekunden, bis es abgelaufen und die Sanduhr weg ist. Gibt es eine effizientere Methode, diese Formel im Bereich einzusetzen oder ist diese Bearbeitungszeit normal (die gleiche Formel wird gegen Tausend Mal eingetragen)?
Danke für eine Rückmeldung
Gruss, Peter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Bereich2 As Range
Set Bereich2 = Range("EndDat") '.Address
If Not Intersect(Target, Bereich2) Is Nothing Then
'=WENN(ODER(MONAT(G9)>MONAT(G8);JAHR(G8)>JAHR(G9));G9;"") 'entspricht der Formel in A9
Range("EndDat") = "=IF(OR(MONTH(R[-1]C[6])>MONTH(RC[6]),YEAR(R[-1]C[6])>YEAR(RC[6])),RC[6],"" _
"") "
End If
End Sub