Nur Zellen mit FETT-Schrift addieren in Excel
Schritt-für-Schritt-Anleitung
Um nur die Zellen mit FETT-Schrift in Excel zu addieren, kannst Du eine benutzerdefinierte Funktion im VBA-Editor erstellen. Hier ist, wie Du das machst:
-
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
-
Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
-
Füge den folgenden VBA-Code ein:
Function Summe_Fett(Quelle As Range) As Double
Dim zelle As Range
Dim tmp As Double
tmp = 0
For Each zelle In Quelle
If zelle.Font.Bold And zelle.Value > 0 Then
tmp = tmp + 1
End If
Next
Summe_Fett = tmp
End Function
-
Schließe den VBA-Editor und kehre zu Deinem Excel-Dokument zurück.
-
Verwende die Funktion in einer Zelle, indem Du z.B. =Summe_Fett(A1:A10) eingibst, um die Anzahl der Zellen mit FETT-Schrift im Bereich A1:A10 zu ermitteln.
Häufige Fehler und Lösungen
-
Fehler bei der Berechnung: Achte darauf, dass die Formatierung (FETT) und der Wert der Zelle (größer als 0) korrekt überprüft werden. Wenn das Ergebnis nicht wie erwartet ist, überprüfe die Zellen im angegebenen Bereich.
-
Automatische Berechnung: Die Funktion aktualisiert sich nicht automatisch, wenn Du nur die Formatierung änderst. Du musst eine Zelle im Bereich ändern, um die Berechnung zu aktualisieren.
Alternative Methoden
Falls Du keine VBA-Lösungen verwenden möchtest, gibt es alternative Ansätze:
-
Bedingte Formatierung: Du kannst auch die bedingte Formatierung verwenden, um Zellen hervorzuheben, die bestimmten Kriterien entsprechen. Dies ist jedoch nicht direkt für die Addition geeignet.
-
Hilfsspalte: Verwende eine Hilfsspalte, um die FETT-Formatierung manuell zu kennzeichnen und dann die Summe dieser Hilfsspalte zu berechnen.
Praktische Beispiele
Nehmen wir an, Du hast die folgenden Werte in den Zellen A1 bis A5:
Wenn Du die Zellen A2, A3 und A4 in FETT formatierst und die Funktion =Summe_Fett(A1:A5) verwendest, erhältst Du das Ergebnis 3, da nur drei Zellen mit FETT-Schrift vorhanden sind.
Tipps für Profis
-
Optimierung: Wenn Du die Funktion häufig verwendest, kannst Du sie optimieren, indem Du zusätzliche Bedingungen hinzufügst oder die Berechnung auf bestimmte Bereiche beschränkst.
-
Debugging: Verwende Debug.Print zelle.Address innerhalb der Schleife, um zu überprüfen, welche Zellen die Bedingungen erfüllen.
FAQ: Häufige Fragen
1. Funktioniert diese Methode in allen Excel-Versionen?
Ja, diese VBA-Funktion sollte in den meisten modernen Excel-Versionen funktionieren, einschließlich Excel 2010 und später.
2. Was passiert, wenn ich die Schriftart ändere, aber den Wert nicht?
Die Funktion aktualisiert sich nur, wenn sich die Werte in den Zellen ändern. Eine Änderung der Schriftart allein führt nicht zu einer automatischen Aktualisierung der Berechnung.