Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur sichtbare Zellen addieren (Spezialfall)

Forumthread: Nur sichtbare Zellen addieren (Spezialfall)

Nur sichtbare Zellen addieren (Spezialfall)
04.11.2008 14:06:00
Nicolas
Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. angepasst werden:

Function NettoSumme(rngAll As Object)
Dim rngAct As Range
Dim dValue As Double
For Each rngAct In rngAll.Cells
If Rows(rngAct.Row).Hidden = False Then
dValue = dValue + rngAct.Value
End If
Next rngAct
NettoSumme = dValue
End Function


Besten Dank

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nur sichtbare Zellen addieren (Spezialfall)
04.11.2008 14:51:48
Erich
Hallo Nicolas,
probier mal 

Function NettoSumme(rngAll As Range)
Dim rngAct As Range
For Each rngAct In rngAll.Cells
'     If Not (rngAct.EntireRow.Hidden Or rngAct.EntireColumn.Hidden) Then
If rngAct.EntireRow.Hidden + rngAct.EntireColumn.Hidden = 0 Then
NettoSumme = NettoSumme + rngAct.Value
End If
Next rngAct
End Function

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Nur sichtbare Zellen addieren (Spezialfall)
04.11.2008 15:02:00
Nicolas
Hallo Erich
Die Formel gibt leider nur #WERT! aus
=NettoSumme(O7;Q7;S7;U7;W7;Y7;AA7;AC7;AE7;AG7;AI7;AK7)
AW: Nur sichtbare Zellen addieren (Spezialfall)
04.11.2008 15:33:12
Erich
Hi ,
das ist kein Wunder. Du rufst du Funktion mit ca. 12 Parametern auf, sie erwartet aber nur einen einzigen.
Eine Möglichkeit:
Aufruf in der Tabelle mit einer Zeichenkette, die die Bereiche festlegt:
=NettoSumme("O7,Q7,S7,U7,W7,Y7,AA7,AC7,AE7,AG7,AI7,AK7")
Und so sieht dann die Prozedur aus: 

Function NettoSumme(strBereich As String)
Dim rngC As Range
For Each rngC In Range(strBereich)
If rngC.EntireRow.Hidden + rngC.EntireColumn.Hidden = 0 Then _
NettoSumme = NettoSumme + rngC
Next rngC
End Function

Nachteil:
Wenn du Zeilen oder Spalten einfügst oder löschst, musst du den Text im Funktionsaufruf anpassen,
das geschieht dann nicht automatisch.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Nur sichtbare Zellen addieren (Spezialfall)
04.11.2008 15:46:26
Nicolas
Hi Erich
Super, so ist es OK für mich.
Besten Dank
Nicolas
AW: Nur sichtbare Zellen addieren (Spezialfall)
04.11.2008 15:02:42
Erich
Hi nochmal,
wenn du die Funktion nur in VBA, also nicht als UDF (benutzerdef. Tabellenfunktion) brauchst,
gehts auch einfacher: 

Function NettoSumme(rngAll As Range)
NettoSumme = Application.Sum(rngAll.SpecialCells(xlCellTypeVisible))
End Function

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
P.S.: rngAll ist ein Range, muss/sollte also nicht als "Object" deklariert werden.

Anzeige
;

Forumthreads zu verwandten Themen

Quelle kopieren nur in sichtbare Zielzellen ....
Stephan

Hallo Profis,
habe folgendes Problem:
möchte Zelleninhalte felxibel von einer Tabelle1 (sichbar Zellen) in eine andere Tabelle2 (sichbare Zellen) kopieren.
Beispiel:
C1=Apfel nach Tabelle2.A11
C2=Baum nach Tabelle2.A12
C...
08.12.2011 16:52:18
Thread-ID: 1241194
4 Beiträge
Nur Zellen über Zellen mit best. Wert addieren?
Felix

Ich möchte gerne in dieser Beispieltabelle, in Zelle FR16 die Fairwaylängen (Zeile 14) addieren. Allerdings sollen nur die Zellen addiert werden, unter denen in Zeile 16 ein Wert größer 0 steht. Würde z. B. in Zelle E16 ein Wert 0:00:00 stehen, so sollen die 259 Meter nicht addiert werden.
...
29.02.2012 19:03:07
Thread-ID: 1252975
7 Beiträge
Nur auf sichtbare Zeilen/Zellen reagieren
Ron

Hallo Allerseits
In meinem Excel habe ich einen Aufbau gewählt, der eine Darstellung von Titeln und Informationen beinhaltet.
Einige Zeilen sind dabei ausgeblendet, da sie in diesem Moment nicht benötigt werden.
Jetzt möchte ich für eine Formatierung der aktuellen Anzeige "sichtbare...
30.11.2012 08:59:58
Thread-ID: 1288667
8 Beiträge
Anzeige
UDF nur auf sichtbare Zellen anwenden.
Michael

HAllo zusammen,
ich mal wieder! Ist es möglich eine UDF
https://www.herber.de/forum/archiv/1308to1312/t1309027.htm#1309038
so zu modifizieren, dass sie bei einem gesetzten Filter nur auf die sichtbaren Zellen angewendet wird?
Danke und Gruß
Micha
16.07.2013 15:49:24
Thread-ID: 1322776
2 Beiträge
Makro nur für gefilterte und eingeblendete Zeilen
flotschuk

Hey,
ich sitz momentan leider gerade etwas aufm Schlauch.
Ich habe eine Tabelle mit deren Werte ich ein Säulen-Diagramm befülle. Die Färbung der Säulen ist dabei abhängig von bestimmten Tabellenwerten. Für diese Färbung habe ich ein Makro geschrieben, dass soweit auch funktioniert. Alle...
19.03.2015 12:41:30
Thread-ID: 1415949
5 Beiträge
Makro nur bei eingeblendeten Zeilen ausführen
Rolf

Hallo zusammen
Mit nachstehendem Code (den ich von hier habe, besten dank!) werden Zeilen miteinander verglichen und bei Änderungen (= ungleicher Wert) farbig markiert.
Dim lzVergleich As Long lzVergleich = Cells(Rows.Count, "A").End(xlUp).Row Dim spVergleich As Long spVergleich = Cell...
08.04.2015 21:00:47
Thread-ID: 1419755
8 Beiträge
VBA - Summe nur von sichtbaren Zellen
sichtbaren

Hallo Forum,
mit folgendem Code errechne ich mir die Summe einer bestimmten Spalte von Werten größer 0:
Range("E1").Value = WorksheetFunction.SumIf(Range(Cells(3, 19), Cells(3, 19).End(xlDown)), ">0")
With Range("E1")
.WrapText = False
.Font.Bold = True
End With
R...
29.05.2015 11:45:22
Thread-ID: 1428320
5 Beiträge
Anzeige
nur Zahlen in den Zellen addieren
rieckmann

Hallo,
ich suche eine Formel die nur Zahlen aus mehrerer Zeilen addiert wo aber auch Text enthalten ist.
Beispiel in Spalte A:
1 Hefter
2 Akten
10 Binder
Nun soll die Anzahl alle Objekte gezählt werden
Ergebnis hier also 13
Wüsste da jemand eine Formel ?
Gruß...
24.08.2015 08:51:46
Thread-ID: 1443968
19 Beiträge
Summe mit Makro nur von eingeblendeten Zeilen
eingeblendeten

Hallo liebe Forumsmitglieder,
eine kurze Frage: Ich habe bei meier Tabelle ein Makro drin, der automatisch die Summe bis zu letzten Zeile errechnet. Jetzt habe ich vor diesen Code verschiedene Filter geschaltet, so das natürlich nur die Zeilen mitberechnet werden die auch eingeblendet sind....
03.11.2015 18:15:08
Thread-ID: 1456145
3 Beiträge
Anzeige
Nur bestimmte Zellen addieren und kopieren
Markus

Liebes Forum,
Mein Anliegen ist, dass alle Werte in Spalte A die zu "X" in Spalte B (Tabelle 1) gehören, aufsummiert in Tabelle 2 kopiert werden.
Also, immer dann, wenn ein "X" in Spalte B vorkommt, den dazugehörigen Wert in Spalte A aufaddieren.
Geht sowas ohne VBA? Wenn-Dann Funk...
07.03.2016 14:35:00
Thread-ID: 1480386
5 Beiträge
Anzeige
nur eingeblendete Zellen einfügen
Emanuel

Hallo zusammen,
ich habe eine Liste mit zwei Spalten. Wenn ich eine Spalte filtere, möchte ich die sichtbar gebliebenen Zellen kopieren und in die andere Spalte einfügen.
Das Kopieren der sichtbaren Zellen bereitet mir keine Probleme.
Wenn ich sie jedoch in die andere Spalte einfüge...
06.04.2016 10:57:44
Thread-ID: 1486239
2 Beiträge
Nur Zellen mit grün addieren
Tom

Hallo zusammen,
ich möchte, dass nur die Zellen, die grün markiert sind, addiert werden und das Ergebnis in Zeile 3 dargestellt wird.
https://www.herber.de/bbs/user/107720.xlsm
Anbei die Bsp-Mappe
Hoffe, die ist möglich.
Danke vorab
Gruß
TOM
19.08.2016 15:11:14
Thread-ID: 1510215
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Nur sichtbare Zellen addieren in Excel

Schritt-für-Schritt-Anleitung

Um in Excel nur die sichtbaren Zellen zu summieren, kannst Du eine benutzerdefinierte Funktion (UDF) in VBA erstellen. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Function NettoSumme(rngAll As Range)
    NettoSumme = Application.Sum(rngAll.SpecialCells(xlCellTypeVisible))
End Function

  4. Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.

  5. Verwende die Funktion in einer Zelle, indem Du folgendes eingibst:

    =NettoSumme(A1:A10)

    Dabei ersetzt Du A1:A10 durch den Bereich, den Du summieren möchtest.

Häufige Fehler und Lösungen

  • Fehler #WERT!: Dieser Fehler tritt auf, wenn Du die Funktion mit mehreren Parametern anstatt eines Bereichs aufrufst. Stelle sicher, dass Du nur einen Bereich angibst, z.B. =NettoSumme("O7,Q7,S7").

  • Funktion wird nicht gefunden: Überprüfe, ob Du die Funktion korrekt im VBA-Editor gespeichert hast und dass die Makros in Excel aktiviert sind.

Alternative Methoden

Wenn Du die Funktion nicht in VBA einsetzen möchtest, kannst Du auch die SUBTOTAL-Funktion verwenden, die speziell für gefilterte Daten gedacht ist:

=SUBTOTAL(109, A1:A10)

Die 109 steht für die Summe nur von sichtbaren Zellen. Diese Methode funktioniert gut, wenn Du Excel-Filter anwendest.

Praktische Beispiele

  1. Eingeblendete Zellen summieren: Angenommen, Du hast in den Zellen A1:A10 einige Werte und einige Zeilen sind ausgeblendet. Um nur die sichtbaren Zellen zu summieren, verwende:

    =NettoSumme(A1:A10)

  2. Summe bei gefilterten Daten: Wenn Du einen Autofilter auf eine Tabelle angewendet hast und nur die angezeigten Zellen summieren möchtest, kannst Du die SUBTOTAL-Funktion wie folgt verwenden:

    =SUBTOTAL(109, B2:B20)

Tipps für Profis

  • Verwende SpecialCells: Wenn Du nur mit sichtbaren Zellen arbeiten möchtest, ist die Verwendung von SpecialCells(xlCellTypeVisible) der effizienteste Weg.
  • Makros zur Automatisierung: Automatisiere den Prozess, indem Du ein Makro schreibst, das regelmäßig die Summe der sichtbaren Zellen aktualisiert.
  • Dokumentation: Achte darauf, Deine VBA-Funktionen gut zu dokumentieren, damit Du und andere Benutzer sie leicht verstehen und nutzen können.

FAQ: Häufige Fragen

1. Wie kann ich die Summe nur von eingeblendeten Zeilen in einer Tabelle berechnen?
Verwende die Funktion NettoSumme und übergib den Bereich der Tabelle.

2. Was ist der Unterschied zwischen SUBTOTAL und SUM?
SUBTOTAL kann nur die Werte sichtbarer Zellen summieren, während SUM alle Zellen summiert, unabhängig von ihrem Sichtbarkeitsstatus.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige