Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
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
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen Löschen wenn Datum in Spalte D älter den

Zeilen Löschen wenn Datum in Spalte D älter den
29.09.2014 21:05:34
Vulferin
Ich hab meine Projekt fast fertig bekommen.
1 Sache bekomme ich aber einfach nicht hin.
Spalte D ist meine Datum Spalte
ich möchte gerne das wenn ich ein CommandButton drücker
Alles was 1 MOnat älter ist wie der Aktuelle Monat und in Spalte G Wahr steht
Diese Zeilen sollen gelöscht werden.
Ich hoffe ihr könnt mir da helfen.
Danke euch

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen Löschen mit Duplikate entfernen
29.09.2014 21:38:42
Daniel
Hi
So wie immer halt:
1. Per Formel alle Zeilen die gelöscht werden sollen mit einer 0 und alle die stehenbleiben sollen mit der Zeilennummer kennzeichnen.
2. In die erste Zeile der Hilfsspalte (Überschrift) ebenfalls die 0 schreiben
3. Daten - Datentools - Duplikate entfernen auf die Tabelle anwenden mit der Hilfsspalte als Kriterium und ohne Überschrift
4. Hilfsspalte wieder löschen.
Sieht als Code für deinen Button so aus:
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
.FormulaR1C1 = "=if(and(rc7,rc4<date(year(today()),month(today()),1)),0,row())"
.Cells(1, 1) = 0
.EntireRow.RemoveDuplicates .Column, xlNo
.ClearContents
End With
End With
Gruß Daniel

Anzeige
AW: Zeilen Löschen mit Duplikate entfernen
30.09.2014 19:08:08
Vulferin
irgendwie klappt das nicht
ich verstehe deine formeln auch nicht ganz
RC ist rowcount ?
was ist formular1c1 ?
irgendwie fügt er die spalte ein markiert auch zeilen und löscht sie
aber er schaut nicht in Spalte7 nach Wahr

AW: Zeilen Löschen mit Duplikate entfernen
30.09.2014 19:22:12
Daniel
Hi
FormulaR1C1 heißt, dass die folgende Formel in englischer Sprache geschrieben ist (damit funktioniert das Makro in jeder Länderversion) und die Zellbezüge in R1C1 geschrieben sind.
R1C1 entspricht im Deutschen den Z1S1-Zellbezügen und bedeutet, dass nach dem R die Zeilennummer und nach dem C die Spaltennummer folgt. Folgt keine Nummer, so ist es ein Zellbezug in die gleiche Zeile oder Spalte, in der die Formel steht.
Prinzipell schaut die Formel schon in der Spalte 7 nach, ob da WAHR steht.
du kannst das auch noch mal absichern mit
.FormulaR1C1 = "=if(and(rc7=True,...
aber diese Prüfung ergibt ja auch nur WAHR oder FALSCH als Ergebnis und wenn WAHR oder FALSCH schon direkt als Wert in der Zelle steht, dann kann man diesen auch direkt abfragen.
Anders sieht es aus, wenn WAHR nicht als Wahrheitswert in der Zelle steht, sondern als Text, dann muss die Prüfung natürlich so lauten:
.FormulaR1C1 = "=if(and(rc7=""Wahr"",...
aber was jetzt richtig ist kann ich dir ohne deine Datei und die echten Zellinhalte zu kennen nicht sagen.
Gruß Daniel
ps: Feedback in den anderen Foren, in denen du die Frage ebenfalls gestellt hast nicht vergessen ;-)

Anzeige
AW: Zeilen Löschen mit Duplikate entfernen
01.10.2014 18:46:43
Vulferin
Hi daniel
Irgendiwe klappt das nicht
ich hab das mal mit ""Wahr"" und mit der = true testetet
er löscht mir alle
irgendwie schaut er falsch :)
Kannst du mir nochmal den rest der formel erklären ?
das mit dem Datum ?
Danke dir

AW: Zeilen Löschen mit Duplikate entfernen
01.10.2014 19:02:23
Daniel
die Formel prüft, ob in Spalte G in der gleichen Zeile WAHR steht und ob das Datum in Spalte 4 kleiner ist, als der 1. des aktuellen Monats.
Wenn ja, wird eine 0 in die Zelle geschrieben und wenn nein, die aktuelle Zeilennummer.
Über Duplikate Entfernen kann man dann ganz einfach alle Zellen mit 0 löschen. (die 0, die stehen bleibt, schreibt man sinnvollerweise in die Überschriftenzeile.
Ich würde dir erstmal empfehlen, das ganze ohne Marko von Hand auszuführen, damit du verstehts was passiert.
Beim Umsetzen als Makro (vorallem beim schreiben der Formel) hilft dir dann der Recorder.
Gruß Daniel
Anzeige

179 Forumthreads zu ähnlichen Themen

Wenn Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 Beiträge
Anzeige
Genau 10 Seiten mit 52 Zeilen drucken
Klaus

https://www.herber.de/bbs/user/63555.xls
Hallo Forum,
bin am verzweifeln. Ich hatte die Frage schon vor ein paar Tagen gestellt und auch
eine Antwort erhalten, es will aber einfach nicht klappen:
Es geht "nur" darum, einen bestimmten Bereich auf genau 10 Seiten A4 zu drucken.
01.08.2009 11:41:31
Thread-ID: 1092776
9 Beiträge
Zellen mit Wert 0 löschen
Mario

Hallo zusammen,
zellen mit wert = 0 zu löschen sollte eigentlich kein Problem sein, aber ich weiß bei untenstehendem Code nicht, wo ich dies einfügen soll. Wenn ich nach IsEmpty(rngZelle) noch ein Or not IsNull(rngZelle) hinsetze, dann verschiebt mir das Makro auch die leeren Zellen....und...
10.08.2009 10:42:10
Thread-ID: 1094641
4 Beiträge
Anzeige
Zeilen mit Leerzelle in Spalte E löschen
jo_cindy

Hi, habe wieder einen kleinen Fehler
Möchte alle Zeilen löschen, wo in Spalte E eine Leerzelle ist. Mein Makro läuft sich tot, wahrscheinlich, weil es sich nicht auf ein Datenende bezieht. Wie muss ich es umbauen, damit die Löschfunktion der Zeilen endet, wenn in Spalte A kein Wert mehr ste...
28.10.2009 13:36:59
Thread-ID: 1112798
4 Beiträge
Wenn Zelle A1 beschrieben dann Zelle A2 leeren...
Vogel

Hi,
mir fehlt absolut nicht ein wie die Funtion heißt.
Also,
wenn ich in Zelle A1 etwas schreibe, dann soll es mir Zelle A2 löschen.
Schreibe ich dann aber in Zelle A2 etwas, dann soll es mir Zelle A1 löschen.
Gruß Michael
16.12.2009 08:35:44
Thread-ID: 1124249
10 Beiträge
Wenn 0 dann löschen
Ralf

Hallo und eien schönen 4 adv.
ich habe da mal ein anliegen und zwar habe ich eine Formel z.B in F 17
=E17-(B161)*RegelMoDo-(B16=6)*RegelFr
Kann man die auch noch so ummodelieren, dass wenn in D 17 = 0 Dann inhalt in E und F 17 löschen also das die Zellen leer sind
20.12.2009 11:39:13
Thread-ID: 1125105
12 Beiträge
Wenn Zirkelbezug Dann Formel löschen | Herbers Excel-Forum
Heinz H
Schönen Tag im Forum
In einer Tabelle kann es durch einen VBA Code in C3:L35 (dort werden Formel eingetragen) zu einem Zirkelbezug kommen.
Ist es möglich mittels VBA Wenn Zb.in E10 ein Zirkelbezug auftritt, diese Einträge in C10:L15 zu löschen ?
Range("C10:L10").EntireRow.ClearContents<...
12.01.2010 10:48:03
Thread-ID: 1129094
4 Beiträge
Zeilen mit bestimmten Kriterien Löschen
Stefan

Hallo zusammen,
in Spalet B habe ich chaotisch die Bezeichnungen SO1, SO2 und SO3 in mehreren tausend Zeilen stehen.
Ich benötige allerdings nur die Zeilen mit dem Inhalt SO1, die restlichen Zeilen mit SO2 und SO3 in Spalte B müssen komplett gelöscht werden.
Dies könnte ich quasi au...
20.01.2010 09:31:34
Thread-ID: 1131220
9 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
2
4
8
3
8
3
9
11
3
8
5
2
2
1
6
5
3
4
2
6
1
2
1
2
3