Teilergebnis in VBA nutzen
Schritt-für-Schritt-Anleitung
-
Öffne den VBA-Editor:
- Drücke
ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
-
Ein neues Modul erstellen:
- Rechtsklicke im Projektfenster auf
VBAProject (deine Datei) und wähle Einfügen > Modul.
-
VBA-Code eingeben:
- Füge den folgenden Code in das Modul ein:
Sub TeilergebnisAusgeben()
Dim x As Double
Dim rng As Range
Set rng = Range("B3:B600")
x = Application.Subtotal(103, rng)
If x > 0 Then
Debug.Print "Anzahl gefilterter Werte: " & x
End If
End Sub
-
Makro ausführen:
- Schließe den VBA-Editor und gehe zurück zu Excel. Drücke
ALT + F8, wähle TeilergebnisAusgeben und klicke auf Ausführen.
Häufige Fehler und Lösungen
Alternative Methoden
Eine andere Möglichkeit, das Teilergebnis zu berechnen, ist die Verwendung der Excel-Funktion direkt in einer Zelle:
- Schreibe in eine Zelle:
=TEILERGEBNIS(103;B3:B600). Dies funktioniert nur, wenn der Autofilter aktiv ist.
Du kannst auch die TEILSUMME-Funktion verwenden, um ähnliche Berechnungen durchzuführen, z.B. =TEILSUMME(1;B3:B600).
Praktische Beispiele
Angenommen, du hast eine Liste von Verkaufszahlen in den Zellen B3:B600. Du möchtest herausfinden, wie viele gefilterte Verkaufszahlen vorhanden sind:
Sub VerkaufszahlenTeilergebnis()
Dim totalSales As Double
totalSales = Application.Subtotal(103, Range("B3:B600"))
If totalSales > 0 Then
MsgBox "Gefilterte Verkaufszahlen: " & totalSales
Else
MsgBox "Keine gefilterten Verkaufszahlen vorhanden."
End If
End Sub
Tipps für Profis
-
Nutze benannte Bereiche: Es kann hilfreich sein, den Zellbereich als benannten Bereich zu definieren, um den Code leserlicher zu machen.
-
Fehlerbehandlung einbauen: Verwende On Error Resume Next, um mögliche Laufzeitfehler abzufangen und den Code stabiler zu gestalten.
-
Englische Versionen: Die Excel-Funktionen können je nach Sprache unterschiedlich sein. In der englischen Version von Excel würde TEILERGEBNIS als SUBTOTAL übersetzt.
FAQ: Häufige Fragen
1. Wie kann ich das Teilergebnis für verschiedene Filterkombinationen ausgeben?
Du kannst eine Schleife verwenden, um die verschiedenen Filterkombinationen durchzugehen und dabei jeweils das Teilergebnis zu berechnen.
2. Gibt es eine Möglichkeit, das Komma in einer Zahl zu verschieben?
Ja, du kannst die Funktion Excel Zahl Komma verschieben verwenden, um das Format einer Zahl zu ändern. Eine Möglichkeit ist, eine Zahl zu multiplizieren oder zu dividieren, um die Kommastellen zu verschieben.