Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Schleife Loeschen von best. Zeilen

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

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.

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

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 !!!

263 Forumthreads zu ähnlichen 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
Anzeige
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
wert per VBA in nächste leere zelle schreiben
Michael

hallo!
ich brauche bitte hilfe. ich habe eine leere tabelle und möchte diese mit werten füllen. allerdings nur so, dass kein wert doppelt vorkommt. habe folgenden ausdruck, hänge jetzt aber. die kontrolle funktioniert, nur das einfügen in die nächste leere zelle der spalte A bekomme ich nic...
26.06.2010 09:55:04
Thread-ID: 1164138
6 Beiträge
Anzeige
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: Wenn nicht leer, dann
Stephan

Hallo.
Wie jeden Tag um die Uhrzeit eine kurze Frage ;)
Falls KEIN Bild in meinem Frame zu sehen ist, so soll das Sub beendet werden.
Für den umgekehrten fall ist das ja ganz einfach: If Userform1.Frame1.Picture Is Nothing Then Exit Sub
Nur wie beschreibe ich "Falls ein Bild...
23.01.2013 10:17:47
Thread-ID: 1295573
4 Beiträge
VBA Schleife für gleiche Zellenwerte
Claudia

Hallo zusammen,
nachdem ich schon sehr lange nicht mehr mit VBA gearbeitet habe fehlt mir jeglicher Ansatz für eine Schleife, die folgende Aufgabe hat:
Ich habe eine Tabelle mit 4 Spalten. In Spalte A können untereinander gleiche Werte mehrfach vorkommen. Solange der Wert gleich ist, s...
12.06.2013 16:02:38
Thread-ID: 1317366
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
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
4
7
7
5
2
2
3
2
8
5
2
23
3
2
9
4
9
3
1
8
1
16
1
2
5