Gentage kode, Excel, vba
Jeg har lavet denne lille stykke kode, som går ud på, at den skal gentage en stykke kode til og med det antal rækker der i en anden arkfane. Men den virker desværre ikke. Håber nogen der kan hjælpe.Sub kopierOmraade()
Dim maxRow As Integer
Dim tempRng As Range
maxRow = Worksheets("Ark2").Range("B2").Rows.Count
Set tempRng = Worksheets("Ark2").Range("B1:D1")
For i = 2 To maxRow
Worksheets("Ark2").Range(Cells(i, 2), Cells(i, 4)).Copy tempRng
Worksheets("Ark1").Range("A6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Next i
MsgBox ("Opgaven er fuldført")
End Sub
