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"