Error Handling mit mehreren Variablen
12.03.2009 16:18:24
Steve
Folgendes Problem:
Funktionswerte, welche in Variablen geschrieben werden, sollten auf error überprüft werden.
Die Werte werden aus Pivot Tabellen übernommen. Wenn jetzt aber die Funktion einen Error ausgibt, sollte das Makro in der entsprechenden Variable den Wert "Not Available" speichern.
Es sind cirka 1000 Variablen...
Ungefähr wie unten denke ich, sollte das aussehen.... aber es sollte ja für alle Variablen gelten und dann weiter gehen zu den anderen Variablen. Wenn ich z.B. nur "on error resume next" oben stehen habe, speichert es mir den Wert "0" in der Variable... das ist etwas gefährlich, da es auch wirkliche "0" Werte gibt.
*************************************
On Error Resume Next
Application.DisplayAlerts = False
Err.Clear
Var1 = = Application.Evaluate("=GETPIVOTDATA(""Sum of SumOf$LBR Rev"",'Net Rev'!U27,""Key"",""" & MonthYear & """,""Group"",""HTCD"")")
Var2 = ...
Var3 = ...
Var4= ...
....
Var1000= ...
If Err.Number 0 Then ...
**************************************3
Vielen Dank im Voraus für eine Antwort
Beste Grüsse
Steve