Das Archiv des Excel-Forums

Nur eingeblendete Zellen addieren

Bild

Betrifft: Nur eingeblendete Zellen addieren
von: Jan Bro

Geschrieben am: 14.10.2003 13:00:50

Hallo Wie kann ich (ein/ausblenden) erfolgt über ein seperates Macro einen Zellwert addieren Bedingung: er muss eingeblendet sein und in einer anderen Spalte muss ein OL stehen. Gibt es dafür eine fertige Funktion, oder muss ich das als Macro schreiben? Wenn als Macro, wie kann ich den OFFSET Befehl dafür verwenden?

thx
Jan
Bild


Betrifft: AW: Nur eingeblendete Zellen addieren
von: TE
Geschrieben am: 14.10.2003 13:14:07

Hi,

sie Dir mal die Excel-Funktion =TEILERGEBNIS(9;...) an ...
Gruss Thomas


Bild


Betrifft: AW: Nur eingeblendete Zellen addieren
von: xXx
Geschrieben am: 14.10.2003 13:32:10

Hallo,
Teilergebnis funktioniert nur bei gefilterten Werten, nicht bei ausgeblendeten Zeilen.

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: Nur eingeblendete Zellen addieren
von: Galenzo
Geschrieben am: 14.10.2003 13:17:12

Hallo,
da gibt es IMHO keine vordefinierte Funktion.
Du könntest dir selber eine schreiben, allerdings besteht der Nachteil, daß das Ergebnis nicht automatisch aktualisiert wird. Application.Volatile reagiert wohl nur bei der Änderung von Werten, aber nicht auf das Ein- bzw. Ausblenden von Zellen. Also wird die Funktion nur bei Werte-Änderungen oder bei manueller Neuberechnung (mit F9) aktualisiert.


Private Function SummeEingeblendet(target As Range) As Double
Application.Volatile
Dim rng As Range
    For Each rng In target.Rows
        If Not (rng.Hidden) Then
            SummeEingeblendet = SummeEingeblendet + rng.Value
        End If
    Next
End Function


Viel Erfolg!


Bild


Betrifft: AW: Nur eingeblendete Zellen addieren
von: Jan Bro
Geschrieben am: 14.10.2003 13:36:44

Thx
wow das war ja wirklich schnell. Ich hatte geglaubt mit Offset da durch gehen zu können. Die Aktualisierung will ich mittels Worksheet Change versuchen. Trotzdem Danke für die schnelle Hilfe.


Bild


Betrifft: und wo ist "OL"? oT
von: xXx
Geschrieben am: 14.10.2003 13:40:43

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: keene Ahnung :-) oT
von: Galenzo
Geschrieben am: 15.10.2003 09:00:53




Bild


Betrifft: AW: Nur eingeblendete Zellen addieren
von: Jan Bro
Geschrieben am: 14.10.2003 16:10:09

Ich habe jetzt mehrere Versuche gestartet komme aber zu keinem Ergebnis,
ich bekomme ständig objekt erforderlich, wo liegt da der Fehler?

Ende = Range("A7").End(xlUp).Row
target = Range("A7:N" & Ende)
Application.Run FindeHidden(target)
[...]

Function FindeHidden(target) As Double
Application.Volatile
Dim rng As Range
For Each rng In target.Rows
If Not (rng.Hidden) Then
End If
Next
End Function



Bild


Betrifft: AW: Nur eingeblendete Zellen addieren
von: Galenzo
Geschrieben am: 14.10.2003 13:17:15

Hallo,
da gibt es IMHO keine vordefinierte Funktion.
Du könntest dir selber eine schreiben, allerdings besteht der Nachteil, daß das Ergebnis nicht automatisch aktualisiert wird. Application.Volatile reagiert wohl nur bei der Änderung von Werten, aber nicht auf das Ein- bzw. Ausblenden von Zellen. Also wird die Funktion nur bei Werte-Änderungen oder bei manueller Neuberechnung (mit F9) aktualisiert.


Private Function SummeEingeblendet(target As Range) As Double
Application.Volatile
Dim rng As Range
    For Each rng In target.Rows
        If Not (rng.Hidden) Then
            SummeEingeblendet = SummeEingeblendet + rng.Value
        End If
    Next
End Function


Viel Erfolg!


Bild


Betrifft: AW: Nur eingeblendete Zellen addieren
von: xXx
Geschrieben am: 14.10.2003 13:25:25

Hallo,
da musst du dir wohl eine Funktion schreiben. Was meinst du mit Offset verwenden?
Ich würde die Funktion etwa so definieren:

Function SummeX(SumBereich As Range, SuchBereich As Range, Suchbegriff As String)
Dim C As Range
For Each C In SumBereich.Cells
If Cells(C.Row, SuchBereich.Column) = Suchbegriff _
And Rows(C.Row).Hidden = False Then
SummeX = SummeX + C.Value
End If
Next C
End Function

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


 Bild

Excel-Beispiele zum Thema " Nur eingeblendete Zellen addieren"

Eingeblendete Zeilen mit Werten zählen download Makros in Abhängigkeit vom Zellennamen aufrufen download
Zellen auf Kommentar überprüfen download Spalten bedingt summieren und Zellen formatieren download
Text aus Textbox in Zellen aufteilen download Zellen vergleichen und markieren download
Zählen formatierter Zellen download Daten aus Textdatei gezielt in Zellen übernehmen download
Zellen verbinden und trennen download Zellen bei Minuswerten schraffieren download
Zeilen oberhalb der markierten Zellen einfügen download Drei Zellen rechts der aktiven Zelle markieren download
Zellen vom Druck ausschließen download Zellenwert als Autofilter-Kriterienwert download
Nur Zellen mit Inhalt in ComboBox listen download Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download
Zellen nach Schriftfarbe summieren download Füllen aller leeren Zellen mit einem Platzhalter download
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download Zeilen mit Zellen mit rotem Hintergrund ausblenden download
Anzahl der gelb hinterlegten Zellen ermitteln download Editieren von Zellen durch DoppelKlick verhindern download
Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download
Prüfung, ob Parallelzellen übereinstimmen download Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download
Kofpzeilenwerte angekreuzter Zellen multiplizieren download Zellen über Tabellenblatt-Schaltfläche multiplizieren download
Wert aus A1 in mehrere Zellen übernehmen download Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download Nur sichtbare Zellen addieren download
Zellinhalte vor dem Verbinden der Zellen zusammenfassen download Blatt auswählen und Zellen nacheinander drucken download
Leere und Zellen mit 0 aus-/einblenden download Zugriff auf Zellen unter Verwendung eines Bereichsnamens download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download
Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download Prüfung, welche Zellen nach Öffnen verändert wurden download
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeilenhöhe bei verbundenen Zellen anpassen download Einfügen von Zeilen vor und nach Zellen mit Fettdruck download
Bei Zelleingabe andere Zellen füllen download Dialogaufruf, wenn zwei Zellen Werte enthalten download
Gültigkeitsliste ohne Lerrzellen download Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download
Zellen verbinden, ohne dass Werte verlorengehen download Eingaben aufaddieren download
Wenn "fett", dann addieren download Alle Werte eines Wochentages aus Monatsblättern addieren download
Monatstage eines vorgegebenen Zeitraum listen und addieren download In einer UserForm Berechnungen aufaddieren download
Ausgewählte Werte aus UserForm-ListBoxes addieren download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Daten übertragen oder addieren download Zelleinträge den Werten in einer zweiten Zelle hinzuaddieren download
Zellwerte UserForm-TextBoxwerte hinzuaddieren download In Monatsblättern gelistete Werte nach Produkten addieren download
Stunden tagesweise addieren download Eingabebegrenzung beim Addieren download
Artikel bei Nichtvorhandensein eintragen, sonst addieren download Gemäss Gültigkeits-Listenauswahl Beträge addieren download