Gruppe
Allgemein
Problem
Die Daten aus dem Bereich B6:C6 sollen in der Monatstabelle gem. Datum in Zelle F16 eingetragen werden.
StandardModule: basMain
Sub Eintragen()
Dim iRow As Integer
With Worksheets(Format(Range("C7").Value, "mmmm"))
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1) = Range("B6").Value
.Cells(iRow, 2) = Range("C6").Value
End With
End Sub