zeilen mit datum < heute ()-1 in andere tabelle

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: zeilen mit datum < heute ()-1 in andere tabelle von: jürgen w.
Geschrieben am: 17.02.2005 09:55:58

hallo leute,
ich habe hier ein für mich ziemliches problem.
und zwar möchte ich das aus einer tabelle immer die zeilen in ein anderes tabellenblatt kopiert werden, die kleiner sind als heute minus ein tag.
( heute=17.02.05 -- also alle zeilen vor dem 16.02.05 )
das betreffende datum steht in spalte D.
die die herauskopierten zeilen sollten dann auch im neuen blatt untereinander stehen.
kann man dort ev. auch gleich einen blattschutz mit reinbringen, der zumindest erstmal verhindert das in diesen zeilen geändert wird?

ich hoffe ich habe mich verständlich ausgedrückt.

wäre schön wenn jemand helfen könnte und eine idee hat.

gruß
jürgen

Bild


Betrifft: AW: zeilen mit datum < heute ()-1 in andere tabelle von: Beni
Geschrieben am: 17.02.2005 10:45:29

Hallo Jürgen,
Gruss Beni





Sub jürgen()
Sheets("Tabelle2").Unprotect
For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row
    If Cells(i, 4) < Date - 1 Then
    ls = Cells(i, 256).End(xlToLeft).Column
    lz = Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Range(Cells(i, 1), Cells(i, ls)).Copy Sheets("Tabelle2").Cells(lz, 1)
    End If
Next i
Sheets("Tabelle2").Protect
End Sub



Bild


Betrifft: AW: zeilen mit datum < heute ()-1 in andere tabelle von: jürgen w.
Geschrieben am: 17.02.2005 12:10:06

hallo,
bekomme folgende meldung
Userbild


da ich nicht auskenne, hoffe ich ihr könnt auch hier weiterhelfen.

jürgen


Bild


Betrifft: AW: zeilen mit datum < heute ()-1 in andere tabelle von: Beni
Geschrieben am: 17.02.2005 13:23:52

Hallo Jürgen,
Gruss Beni


Private Sub CommandButton2_Click()
Dim i As Integer
Sheets("Sicherung").Unprotect
For i = 1 To Cells(Rows.Count, 4).End(xlUp).Row
    If Cells(i, 4) < Date - 1 Then
    ls = Cells(i, 256).End(xlToLeft).Column
    lz = Sheets("Sicherung").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Range(Cells(i, 1), Cells(i, ls)).Copy Sheets("Sicherung").Cells(lz, 1)
    End If
Next i
Sheets("Sicherung").Protect
End Sub



Bild


Betrifft: AW: zeilen mit datum < heute ()-1 in andere tabelle von: jürgen w.
Geschrieben am: 17.02.2005 13:41:08

hi beni,

jetzt wird hier gemeckert !!!!
Userbild


jürgen


Bild


Betrifft: AW: zeilen mit datum < heute ()-1 in andere tabelle von: Beni
Geschrieben am: 17.02.2005 15:14:59

Hallo Jürgen,
habe ich übersehen.
Gruss Beni


Dim i, ls As Integer


 Bild

Beiträge aus den Excel-Beispielen zum Thema "zeilen mit datum < heute ()-1 in andere tabelle"