Bis zu einem bestimmten Bereich kopiere
19.10.2021 13:46:07
Daniela
Ich bin an einer ToDo Lösung.
Wenn ich den Script benutze um die erledigten Datensätze in das Archiv zu verschieben, wird immer eine ganze Zeile kopiert.
Was muss ich ändern, wenn ich nur bis zur Spalte H ins Archiv kopieren will (also von A bis H)?
Ich könnte eure Hilfe brauchen.
Sub MoveToArchiv()
Dim i As Long
Dim lRows As Long
Dim vntResult As Variant
Dim wksToDo As Worksheet
Dim wksArchiv As Worksheet
Set wksToDo = ActiveWorkbook.Worksheets("ToDo")
Set wksArchiv = ActiveWorkbook.Worksheets("Archiv")
lRows = wksToDo.UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = lRows To 2 Step -1
Set vntResult = wksToDo.Range(wksToDo.Cells(i, 8), wksToDo.Cells(i, 8)).Find( _
What:="erledigt", LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=True)
If Not vntResult Is Nothing Then
wksToDo.Rows(i).Copy
wksArchiv.Rows(2).Insert Shift:=xlDown
wksToDo.Rows(i).Delete Shift:=xlUp
End If
Set vntResult = Nothing
Next i
Application.CutCopyMode = False
Set wksToDo = Nothing
Set wksArchiv = Nothing
End Sub