Office: Makro abspeichern

Hallo Excelprofies,


mich plagt folgendes Problem:

Ich möchte ein Makro benutzen welches ich hier im Forum gefunden habe, um Zahlen aus grünen, gelben und roten Farbbereichen zu summieren. Das Makro ist wie folgt:


Function Farbsumme(Bereich As Range, Farbe As Integer)
Dim Zelle As Object
Application.Volatile
For Each Zelle In Bereich
If Zelle.Interior.ColorIndex = Farbe Then
Farbsumme = Farbsumme + Zelle
End If
Next
End Function

Die Funktion um beispielsweise die gelb hinterlegten Felder zu addieren ist wie folgt:

=Farbsumme(B7:B56;6)

Das Funktioniert auch super, solange bis ich die Datei als Arbeitsmappe mit Makros speichere und neu öffne. Dann steht in der Zelle nurnoch #NAME?

Was mache ich falsch? Muss ich irgendwie etwas im VBA einstellen? Ich mach sowas mit Makros zum ersten mal.


Danke für Eure Hilfe!

MfG

Stefan

 

Hallo Stefan,

wenn Du folgendes VBA-Makro verwendest, dürfte das Problem beseitigt sein:

Code:

Public Function Farbsumme(Bereich As Range, Farbe As Variant) As Variant
  Application.Volatile
  Dim Zelle As Range
  Dim FarbSu As Variant
  FarbSu = 0
  For Each Zelle In Bereich.Cells
    If Zelle.Interior.ColorIndex = Farbe Then
      FarbSu = FarbSu + Zelle.Value
    End If
  Next Zelle
  Farbsumme = FarbSu
End Function

Zur Erklärung:
Dein Makro und mein modifiziertes Makro verwenden die For Each ... Next-Schleife, in der eine If ... Then ... End If-Abfrage enthalten ist und in dieser ist die eigentliche Farbsummations-Anweisung enthalten:
Dein Makro: Farbsumme = Farbsumme + Zelle
Mein Makro: FarbSu = FarbSu + Zelle .Value
Da der Name der Funktion 'Farbsumme' lautet, in Deiner Summationsanweisung der Name 'Farbsumme' rechts vom Zuweisungsoperator '=' vorkommt, wird dort nicht der Inhalt einer Variablen 'Farbsumme' verwendet, sondern wiederum die Funktion 'Farbsumme' (rekursiv) aufgerufen. Da in Deiner Funktion nirgendwo eine Bedingung definiert ist, durch die die Rekursion beendet würde, wird quasi eine unendliche Rekursion ausgeführt mit der Gefahr des (Stapel)speicherüberlaufs - im einfachsten Fall kommt es zu einem Systemhänger in der Exceldatei, im schlimmsten Fall zu einem Absturz der Exceldatei.

Ich habe für die Summationsvariable (FarbSu) einen anderen Namen als den der Funktion (Farbsumme) gewählt, habe sie außerdem mit dem Startwert 0 belegt und habe den Wert der Variablen 'FarbSu' in der vorletzten Makrozeile dem Funktionsnamen 'Farbsumme' (links von '=' !!) zugewiesen, was in VBA bedeutet, dass die Funktion einen Rückgabewert erhält.
Außerdem habe ich weitere Variablen mit expliziten bzw. effizienteren Datentypen versehen.

 

Hallo Exl121150!

Das ist IMHO nicht richtig! Es wird genauso addiert wie in deinem Code. Um die Funktion rekursiv aus sich selbst aufzurufen, müssten auch die Funktionsparameter angegeben werden; dies ist hier aber nicht der Fall. Das wird vom Fragesteller ja auch bestätigt:

Die Fehlermeldung "#NAME!" rührt wohl eher daher, dass beim erneuten Öffnen der Mappe die Makros möglicherweise einfach nicht aktiviert wurden und daher die Funktion als solche gar nicht gefunden werden kann.

 

Hallo schatzi,

Du hast recht. Heute habe ich die Funktion nochmals getestet, und da konnte ich den Hänger in der Excel-Datei nicht mehr reproduzieren, der beim 1. Test gestern aufgetreten ist. Musste wohl ein unglücklicher/zufälliger Umstand gewesen, obwohl ich persönlich lieber Code schreibe, der eindeutig deklariert und initialisiert ist.
Manchmal ist es mir auch schon passiert - durch Tippfehler in einem Bezeichner - dass ich endlos suchen musste, weil leider die Fehlermeldung eine sehr "hilfreiche" war.

@Stefan:
Je nach dem welche Excel-Version Du hast: auf alle Fälle muss der Zugriff auf die Makros während des Ladens der Excel-Datei aktiv(iert) sein trotz eventueller Warnungen durch Excel.
Sonst gelten sie als nicht verhanden und Excel kann im Arbeitsblatt vorhandene benutzerdefinierte Funktionen nicht finden.

Daraus entnehme ich, dass Du Excel2007 hast. Dann musst Du die Datei an einem 'vertrauenswürdigen Ort' speichern, um Dir die lästige Aktiviererei beim Öffnen der Datei zu ersparen.
Falls Du die Datei nicht an einem vertrauenswürden Ort gespeichert hast und auch keine Aufforderung zur (Warnung vor) Aktivierung der Makros erscheint, musst Du ins Vertrauensstellungscenter (über Excel-Optionen) gehen und dort (Button 'Einstellungen für das Vertrauensstellungscenter...') die Option 'Alle Makros mit Benachrichtigung deaktivieren' unter 'Einstellungen für Makros' einstellen (die anderen 3 Optionen sind in Deiner Situation in der Regel nicht hilfreich).

 

Super, es wurde tatsächlich bloß das Makro geblockt, jetzt klappts wieder einwandfrei. :-D

Danke