Ich habe ein Problem wer kann mir helfen ?
Ich habe mir eine Funktion "Min0" in VB Basic als ???.xla geschrieben. Die Funktion soll das Minimum einer Zahlenreihe jedoch grösser als Null ist zurückgeben. Die Funktion funktioniert auch wenn ich sie neu eingeben oder wenn die Tabelle1 in welcher die Funktion angewendet wird beim Laden der Excel Datei die aktuelle Tabelle ist.
Wenn aber nicht Tabelle1 beim Laden der Excel Datei die aktuelle Tabelle ist und ich anschließend auf Tabelle1 wechsele gibt die Funktion immer 0. Auch mit neu berechnen (F9) kann die Funktion nicht aktualisiert werden.
Die Funktion gibt erste den richtigen Werte zurück, wenn ich sie mit suchen und ersetzen aktualisierte.
Beispiel:
A1 = 1
A2 = 2
A3 = 0
A4 = 3
A5 = Min0(A1:A4) ergibt 1 (richtig)
A5 = Min0(A1:A4) ergibt 0 (falsch)
'==================
Public Function Min0(Zelle_R As Range)
Zeil_Beg = Zelle_R.Row
Spalt_Beg = Zelle_R.Column
Zeil_E = Zelle_R.Rows.Count + Zelle_R.Row - 1
SPALT_E = Zelle_R.Columns.Count + Zelle_R.Column - 1
'wert_1 = 0
Min0 = wert_1
wert_2 = 999999999
For I1 = Zelle_R.Row To Zeil_E
For I2 = Spalt_Beg To SPALT_E
wert_1 = Cells(I1, I2).Value
If wert_1 > 0 And wert_1 <= wert_2 Then wert_2 = wert_1
Next I2
Next I1
If wert_2 > 999999998 Then Min0 = 0.001 Else Min0 = wert_2
End Function
'==================