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

860to864: Bereiche löschen, wenn summe gleich NULL

Forumthread: Bereiche löschen, wenn summe gleich NULL

Bereiche löschen, wenn summe gleich NULL
12.04.2007 17:17:32
Peter
Liebes Forum
Ich möchte in einer Tabelle (Name: Daten) jeweils alle Zellinhalte einer bestimmten Zeile von Spalte E bis AJ löschen, wenn in der gleichen Zeile die Summe der Zellen von F (!!) bis AJ null beträgt.
Zu überprüfen sind die Zeilen 5 bis 101.
Wie frage ich solche Bereichssummen ab?
Danke für jeden Hinweis.
Peter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bereiche löschen, wenn summe gleich NULL
12.04.2007 17:50:01
Erich
Hallo Peter,
probier mal 

Option Explicit
Sub ClearSumme0()
Dim lngRow As Long, rng As Range
lngRow = 5 ' Zeilennummer anpassen
'  Set rng = Range(Cells(lngRow, "E"), Cells(lngRow, "AJ"))
Set rng = Range(Cells(lngRow, 5), Cells(lngRow, 36))
If WorksheetFunction.Sum(rng) = 0 Then rng.ClearContents  ' oder Clear
' oder (wenn auch bei Werten nahe Null gelöscht werden soll):
If Abs(WorksheetFunction.Sum(rng))
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Bereiche löschen, wenn summe gleich NULL
12.04.2007 19:20:26
Peter
Hallo Erich
Vielen Dank. Ich habe daraus nun nachfolgenden Code gemacht. Wenn die Bedingung "Summe = NULL" zutrifft habe ich den Bereich mit "="" gesetzt.
Mir war nicht ganz klar, was der Unterschied zu ClearContents oder Clear (gehen hier Formate verloren?) ist.
Vielleicht kannst du mir das noch mitteilen (selbstverständlich fakultativ, deshalb lasse ich die Frage auch nicht mehr offen ...)
Freundlicher Gruss, Peter

Sub nurEinträgeWennSumme()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim lngRow As Long, Rnge As Range, Rngf As Range
Set aBook = ThisWorkbook
Set aSheet = aBook.Sheets("PVK")
With aSheet
lngRow = 5
Do While .Cells(lngRow, 4)  ""
Set Rngf = .Range(Cells(lngRow, 6), Cells(lngRow, 36)) 'Bereich ohne Datum
Set Rnge = .Range(Cells(lngRow, 5), Cells(lngRow, 36)) 'Bereich inkl. Datum
If WorksheetFunction.Sum(Rngf) = 0 Then Rnge = ""
lngRow = lngRow + 1
Loop
End With
Set Rngf = Nothing
Set Rnge = Nothing
End Sub

Anzeige
AW: Bereiche löschen, wenn summe gleich NULL
12.04.2007 19:32:40
Erich
Hallo Peter,
danke für deine Rückmeldung!
Das funzt so wie du es gemacht hast.
Statt Rnge = "" würde ich aber Rnge.ClearContents verwenden.
Bei deiner Version stehen in den Zellen Zeichenketten der Länge 0, mit ClearContents sind die Zellen leer.
Clear würde auch Format, Bedingte Formatierung etc. löschen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Vielen Dank, owT
12.04.2007 19:37:00
Peter
;

Forumthreads zu verwandten Themen

Summewenns
cfrei75

Hallo ich habe folgende Formel: =SUMMEWENNS(C4:CT4;C3:CT3;">6:00";C3:CT3;" Diese funktioniert einwandfrei, möchte aber anstatt die 6:00 und 21:00 händisch reinzuschreiben, dass diese von einem Feld übernommen wird, da diese variabel sind.
Wenn ich aber die Formel wie folgt schreibe =SUMM...
21.10.2008 10:57:16
Thread-ID: 1017894
5 Beiträge
summenprodukt mit 2 wenn's geht nicht?
Silvi


Moin zusammen,
muß eine ziemlich komplexe Abfrage machen und habe mir untenstehende ellenlange Formel ausgedacht, die leider nicht funktionert... :o( Hat von Euch jemand eine Idee, wie man das eleganter lösen könnte (ohne Makro?). Vielleicht ist nur eine Klammer falsch? Ich komm nicht...
23.01.2009 10:30:18
Thread-ID: 1042851
8 Beiträge
SUMMEWENN- Teilstring des Suchkriteriums
Joachim

Guten Morgen,
im Suchbereich befinden sich Texte. Ich brauch aber die Summe derer, die einem Teilstring des Textes entsprechen. Beispiel:
Suchbereich: Summenbereich
2005_SIM_EG 1520
2004_SIM_EG 2588
2003_SIM_EG 3444
2005_SIM_FW 1220
SUMMEWENN(Suchbe...
03.02.2009 08:16:09
Thread-ID: 1046502
8 Beiträge
"summewenn" in Zeiterfassung funktioniert nicht
Gernot

Die Datei https://www.herber.de/bbs/user/61213.xls wurde aus Datenschutzgründen gelöscht
Liebe Forumsexperten
Ich habe so ziemlich alle "summewenn" und "summenprodukt"-Lösungen probiert, die im Forum so gut beschrieben sind. Leider funktioniert keine der Lösungen. Die Exceldatei habe i...
15.04.2009 18:40:21
Thread-ID: 1068933
6 Beiträge
Summewenn mit unzusammenhängendem Suchbereich
Sebastian

Hallo allerseits,
ich verzweifle mit meinem müden KOpf gerade an einem sicherlich trivialen Problem: Ich habe eine Tabelle mit ziemlich vielen Spalten. Die Zellen sind entweder leer oder mit einer 1 befüllt. Ich muss zählen, wie oft die 1 in bestimmten Spalten (also NICHT allen) vorkommt. <...
21.04.2009 12:13:29
Thread-ID: 1070011
16 Beiträge
Summewenn mehrer Bedingungen versch. Blätter
Aquestor

Hallo zusammen,
ich habe folgendes Problem:
Ich möchte im Datenblatt Whiteboard in Zelle C11 überprüfen, ob in den Datenblättern Ma_1....Ma_18 Zelle C11 ein Wert steht. Steht in einer der 18 Zellen die überprüft werden ein Wert, so sollen Ma1!C11+Ma_2!C11+.....Ma_18!C11 summiert werden....
26.05.2009 11:23:28
Thread-ID: 1077310
9 Beiträge
summewenn + Bedingg. "die ersten 5 linken Zeichen"
Matthias

Hallo zusammen,
ich möchte die ersten 5 linken Zeichen (Text) einer Zelle auswerten. Wenn ein Kriterium erfüllt ist, soll summiert werden.
Das Kriterium besteht aus Text. Die Länge kann variieren.
Für Anregungen für eine korrekte Formel bin ich dankbar :-).
TIA und Grüße
Mat...
01.07.2009 12:35:51
Thread-ID: 1085662
3 Beiträge
Summewenn mit ISTNV
chris

Hallo Forumsgemeinde,
ich arbeite mit einer englischen Excelversion und erst beim Öffnen in einer deutschen Version ist mir ein Fehler aufgefallen. Im Englischen wird als Fehlercode #N/A ausgegeben, was im Deutschen #NV entspricht. Nun habe ich leider in einer SUMMEWENN-Formel (SUMIF) die B...
19.07.2009 13:33:06
Thread-ID: 1089769
7 Beiträge
Summewenn mit mehreren Suchkriterien
Pfannen-Meister

Guten Morgen,
ich bräuchte bei meinem Excel-Problem Unterstützung und fände es klasse, wenn mir jemand helfen könnte. Dazu kurz ein Beispiel:
T-Shirts Farbe Kleidergröße
5 rot 48
9 blau 48
3 blau 54
4 grün 52
8 gelb 56
21.07.2009 09:40:01
Thread-ID: 1090130
3 Beiträge
Anzeige
Summe in L wenn C übereinstimmt?
Andy

Hallo zusammen,
weiß jemand wie ich meine Summe in L4:L1000 zählen kann,
wenn ich nur die Werte mit einbeziehen möchte, die in der selben Zeile in C4:C1000 stehen und mit dem text in A1 übereinstimmen.
?
Vielen Dank
Andy
03.11.2009 14:24:40
Thread-ID: 1114154
10 Beiträge
summewenn Fkt. als Makro
meixner

Hallo zusammen,
habe ein Problem mit einem Makro. Anhand eines Makros wird eine Tabelle kopiert mit range(AX :BA) und in eine andere Excel - Mappe kopiert. Ich möchte, aber das dieses Makro gleichzeitig vor kopieren eine summewenn - Funktion ausführt.
Die Fkt. heisst: summewenn(AX:AX; A...
29.11.2009 17:32:32
Thread-ID: 1120809
2 Beiträge
summewenn - zwei bedingungen - zwei Summenbereiche
Loewelutz

Liebe Ex(cel)perten,
ich benötige Hilfe beim Formelaufbau für folgende Konstellation:
1. Bereich: B13:B27
- Bedingung: 1
- Summenbereich: f13:f27
2. Bereich: e13:b27
- Bedingung: 1
- summenbereich: h13:h27
Erläuterung:
Wenn im 1. Bereich das Suchkriterium "1"...
02.12.2009 15:00:20
Thread-ID: 1121425
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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