VBA Hilfe
16.10.2015 22:20:22
Thomas
ich versuche gerade die letzten zwei zeilen meiner tabelle zu kopieren.
Die zeile ist in spalte t mit ein x gekennzeichnet und die zwei zeilen sind in spalte a verbunden.
ich wollte mit Columns("T").Find(What:="x", Lookat:=xlWhole, LookIn:=xlValues
die betroffene zeile suchen ( klappt)
mit .Offset(-1, 0).Resize(2).EntireRow.Copy eine zeile nachoben und den bereich kopieren ( klappt nicht ) die Fehlermeldung "objekt erforderlich.
Alex G hat dies mal mit Cells(Rows.Count, "T").End(xlUp) gelösst hier habe ich jetzt jedoch das problem das zellen mit formeln mitgezählt werden.
kann mir jemand ein tip geben?
liebe grüsse thomas
With Columns("T").Find(What:="x", Lookat:=xlWhole, LookIn:=xlValues, Searchdirection:=xlPrevious).Row
.Offset(-1, 0).Resize(2).EntireRow.Copy
For i = 0 To 8 Step 2
.Offset(1 + i, 1 - .Column).PasteSpecial xlPasteAll
Next i
End With
End Sub