Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.01.2025 21:30:26
Punktediagramm mit verschieden vielen Punkten
17.01.2025 20:50:45
Fehlerquotient für Schultest berechnen (Formel)
17.01.2025 19:14:40
Power Query ignoriert die letzte Spalte - Warum ? Hilfe
17.01.2025 18:21:02
vba-editor öffnet sich,- aber kein Fehler
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Schleife Loeschen von best. Zeilen

Kategorie
Datenbearbeitung
Tags
#daten #löschen #vba
Relevante Fragen
Anzeige
VBA Schleife Loeschen von best. Zeilen
08.03.2015 08:02:50
best.
Liebes Forum,
ich habe eine Tabelle mit sehr vielen Zeilen in der folgenden Form
Artikelnummer Maschine Fertigungsauftrag Datum Menge Zyklus
Nun soll ein Makro ueber diese Tabelle laufen und zunaechst bei allen Artikeln, die haeufiger als 5x vorkommen, jeweils die Zeilen mit dem aeltesten Datum loeschen, anders ausgedrueckt, es sollen immer nur maximal 5 Artikel mit dem juengsten Datum stehen bleiben.
Die Tabelle ist sortiert nach Artikelnummer und danach nach Datum, die juengsten jeweils unten (kann natuerlich fuer das Makro auch anders sortiert werden).
Ist das moeglich ?
Vielen Dank fuer einen Tipp (eine weitere Frage folgt evt. spaeter dazu)
Stefan

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Schleife Loeschen von best. Zeilen
08.03.2015 09:00:51
best.
Hallo Stefan,
Du hast die Datei und kannst das Problem damit lösen. Sortiere die Liste nach Artikel Nummer und Datum. Gehe jetzt von hinten nach vorne durch und Prüfe mit Countif die Anzahl der Artikelnummer, falls größer als 5 löschen.

Anzeige
AW: VBA Schleife Loeschen von best. Zeilen
08.03.2015 17:52:50
best.
Hi Hajo,
ich danke Dir sehr für die Antwort, wurden mir ja sogar
schon ganze Codes geliefert, das machts ganz einfach ;)
Lieben Gruß
Stefan

VBA Loeschen spezial
08.03.2015 10:24:51
Erich
Hi Stefan,
so sollte das recht flott gehen: 

Option Explicit
Sub DelUeber()
Dim lngQ As Long, arQ, qq As Long, iAnz As Long, rngDel As Range
Const iMax As Long = 5  ' Anzahl Zeilen pro Artikel, die bleiben sollen
With ActiveSheet
lngQ = .Cells(.Rows.Count, 1).End(xlUp).Row
arQ = .Cells(2, 1).Resize(lngQ - 1)
For qq = lngQ - 2 To 1 Step -1
If arQ(qq, 1) = arQ(qq + 1, 1) Then
If iAnz
Hier wird nur Sp. A (Artikelnr.) betrachtet. Von jedem Artikel bleiben max. die letzten 5 Zeilen stehen.
Das Datum spielt keine Rolle. Die Tabelle sollte also richtig sortiert sein.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich

Anzeige
AW: VBA Loeschen spezial
08.03.2015 17:54:33
Stefan
Hi Erich,
fantastisch, herzlichen Dank, werde es gleich morgen in der Firma prüfen und mich
melden. Du bist Dir ja eh schon sicher, dass es klappt :)
Melde mich selbstverständlich und wünsche schönen Restsonntag
Stefan

AW: VBA Loeschen spezial
09.03.2015 14:55:00
Giesarazu
Hi Erich, funzt auf Anhieb genau wie gewünscht !!! perfekte Performance, würde ich sagen :)
Vielen vielen Dank
Stefan

Anzeige
AW: ohne VBA- von Hand (mit VBA sehr schnell)
08.03.2015 12:20:08
Hand
Hi
du kannst die Aufgabe auch ohne Makro mit wenig aufwand lösen:
1. sortiere die Tabelle nach Artikelnummer und Datum - absteigend (dh das jüngste Datum oben!)
2. füge eine erste Hilfsspalte (Spalte G) ein mit folgender Formel in G2:
=Wenn(A2=A1;G1+1;1)
diese Formel zählt die Vorkommen einer Artikelnummer
3. füge in einer zweiten Hilfsspalte (Spalte H) folgende Formel ein, welche alle Zeilen, die gelöscht werden müssen mit 0 markiert und die anderen mit der Zeilennummer, Formel für H2:
=Zeile()*(G2
4. schreibe in H1 (Überschrift der Hilfsspalte) die 0
5. wende auf die ganze Tabelle die Aktion DATEN - DATENTOOLS - DUPLIKATE ENTFERNEN an, mit der Hilfsspalte H als Kriterium und der OPtion "keine Überschrift"
6. Lösche die Hilfsspalten wieder.
damit kannst du die Aufgabe auch bei grössten Datenmengen schnell und einfach von Hand erledigen.
Das ganze geht natürlich auch per Makro:
Sub test()
With ActiveSheet.UsedRange
.Sort key1:=.Cells(1, 4), order1:=xlDescending, Header:=xlYes
.Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlYes
With .Columns(.Columns.Count + 1).Resize(, 2)
With .Columns(1).Offset(1, 0).Resize(.Rows.Count - 1, 1)
.FormulaR1C1 = "=IF(RC1=R[-1]C1,R[-1]C+1,1)"
End With
With .Columns(2)
.FormulaR1C1 = "=Row()*(RC[-1]
Gruß Daniel

Anzeige
AW: ohne VBA- von Hand (mit VBA sehr schnell)
08.03.2015 17:58:34
Hand
Hi Daniel,
ganz toll, gleich beide Lösungen angeboten. Herzlichen Dank für Deine Mühe, werde es morgen in Firma checken und Antwort geben. Der Code sieht ja schon mal selbst für mich fast nachvollziehbar aus.
Bis dahin alles Gute :)
Stefan

AW: ohne VBA- von Hand (mit VBA sehr schnell)
09.03.2015 13:51:01
Hand
eine wirklich pfiffige Lösung, funzt natürlich 100%ig. Hab jetzt erstmal nur die manuelle Variante geprüft, der Code ist ja identisch. Frage mich, warum ich nicht auf solche Ideen komme :(
Jedenfalls nochmals recht herzlichen Dank !!!
Anzeige

Forumthreads zu verwandten Themen

VBA leere Zelle finden und obere Inhalte einfügen
Carmen

Hallo Zusammen,
leider habe ich so ganz wenig Ahnung von VBA, weiß aber auch nicht wie ich mir sonst normal mit
Excel weiterhelfen könnte da es zuviele Daten sind.
Hab folgendes Problem, ich möchte gerne dass alle leeren Zellen in den Spalten B-D mit dem Inhalt der Zellen eine Zeile...
08.12.2008 17:08:41
Thread-ID: 1031133
5 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Emailtext mit Schleife bis Zelle leer
Gonzer

Hallo zusammen,
ich würde gerne automatisch eine EMail per Excel erstellen lassen, was auch funktioniert, und dabei den Emailtext variabel gestalten.
Heisst also eine Schleife einbauen bis in Spalte B kein Wert mehr enthalten ist:
Sub sendMail() Dim OutApp As Object, OutMail As Obje...
11.03.2010 09:03:45
Thread-ID: 1145040
8 Beiträge
Anzeige
VBA - nicht schliessen wenn Pflichtfelder leer
MT

Hallo,
ich habe mal wieder ein kleines Problem in Excel - was für euch sicherlich (hoffentlich) ne Kleinigkeit ist.
Und zwar habe ich eine Mustervorlage erstellt, bei der gewissen Pflichtfelder auszufüllen sind. Diese sind für eine bessere Sichtbarkeit entsprechend grau hinterlegt.
13.09.2011 13:09:34
Thread-ID: 1229666
3 Beiträge
VBA leere Zellen füllen
Erik

Hallo zusammen,
ich würde gern per Buttonklick eine Abfrage starten wollen, wobei bestimmte Zellen auf leere Zellen gecheckt werden und wenn welche vorhanden sind, in diese ein "n.b." schreibt.
Mein ansatz:
Sub button() If Sheets(Tabelle1).Cells(1, 1).Value = "" Then Sheets(Tabelle...
01.06.2012 10:19:56
Thread-ID: 1265689
3 Beiträge
VBA Datei öffnen und darin 1. leere Zelle finden
Steve

Hello ihr Profis,
ich stehe irgendwie auf dem Schlauch und hoffe ihr könnt helfen. Es soll einfach nur geprüft werden of eine Datei vorhanden ist. Wenn diese NICHT vorhanden ist, soll eine bestimmte Excel Tabelle geöffnet und in dieser nach der ersten freien Zelle gesucht werden. Ich dachte...
07.02.2014 12:46:16
Thread-ID: 1348494
9 Beiträge
VBA - Formel ändern wenn Zelle nicht leer
Thomas

Hallo,
ich brauch bitte Hilfe, weil ich an folgender Aufgabenstellung hänge:
Ich verwende in Spalte N folgende Formel:
=WENN($M2="";"";INDEX(Preismatrix!$E$5:$E$200;VERGLEICH($M2;Preismatrix!$D$5:$D$200;0)))
Nun muss ich diese Formel per Buttondruck von E5:E200 in F5:F200 ändern...
15.10.2014 15:25:28
Thread-ID: 1386815
6 Beiträge
VBA-Code: Schleife wird nicht durchlaufen...
Florian

Hallo zusammen,
ich habe mir eine kleine Funktion in VBA geschrieben; hierbei soll eine Schleife durchlaufen werden, solange ein gewisses Datum vorliegt.
Während dieses Durchlaufs sollen, falls "bessere" Lösungen gefunden werden, diese jeweils gespeichert werden...Leider wird die Schle...
21.11.2014 10:16:07
Thread-ID: 1393659
3 Beiträge
VBA leere Zeilen u Zellen überprüfen und ausgeben
Thomas
Hallo Leute,
mein Problem ist ich möchte aus einer beliebigen Excel-Datei das genaue Sheet auswählen und das Sheet auf einen Bereich (Bsp C20:F36) auf leeren Inhalt prüfen.
Ich kann dadurch jede beliebige Excel Datei wählen, der soll mir eine bestimmte Tabelle (Sheet) wählen und einen fest...
14.01.2015 14:58:50
Thread-ID: 1402771
24 Beiträge
VBA Schleife Zellen auswählen und selektieren
Andreas

Hallo,
trotz langem Suchen habe ich keine Lösung gefunden. Ich hoffe Ihr könnt mich helfen.
Folgende Ausgangssituation:
- Mappe „Makro“ befindet sich nur ein Button mit meiner Makro.
- In der Mappe „Daten“ befinden sich alle Informationen die selektiert und kopiert werden sollen...
08.06.2015 14:34:45
Thread-ID: 1429823
4 Beiträge
Anzeige
VBA - wenn Wert in Zelle dann Zeile verschieben
noctu21

Hallo Leute,
ich habe in einer Excel einmal eine Tabelle zu Maßnahmen und einmal eine Tabelle zum Archiv. Wenn bei den Maßnahmen nun in der Spalte M 100% ausgewählt wurden, verschiebt sich die gesamte Maßnahme (also die Zeile) ins Archiv. Andersrum funktioniert es genauso. Falls jemand der...
25.01.2016 08:34:53
Thread-ID: 1470846
3 Beiträge
VBA: alle leeren Zellen mit Formeln leeren
Honigdachs

Liebes Forum,
ich will die erste leere Zelle in Spalte A finden (Mit leer meine ich hier leer vom Inhalt, aber nicht echt leer.) und alle leeren, aber mit Formeln befüllten Spalten und Reihen rechts daneben und darunter leeren, also die Formeln rauslöschen.
Mein Ansatz ist:
With She...
27.05.2016 13:43:46
Thread-ID: 1495578
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige