Probelme beim Debugging - VBA EXCEL

[abraxus14]

Hallo Community,

bezüglich Excel VBA hab ich das Problem, dass ich beim Debuggen den Einzelschrittmodus zwar starten kann, das ganze bricht aber sofort mit einem Fehlerton ab. Nun weiß ich gar nicht, was ich falsch mache. Immer wenn ich die Argumente herauslösche, funktioniert das debuggen. Mit Argumenten jedoch nicht.
Nun habe ich mal ein Beispiel aus dem Internet genommen, welches bei mir ebenfalls nicht funktioniert.

Function myAdd(Arg1 As Range, ParamArray Args2() As Variant) As Double
    Dim elem As Variant
    Dim i As Long
    For Each elem In Arg1
        myAdd = myAdd + elem.Value
    Next elem
    For i = LBound(Args2) To UBound(Args2)
        For Each elem In Args2(i)
            myAdd = myAdd + elem.Value
        Next elem
    Next i
End Function

In dem Feld, wo die Formel steht, zeigt EXCEL den Fehler #WERT an. Aufgerufen wird die Funktion mit =myAdd(C1:C3) In C1 steht 11; in c12 steht 12; in C3 steht 13
Bei Aufruf von =myADD(A1;C1:C3) das gleiche Spiel .... in A1 steht 10

Der Code steht bei mir in einem Modul, das ich hinzugefügt habe. Sonst habe ich keine Einstellungen unternommen. Warum funktionieren Beispiele mit Parameter bei mir nicht?
Danke für die Hilfe im Voraus.

 

[Scientist]

Hier sollen nur Summen gebildet werden?
Wozu da eine eigene Funktion schreiben?

Ansonsten funktioniert das ganze bei mir.

 

[abraxus14]

Es geht ja nicht darum, ob die Funktion sinnvoll ist, sondern warum eine Funktion bei anderen funktioniert, bei mir aber nicht...Ich weiß nicht, was ich da falsch mache??

 

[Scientist]

Nachtrag:
Setze eine Haltemarke zum Debuggen (in gewuenschte Zeile klicken -> F9 oder links auf den Rand klicken).
Wenn die Funktion ausgefuehrt wird, stoppt es automatisch bei der markierten Zeile.

Sicher, dass nur Zahlen in den angegebenen Zellen stehen?

 

[abraxus14]

Wenn ich eine Haltemarke setze, dann kommt auch der Fehlerton. In den Feldern stehen nur Zahlen.

 

[Scientist]

Kannst du die Datei hier hochladen?

 

[abraxus14]

ist eine XLSM, die kann man glaub ich nicht hochladen, aber lade mal ohne makro hoch

 

[Scientist]

Einfach als Zip hochladen.

Nachtrag:
Welche Excel-Verison wird verwendet?

 

[abraxus14]

ok. Danke. Office 365 wird verwendet. Neuste Version.

 

[Scientist]

Function my_Add(Arg1 As Range, ParamArray Args2() As Variant) As Double
    Dim elem As Variant
    Dim i As Long
    For Each elem In Arg1
        myAdd = myAdd + elem.Value
    Next elem
    For i = LBound(Args2) To UBound(Args2)
        For Each elem In Args2(i)
            myAdd = myAdd + elem.Value
        Next elem
    Next i
End Function

Diese Funktion war in der Datei.
Hier ist der Funktionsname falsch.
Die falsche Bezeichnung fuehrt aber zum Fehler "#Name" und nicht zu "#Wert".
Ansonsten funktioniert auch die Datei.

Welche Office Version wird genutzt?

 

[abraxus14]

Ja Sorry, hab da ein wenig rumgespielt, aber auch mit gleichen Namen ergibt sich das Problem. Also sowohl im Modul, als auch auf der Oberfläche.
Office Version 2002

 

[Scientist]

Die Versionsangabe ist dezent verwirrend ...
Also Office 365?

Wurden irgendwelche Einstellungen veraendert?
Andere Makros laufen? Makros sind generell zugelassen?

Ansonsten wuerde ich darauf tippen, dass bei irgendeinem Update etwas Schief gegangen ist.
Wenn irgendeine Bibliothek defekt ist, kann es schon zu seltsamen Fehlern kommen.
Ich finde auch nichts zu irgendwelchen Problemen, bei der man keine Haltepunkte setzen kann.

Vielleicht hat ja noch jemand anderes eine Idee ...

 

[abraxus14]

ja super danke. Dann installiere ich mal neu. Einstellungen bezüglich der makros wurden nicht verändert.