|
Hallo.
was VBA angeht bin ich noch sehr frisch und stehe nun vor einem Problem an dem ich schon seit stunden festhänge. Ich hoffe ihr könnt mir helfen. (Das Internet habe ich bereits durchforstet aber leider nix passendes gefunden).
Ich habe eine Worksheet mit zwei Spalten. Einmal das Datum (dd.mm.yy hh:mm:ss) und einemal ein Integer Wert.
Nun will ich alle Zeilen bis zu einem bestimmten Datum löschen. (Die Daten sind absteigend, also handelt es sich um die oberen Zeilen)
Dim i As Integer
LetzteZeile = 1000
For i = 9 To LetzteZeile
With wSheet
If .Cells(i, 1).Value < day_tomorrow Then
'.Rows(i).Delete Shift:=xlUp
.Cells(i, 2).Value = "kleiner"
Else
.Cells(i, 2).Value = "groesser"
End If
End With
Next
wSheet bezeichnet dabei das aktuelle Worksheet.
Jetzt zum Problem:
#1 Er führz zwar den Code aus (groesser und kleiner werden richtig angewand), jedoch springt der Debugger an aufgrund eines Laufzeitfehlers (Objekt erforderlich)
If .Cells(i, 1).Value < day_tomorrow Then
#2 die Zeilen werden nicht gelöscht.
Ich hoffe ihr könnt mir helfen.
|