Für ein Reporting, werden jeden Tag die Formeln des Vortages kopiert und beim heutigen Datum eingefügt. Momentan geschieht dies manuell. Dafür möchte ich jetzt ein Makro erstellen.
Also, ich möchte in Spalte B das gestrige Datum suchen. Wenn ich das Datum gefunden habe, möchte ich die Zeile von C bis DD kopieren.
Danach suche ich das heutige Datum und füge kopierte Daten ein.
Folgendes habe ich bereits:
Sub AktuellesDatumFinden()
Dim rngArea As Range
'Aktuelles Datum Suchen
Set rngArea = Worksheets("Kontolöschungen").Range("B10:B380").Find(What:=Date, LookIn:=xlValues)
'Wenn Datum gefunden
If Not rngArea Is Nothing Then
'Umsatz (Nebenzelle der Fundzelle) auswählen
rngArea.Offset(0, 1).Select
Else
End If
End Sub
Hier sucht er allerdings nur das heutige Datum und markiert die erste Zelle neben dem Datum.Kann mir jemand helfen?
Danke & VG