Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1620to1624
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
1620to1624
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Wenn Datum in größer als dann Zeile löschen

VBA Wenn Datum in größer als dann Zeile löschen
18.04.2018 08:24:07
FR
Hallo Zusammen,
über die Forum/Google Suche habe ich bisher nichts passendes gefunden.
Ich habe eine Tabelle mit einem Datum TT/MM/JJJJ in Spalte E.
Hier muss ich oft Filtern und z. B. alles rausfiltern, wenn das Datum größer als letzter Freitag oder auch ein anderer Tag. Hier möchte ich mich aber nicht auf den Wochentag beziehen, sondern wirklich auf ein Datum TT/MM/JJJJ.
Bisher habe ich versucht ein VBA Code zufinden/erstellen, bei dem ich durch InputBox ein Datum eintrage und alles was größer ist als dieses Datum soll gelöscht werden. Also dann soll die ganze Zeile gelöscht werden. Alle meine Versuche sind gescheitert...
Hat vielleicht jemand einen guten Tipp?
Danke

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Wenn Datum in größer als dann Zeile löschen
18.04.2018 09:57:54
UweD
Hallo
Hier eine Lösung mit Filter.
Sub Lösche_Datum()
    Dim TB As Worksheet, Ez As Integer, SP As Integer, LR As Double, Datum As Date
    
    Set TB = Sheets("Tabelle1")
    Ez = 2 'ab Zeile 
    SP = 5 'Spalte mit Datum 

    Datum = InputBox("Grenzdatum?", "Löschen Datum", DateValue("01/01/2018"))
    
    If TB.AutoFilterMode Then TB.AutoFilterMode = False ' Autofilter ausschalten 
    With TB
        
        If WorksheetFunction.CountIf(.Columns(SP), Datum) > 0 Then 'sind überhaupt Daten da? 
            .Columns(SP).AutoFilter
            .Columns(SP).AutoFilter Field:=1, Criteria1:=">" & CDbl(Datum), Operator:=xlAnd
            
            LR = .Cells(.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte 
            
            .Rows(Ez).Resize(LR - Ez + 1).Delete xlUp 'Zeilen löschen 
            
            .AutoFilterMode = False
        End If
        
    End With
End Sub

LG UweD
Anzeige
AW: VBA Wenn Datum in größer als dann Zeile löschen
18.04.2018 11:03:20
FR
Hallo UweD,
vielen Dank für deinen Vorschlag, leider wird der Vorgang bei --> .Columns(SP).AutoFilter Eine Info die ich noch vergessen habe: In einigen Zellen ist kein Datum vorhanden. Hat das eine Auswirkung auf den von dir vorgeschlagenen Code?
Beispieldatei?
18.04.2018 11:06:18
UweD
bitte Andere...
18.04.2018 16:27:49
UweD
Hallo
das liegt an deinem Tabellenobjekt und den Bereichen im sheet.
Das hebelt alle "normalen" Routinen aus.
Ich hab jetzt eine Stunde probiert und bekomm es nicht allgemein lauffähig hin.
Bin raus
LG UweD
Anzeige
AW: bitte Andere...
18.04.2018 16:41:58
Daniel
Hi
das funktioniert mit deiner Beispieldatei:
Sub löschen()
Dim Eingabe As String
Eingabe = InputBox("Datum")
If Not IsDate(Eingabe) Then
MsgBox "Bitte Datum korrekt eingeben"
Exit Sub
End If
With ActiveSheet.UsedRange
With .Columns(.Columns.Count).Offset(0, 2)
.FormulaR1C1 = "=IF(RC4>" & CLng(CDate(Eingabe)) & ",1,"""")"
.Cells(1, 1).ClearContents
If WorksheetFunction.Sum(.Cells) > 0 Then _
.SpecialCells(xlCellTypeFormulas, 1).EntireRow.Delete
.ClearContents
End With
End With
End Sub
wenn du mit "größer" "älter" gemeint hast, dann tausche in der Formelzeile (.FormulaR1C1) das Größer/Kleiner-Zeichen.
Gruß Daniel
Anzeige
AW: Beispieldatei?
19.04.2018 08:04:12
FR
Hallo Zusammen,
UweD riesen Danke für deine Hilfe.
Ich könnte die Tabellen-Formatierung auch nach dem löschen der Zeilen durchführen.
Auch an Daniel ein riesen Danke. Mit deinem Code schaffe ich es fast zum Ziel.
Eine Sache muss ich noch lösen: Der Code löscht leider auch Zeilen wo überhaupt kein Datum vorhanden ist.
Ich bastele später mal rum und berichte.
PS: In deinem Code habe ich noch etwas ergänzt: aus der 4 eine 5 bei "RC5", weil ich die Spalte E prüfen muss.
Nochmal Danke

440 Forumthreads zu ähnlichen Themen

Formeln miteinander vergleichen
Pfannen-Meister

Guten Abend,
ich möchte gerne zwei Excel-Formeln miteinander begreifen, habe in der Umsetzung aber ein Problem:
Formel in der Zelle A1 = D1*E1
Formel in der Zelle A2 = D1+E1
Wie schaffe ich es, die Formeln in der Zelle A1 und A2 miteinander zu vergleichen und NICHT das Ergebni...
08.09.2008 17:18:00
Thread-ID: 1008216
3 Beiträge
Anzeige
Textbox - wenn nicht mehr als 3 stellen dann
Patrick

Hallo,
ich habe auf einer Userform eine Textbox in welche je nach Auswahl Kürzel (z. B. BE) eingetragen werden. Es soll nun realisiert werden, dass wenn ich auf einen commandbutton drücke, geprüft wird ob in der besagten Textbox nach wie vor nur "BE" steht oder diese Textbox bearbeitet wurd...
12.11.2008 16:39:47
Thread-ID: 1023910
5 Beiträge
Formeln in andere Spalte an gleiche Stelle kopiere
Eva

Hallo,
ich habe eine lange Tabelle mit hinterlegten Formeln in verschiedenen Zeilen. Nun möchte ich eine weitere Spalte einfügen. In der Spalte sind Werte. Ich möchte diese Werte, wie in der ersten Spalte auch mit den Formeln addieren, multiplizieren, usw..
Damit ich aber in der neuen S...
15.12.2008 15:03:00
Thread-ID: 1033050
9 Beiträge
Anzeige
Formel Lineare Gleichung
Richy

Tut mir leid, dass ich nochmals nerven muss.......
ich habe folgende Tabelle ........https://www.herber.de/bbs/user/67325.xls und möchte die FORMEL (nicht die Formatierung) so anpassen, dass bei der ganzen Berechung für JEDE VARIABLE ein positiver Wert erscheint.
20.01.2010 15:39:50
Thread-ID: 1131390
3 Beiträge
wenn nicht eine Textbox mehr als 0, dann Msg.Box
Wolfgang

Hallo,
ich versuche folgendes Problem in den Griff zu bekommen, schaffe es aber mit verschied. Ansätzen nicht:
Ich würde gerne bei Klicken einer Schaltfläche zunächst überprüft haben, ob nicht zumindest eine Textbox von den Textboxes13-16 mehr als 0 enthält, wenn nein, Abbruch. Wäre für...
22.02.2010 18:36:04
Thread-ID: 1140459
11 Beiträge
Vergleich mit 2 Werten mit Indexformel?
Judith

Hallo und Guten Morgen,
jetzt habe ich schon wieder ein Problem mit einer Liste, die ich auswerten soll.
Es geht darum, Werte aus 2 Spalten mit einer Liste auf einem anderen Blatt mit zu einem Teil mehrfach vorkommenden Kriterien zu vergleichen und einen Wert zurückzugeben.
https:/...
28.03.2010 07:55:49
Thread-ID: 1148895
5 Beiträge
Färben, wenn größer oder kleiner
Jockel

Hallo
ich habe eine Spalte (H) mit Prozentangaben, ich habe sie momentan noch als Zahl formatiert
(zB 0,8 oder 0,33 oder 0,5.....)
Nun möchte ich die Werte färben, wenn sie zwischen bestimmten Angaben liegen:
If Cells(x, 13).Value > "0.01" And Cells(x, 13).Value < "0.20" T...
10.11.2010 14:18:09
Thread-ID: 1186096
3 Beiträge
Vergleich von Zellinhalten mittels Sverweis-Formel
Zellinhalten

Hallo Excel-Liebhaber,
ich habe ein kleines Problem mit einer Excel-Datei, bestehend aus 2 Arbeitsblättern. Die betreffende Datei habe ich dem Bericht beigefügt. Beide Arbeitsblätter sind ähnlich aufgebaut. Der kleine Unterschied besteht nur im Endergebnis, dass in jedem Arbeitsblatt in der...
12.11.2010 21:45:34
Thread-ID: 1186599
5 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
13
4
8
1
2
10
4
2
4
2
1
7
5
4
6
2
2
8
5
5
3
2
2
12