Das Archiv des Excel-Forums
Nur eingeblendete Zellen addieren
- Nur eingeblendete Zellen addieren von Jan Bro vom 14.10.2003 13:00:50
- AW: Nur eingeblendete Zellen addieren - von TE am 14.10.2003 13:14:07
- AW: Nur eingeblendete Zellen addieren - von xXx am 14.10.2003 13:32:10
- AW: Nur eingeblendete Zellen addieren - von xXx am 14.10.2003 13:32:10
- AW: Nur eingeblendete Zellen addieren - von Galenzo am 14.10.2003 13:17:12
- AW: Nur eingeblendete Zellen addieren - von Jan Bro am 14.10.2003 13:36:44
- und wo ist "OL"? oT - von xXx am 14.10.2003 13:40:43
- AW: keene Ahnung :-) oT - von Galenzo am 15.10.2003 09:00:53
- AW: keene Ahnung :-) oT - von Galenzo am 15.10.2003 09:00:53
- AW: Nur eingeblendete Zellen addieren - von Jan Bro am 14.10.2003 16:10:09
- AW: Nur eingeblendete Zellen addieren - von Jan Bro am 14.10.2003 13:36:44
- AW: Nur eingeblendete Zellen addieren - von Galenzo am 14.10.2003 13:17:15
- AW: Nur eingeblendete Zellen addieren - von xXx am 14.10.2003 13:25:25
- AW: Nur eingeblendete Zellen addieren - von TE am 14.10.2003 13:14:07
 |
Betrifft: Nur eingeblendete Zellen addieren
von: Jan Bro
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
 |
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
|
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!
|
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!
|
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.
|
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!
|
Betrifft: AW: keene Ahnung :-) oT
von: Galenzo
Geschrieben am: 15.10.2003 09:00:53
|
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
|
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!
|
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!
| |
