Gruppe
Matrix
Problem
Wie kann ich die Vereinseintritte eines bestimmten Jahres über eine Funktion zählen lassen? Die Eintrittsdaten stehen in den Zellen A2:A1200.
StandardModule: Modul1
Sub Uebertragen()
Dim lRow As Long
With Worksheets("Daten")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("A5:E8").Copy .Cells(lRow, 1)
.Range(.Cells(lRow, 6), .Cells(lRow + 3, 6)).Value = Date
End With
Application.CutCopyMode = False
End Sub