Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1692to1696
1692to1696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vba - SumIf / visible

Forumthread: vba - SumIf / visible

vba - SumIf / visible
04.06.2019 10:33:38
Fred

Hallo VBA&Excelexperten,
ich tobe mich gerade an VBA-Funktionen aus.
Mit "Summewenn" erziele ich in meinem Beispiel gewünschtes Ergebnis. 
Worksheets("Beispiel").Range("B4") = Application.WorksheetFunction.SumIf(Worksheets("Basis").Range("E1:E500"), Worksheets("Beispiel").Range("E4"), Worksheets("Basis").Range("q1:q500"))
Meine Frage:
Wenn es sich um gefilterte Daten handelt, in wie weit muß ich dann oberen Code ändern, wenn nur die "sichtbaren" Daten entsprechend berücksichtigt werden sollen.
Mit freundlichen Gruß
Fred Neumann
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vba - Agregat
04.06.2019 11:03:33
Fennek
Hallo,
die Funktion =Agregat rechnet auch ohne ausgeblendete Zellen und kann, im Gegesatz zu den Funktion 14+, auch per VBA gesetzt werden.
Also erst im Blatt ausprobieren und dann nach VBA übertragen.
mfg
Aggregat <> SummeWenn
04.06.2019 11:21:16
ASC_254
Hi
im Prinzp ja, allerdings sind die -Wenn(s)-Funktionen immer noch nicht ins Aggregat mit aufgenommen
Gruß Daniel
Anzeige
AW: vba - SumIf / visible
04.06.2019 11:18:52
ASC_254
Hi
prinzipiell kannst du in VBA einen Zellbereich mit dem Zusatz: 

.SpecialCells(xlcelltypevisible)
auf die sichtbaren Zellen einschränken.
allerdings kann das SummeWenn nicht mit Zellbereichen, die in mehrere nicht zusammenhängende Teilbereiche unterteilt sind, umgehen.
trage also in eine freie Spalte in die sichtbaren Zellen den Wert 1 ein und verwende diese Hilfsspalte dann als zusätzliche Bedingung mit SummeWenns (und nicht mehr SummeWenn, weil du jetzt 2 Bedingungen hast)
Sheets("Basis").Range("Z1:Z500").SpecialCells(xlcelltypevisible).Value = 1
Sheets("Beispiel").Range("B4") = Worksheetfunction.SumIfs(_
Sheets("Basis").Range("Q1:Q500"), _
Sheets("Basis").Range("E1:E500"), Sheets("Beispiel").Range("E4"), _
Sheets("Basis").Range("Z1:Z500"), 1)
Sheets("Basis").Range("Z1:Z500").SpecialCells(xlcelltypevisible).ClearContents

Gruß Daniel
Anzeige
AW: vba - SumIf / visible
04.06.2019 11:32:54
Fred
Hallo Daniel,
ja, die sichtbaren Zeilen in einer "Hilfsspalte" mit Wert belegen und diesen in die Kriterien aufnehmen (SummeWenn wird SummeWenns).
Funzt einwandfrei!
.. und eine gute Option für weitere Berechnungen in Zukunft.
Danke für die Lösung!!
Gruß
Fred
;

Forumthreads zu verwandten Themen

VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Anzeige
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
Anzeige
If Not Selection.Copy Then ???
Karsten

Hallo,
ich möchte, dass wenn ich kopiert habe und auf eine andere Zelle wechsele, Target.WrapText = True übersprungen wird.
Da meine Codekonstruktion noch nicht stimmt, wird immer die Zelle in die ich wechsele, im Kopiermodus angezeigt. Kann mir jemand helfen?
Private Sub Worksheet_...
02.12.2009 01:41:36
Thread-ID: 1121269
6 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
VBA Schleife für Sperranweisung
Marc

Hallo zusammen.
In meiner Tabelle A, B, C, D (à 10 Zeilen) soll die jeweiligeSpalte gesperrt werden wenn in der Überschrift ein X steht.
Das soll heißen:
Wenn A1 = X dann sperre A2:A10
Wenn A1 = "" dann lass A2:A10 entsperrt
https://www.herber.de/bbs/user/71912.xls
Mit d...
14.10.2010 11:57:03
Thread-ID: 1182382
3 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
VBA Find Value and Delete Row
Marc

Hi VBA team,
I have following problem.
I field B3 I have a text/value and this text/value should be searched in column A. When it finds the text/value ( for example A10 ) it should delete the Row.
For any help thanks in advance!
Marc
30.06.2011 04:11:51
Thread-ID: 1220246
5 Beiträge
If IsNumeric(Application.Parent.Name) Then
Peter

Guten Tag
Warum bringt untenstehende Funktion einen Fehler, wenn der Tabellenname nicht numerisch ist?
Gruss, Peter
https://www.herber.de/bbs/user/80841.xlsm
Public Function TabName() As Long Debug.Print Application.Caller.Parent.Name If IsNumeric(Application.Parent.Name) Then...
03.07.2012 07:32:22
Thread-ID: 1269687
5 Beiträge
VBA - Zugriff auf Zwischenablage über API
Andre

Hallo miteinander,
wenn man aus einem Internet-Browser per Strg-c eine Grafik kopiert, an der ein Hyperlink hängt und diese Grafik dann mit Strg-v in eine Excel Tabelle einfügt, hängt der Hyperlink wieder mit dran.
So weit so gut.
Ich habe ein Makro geschrieben, welches mir per API...
05.12.2012 20:04:37
Thread-ID: 1289513
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige