ich habe folgendes Makro geschrieben. Ziel ist es, alle Zeilen die in Spalte A den Wert der letzten Zeile in Spalte A enthalten in das Blatt "2" zu kopieren. Leider funktioniert mein Makro bei allen Zeilen, nur nicht bei der letzten Zeile. kann mir jemand helfen?
Sub copy_months()
Dim i As Integer
Sheets("1").Select
For i = ActiveSheet.UsedRange.Columns(1).Cells.Count To 4 Step -1
If Cells(i, 1).Value = Cells(2, 2).Value Then
Rows(i).Select
Selection.Cut
Sheets("2").Select
Cells(i, 1).Select
ActiveSheet.Paste
Sheets("1").Select
Else
If Not Cells(i, 1).Value = Cells(2, 2).Value Then
Cells(i, 1).Activate
End If
End If
Next i
End Sub
vielen Dank!!
maik