Datum kleiner als - Zeile löschen

Larissa · 2007-08-23T17:28:22+00:00

Hallo, ich möchte mit einem Makro alle Zeilen löschen, bei denen das Datum in dem markierten Bereich einer Spalte kleiner ist, als das vorher selektierte Datum (lastdate) Ich kann das nicht so einfach erklären, deshalb habe ich mal die Mappe beigefügt mit einem Makro, mit dem es nicht funktioniert. Vielleicht weiß jemand, was da falsch läuft. https://www.herber.de/bbs/user/45330.xls Vielen Dank, LArissa

Hi
das mit dem Grösser/Kleiner hat ja Harry schon geklärt.
als Datum kommt der 1.1.2007 natürlich NACH dem 2.1.2006, bei einem Stringvergleich (so,wie LastDate ursprünglich defniert hattest) kommt der 1.1.2007 VOR dem 2.1.2006 weil bei Strings zunächsteinmal das 1. Zeichen ausschlaggebend ist.
(Deswegen ist es bei uns in der Firma Vorgabe, das Datum immer so anzugeben: 2007-12-24, dann ist die Sortierung auch als String immer richtig (merkt man ganz Schnell, wenn man das Datum als Teil des Dateinamens verwendet.)
ich würde das ganze so umschreiben, denn die erste FOR-Schleife kannst du durch die FIND-Funktion ersetzten, man muß nur die Parameter richtig einstellen, so daß von unten nach oben gesucht wird:


Sub datum()
Dim lastdate As Date
Dim sel As Range
Columns(1).Find(what:="Balance", after:=Cells(Rows.Count, 1), searchdirection:=xlPrevious). _
Offset(0, 1).Select
lastdate = Selection
neu:
For Each sel In Range(ActiveCell, Cells(Rows.Count, 1).End(xlUp).Offset(0, 1))
If sel.Value  "" Then
sel.EntireRow.Delete
GoTo neu
Else
End If
Next
End Sub

je nach dem, ob jetzt LastDate das Datum bei "Balance" oder ein vom Anwender ausgewähltes Datum sein soll, muß jetzt die Zeile "lastDate = selection" NACH oder VOR der Zeile Columns(1).FIND... stehen.
Gruß, Daniel

Hi Larissa,
ein Beispiel:
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
'In ein Standardmodul:
'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
Option Explicit
Public lngZ As Long


Public Sub datum()
Dim lngI As Long ', lngN As Long
lngI = Cells(Rows.Count, 1).End(xlUp).Row
marke1:
If lastdate(lngI) = "01.01.2007" Then '(If no "Balance" exists...)
Exit Sub
End If
MsgBox "gesuchtes Datum: " & lastdate(lngI), vbInformation, _
"Addresse für Zellbereich: " & lastrange(lngI)
Dim sel As Range
neu:
For Each sel In Range(lastrange(lngI))
If sel.Value  "" Then
sel.EntireRow.Delete
GoTo neu
End If
Next
lngI = lngZ - 1
GoTo marke1
End Sub


Public Function lastdate(lngZeile As Long) As Date
Dim lngN As Long
For lngN = lngZeile To 1 Step -1
If Cells(lngN, 1).Value = "Balance" Then
lastdate = Cells(lngN, 2).Value
Exit Function
End If
Next lngN
lastdate = "01.01.2007" '(If no "Balance" exists...)
End Function


Public Function lastrange(lngZeile As Long) As Variant
Dim lngN As Long
For lngN = lngZeile To 1 Step -1
If Cells(lngN, 1).Value = "Balance" Then
lastrange = Range(Cells(lngN + 1, 2), Cells(lngZeile, 2)).Address
lngZ = lngN
Exit Function
End If
Next lngN
lastrange = Range(Cells(1, 2), Cells(lngZeile, 2)).Address '(If no "Balance" exists...)
End Function

Liebe Grüsse
Harry

Datum kleiner als - Zeile löschen

Forumthread: Datum kleiner als - Zeile löschen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilen basierend auf Datum in Excel löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Datum kleiner als - Zeile löschen

Forumthread: Datum kleiner als - Zeile löschen

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

Forumthreads zu verwandten Themen

Infobox / Tutorial

Zeilen basierend auf Datum in Excel löschen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread