in Monatsblätter verteilen
07.02.2005 18:28:03
Peter
ich habe in einer Tabelle, ab Zeile 3, in Spalte 4 verschiedene Datumswerte
zu stehen.
Jetzt möchte ich die Zeile in der ein Datumswert steht, entsprechend des
im Datum enthaltenden Monates, in die jeweilige Monatstabelle (Tab.name=Monatsname) am Ende der,bestehenden Einträge hinzufügen.
So recht funk. mein Versuch nicht. Wer kann helfen?
Peter
Sub Verteilen()
Dim rngFind
Dim intRow
Dim intMonth
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
intRow = 3
Do Until IsEmpty(Cells(intRow, 4))
intMonth = Month(Cells(intRow, 4))
Set rngFind = Worksheets(Format(DateSerial(1, intMonth, 1), "mmmm")) _
.Find(Cells(intMonth, 4), LookIn:=xlValues, LookAt:=xlWhole)
If intMonth = Worksheets(Format(DateSerial(1, intMonth, 1), "mmmm")) Then
Rows(rngFind.Row).Copy Rows(intLastRow)
End If
intRow = intRow + 1
Loop
End Sub