Office: (Office 365) For Next Schleife

Hallo zusammen,
da bin ich wieder und wie kann es anders sein mit einem Problem.
Ich habe eine Tabelle (im Anhang) dort soll die Werte in Zellen a/b/f kopiert werden und in die erste frei Zeile eingefügt werden, das aber nur wenn eine Bedingung erfüllt wird.
In meinem Beispiel: alle Daten die das Jahr 2021 betreffen. Habe mal angefangen mit einer Schleife aber ich bekomme sie nicht fertiggestellt.

Code:

sub Mietervorjahr()
Dim r As Integer
Dim von As Date
Dim bis As Date
Dim last As Integer
last = Cells(Rows.Count).End(xlUp).Row + 1
von = "1.1.21"
bis = "31.12.21"
For r = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(r, 3).Value >= von And Cells(r, 4) <= bis Then Cells(r, 1).Copy

Next r

End Sub

Cool wäre es wenn z.B in die Zelle c 1.1.2022 und in die Zelle d 31.12.22 geschrieben würde.
Danke
Gruß
Martin

 

Kann dir gerade nicht so folgen.

Wo kommen die "Werte" denn her und wie sehen die aus?

 

Hallo Diza
das Ziel ist es: wenn sich nicht im aktuellem Jahr, gegenüber dem Vorjahr geändert hat (also Mieterwechsel/ Personen ), soll einfach die Daten vom Vorjahr übernommen werden. Bei Änderung kommen Daten über ein UserForm. Die Formatierung ist wie in der Tabelle.
Gruß
Martin

 

Als 1. Anregung ohne Detailprüfung....DatumWerte sollte man noch variabel machen..

Code:

Sub Mietervorjahr()
Dim r As Integer
Dim von As Date
Dim bis As Date
Dim last As Integer
last = Cells(Rows.Count, 1).End(xlUp).Row + 1
von = "01.01.2021"
bis = "31.12.2021"
r = 2
For Each cell In Range(Cells(2, 3), Cells(last, 3))
    If cell.Value = von Then
        Range(Cells(r, 1), Cells(r, 7)).Copy Range(Cells(last, 1), Cells(last, 7))
        Cells(last, 3).Value = "01.01.2022"
        Cells(last, 4).Value = "31.12.2022"
       last = last + 1
    End If
r = r + 1
Next cell
End Sub

 

YES !!!!
Danke!!! Dein Code funktioniert super, genau so habe ich mir das vorgestellt.
Das Datum kommt später aus einem Tabellenblatt.
Gruß
Martin