Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1560to1564
1560to1564
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn Anzahl kleiner 50 Zeilen löschen

Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 09:56:42
Sandro
Hallo Zusammen
Habe eine Frage bezüglich eines Makros. Komme einfach auf keinen grünen Zweig.
Ich habe in den Spalten A-G Daten, diese habe ich mit einem Makro sortiert um damit arbeiten zu können. Nun möchte ich die Anzahl gleicher Werte in Spalte G berechnen und dann schauen ob die Anzahl kleiner 50 ist, falls ja alle Zeilen mit den Werten löschen.
Beispiel:
Spalte F = 90 mal "Maschine X"
Spalte G = 30 mal "Produkt A" und 60 mal "Produkt B"
Die 30 Zeilen mit dem Wert "Produkt A" in Spalte G sollen gelöscht werden.
Es bleiben 60 Zeilen übrig.
Es gibt verschiedene Maschinen und verschiedene Produkte, die Anzahl ist jeweils unterschiedlich. Die Werte sind immer nach Maschine dann nach Produkt sortiert.
Beispieldatei:
https://www.herber.de/bbs/user/113908.xlsx
Falls jemand weiter weiss wäre ich froh.
Gruss
Sandro

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 10:05:11
Hajo_Zi
Hallo Sandro,
mache doch Duplikate entfernen.

AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 10:24:50
Sandro
Hallo Hajo
Wenn ich Dublikate entfernen nutze, bleiben doch nicht 60 Zeilen übrig, oder wie stellst du das an?
Ich möchte alle Produkte auswerten, bei welchen ich 50 oder mehr Messwerte habe. Dazu brauche ich alle Zeilen, nicht nur eine.
Hoffe du verstehst was ich meine?
Gruss
Sandro
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 10:32:42
Jürgen
Hallo Sandro,
wie wäre es in Spalte H mit folgender Formel, die dann gefiltert werden kann: 
=ZÄHLENWENNS(F:F;F1;G:G;G1)
Dann kann man einfach nach Wert > X filtern.
Gruß
Jürgen
Anzeige
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 11:45:25
Sandro
Hallo Jürgen
Dein Vorschlag ist gut und funktioniert. Habe mich aber für die Makro-Version von Gerd entschieden.
Den ganzen Vorgang mit einem Knopfdruck zu erledigen ist um einiges einfacher.
Trotzdem Danke!
Gruss
Sandro
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 10:38:37
Hajo_Zi
Hallo Sandro, 

mache Hilfsspalte ,Autofilter >50 und sichtbare Löschen


Tabelle1
 FGH
234247921

verwendete Formeln
Zelle Formel Bereich N/A
H2=ZÄHLENWENN($F$2:F2;F2)  
Excel-Inn.de
Hajo-Excel.de
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 25.10 einschl. 64 Bit


Gruß Hajo
Anzeige
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 11:45:53
Sandro
Hallo Hajo
Dein Vorschlag ist gut und funktioniert. Habe mich aber für die Makro-Version von Gerd entschieden.
Den ganzen Vorgang mit einem Knopfdruck zu erledigen ist um einiges einfacher.
Trotzdem Danke!
Gruss
Sandro
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 10:47:57
Gerd
Hallo Sandro,
unklar ist, ob pro Maschine(Spalte F) gezählt wird oder nicht.
Probiere daher an einer Testtabelle.
Sub delete_small_50()
Dim rw As Long
For rw = Cells(Rows.Count, 7).End(xlUp).Row To 2 Step -1
'Zählung in Spalten F+G
If WorksheetFunction.CountIfs( _
Columns(7), Cells(rw, 7).Value, Columns(6), Cells(rw, 6))
Natürlich geht es auch schneller u. aufwändiger.
Gruß Gerd
Anzeige
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 12:04:43
Sandro
Hallo Gerd
Super! Dein Code macht genau was ich brauche :) Die Zählung findet nur in Spalte G statt.
Funktioniert wunderbar.
Gruss
Sandro
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 10:37:15
Daniel
Hi
anbei das Beispiel mit den Formeln, welche die Zeilen kennzeichnen, damit du sie über das Duplikate Entfernen löschen kannst.
die erste Variante mit 3 Hilfsspalten ist für sortierte Daten.
die zweite Variante mit nur einer Hilfsspalte funktioniert auch bei unsortierten Daten.
allerdings erzeugt sie aufgrund des verwendeten ZählenWenns einen höheren Rechenaufwand als die erste Variante.
https://www.herber.de/bbs/user/113912.xlsx
Gruß Daniel
Anzeige
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 12:03:46
Sandro
Hallo Daniel
Dein Vorschlag ist gut und funktioniert. Habe mich aber für die Makro-Version von Gerd entschieden.
Den ganzen Vorgang mit einem Knopfdruck zu erledigen ist um einiges einfacher.
Trotzdem Danke!
Gruss
Sandro
AW: Wenn Anzahl kleiner 50 Zeilen löschen
31.05.2017 12:06:17
Daniel
Du kannst auch das Formeleinfügen und das Duplikate-Entfernen per Knopfdruck ausführen lassen.
Ist jetzt auch kein großer Programmieraufwand (der Recorder ist dein Freund) und bei größeren Datenmengen deutlich schneller als die Schleife.
Gruß Daniel

315 Forumthreads zu ähnlichen Themen

SUMMEWENN; Zahl finden
Cordula

Hallo Excel-Forum,
stehe gerade völlig auf dem Schlauch. Folgendes:
Spalte A
Artikel
210
e-6
s-9
310 1
Spalte B
Preis
10€
20€
30€
40€
Nun möchte ich nur den Preis summieren, deren Artikelnummer die erste Stelle eine Zahl i...
12.09.2008 12:02:00
Thread-ID: 1009320
6 Beiträge
Anzeige
Zählenwenn / Summenprodukt aber wie?
Hans

Hallo .. ich habe ein Problem mit dem zusammenzählen bei einer bestimmten Bedingung.
In Spalte A steht das Datum in Form von MM.JJJJ (01.2007, 02.2007 ..... )
In Spalte B stehen Namen
Nun möchte ich für jeden Monat zusammenzählen wie oft z. b. "Hans" in jedem Monat vorkommt.
Ic...
24.06.2009 14:21:02
Thread-ID: 1084128
8 Beiträge
Summen über ein Array nur wenn Datum im Zeitraum
Leif

Hallo Gemeinde,
ich habe in Excel eine Aktivitätenliste gebaut die ich gerne auswerten möchte:
Sheet1:
- Neben der eigentlichen Aktivität in Spalte A stehen in Spalte B die Namen der Mitarbeiter (mit "," von einander getrenn) die daran arbeiten sollen. Der Name der Spalte ist "ResNa...
10.07.2009 08:44:17
Thread-ID: 1087264
2 Beiträge
Anzeige
SummeWenn bzw. AnzahlWenn (?)
Wolfang

Hallo,
die nachstehende Formel zählt jeweils die Summe, wenn der Begriff in z.B. B7 mit dem Begriff in Spalte H übereinstimmt. Wie kann ich die Formel umstellen, wenn weiterhin der Begriff in B7 sowie Spalte H übereinstimmen sollen, aber in Spalte L nur dann die Anzahl der vorkommenden "X"...
10.11.2009 20:27:23
Thread-ID: 1115989
7 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
Zusammenzählen Wenn Summe
Heinz

Hallo Leute
Ich habe in G6:G35 einigemale die Formel =SUMME stehen.
Nun möchte ich in G36 die Gesamtsummen von =SUMME zusammenzählen.
Zb. In G8 =SUMME(G6:G7) , In G25 =SUMME(G14:G19) usw.
Nur die Zellen mit der Formel sind Variabel.
Hatte dazu jemand bitte eine Formel ?
...
30.12.2009 17:00:04
Thread-ID: 1126420
14 Beiträge
summewenn der falsche Befehl?
Markus

Hallo liebe Excel-Gemeinde,
in einer Tabelle habe ich mehrfach eine Teilenummer, verteilt über mehere Spalten und Zeilen. Jeweils im Feld rechts neben der Teilenummer steht die Menge.
Ich möchte nun die Summe aller Mengen des ganzen Tabellenblattes bilden (aber nur aus der Zelle rechts...
05.02.2010 13:10:16
Thread-ID: 1136151
4 Beiträge
If Target.Address ... aber nur wenn eine Zahl
Hans

Hallo Leute, ich habe folgendes Skript : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Target.Address(0, 0) = "C6" Then Lager = Target.Cells(1, 1).Value Range("H2") = Lager Call Lagr Cancel = True End If Das besagt das die Methode Lagr ausgeführt w...
25.02.2010 15:13:26
Thread-ID: 1141551
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
1
7
1
9
6
1
13
3
4
7
2
9
6
2
2
9
7
5
2
2
5
5
2
4