Private
Sub
CommandButton1_Click()
ActiveWorkbook.RefreshAll
curColumn = 1
rowNumber = Worksheets(
"RessourceRequestList"
).Cells(Rows.Count, curColumn).
End
(xlUp).Row
supportingCounter2 = 1
supportingCounter3 = 0
For
iCounter = 2
To
rowNumber
Step
1
Worksheets(
"RessourceRequestList"
).Rows(iCounter).Copy Destination:=Worksheets(
"Trackingliste"
).Rows(rowNumber2 + iCounter - 1)
Next
For
iCounter2 = 2
To
rowNumber + supportingCounter3
Step
supportingCounter
For
columnNumber = 14
To
24
Step
1
Worksheets(
"Trackingliste"
).Cells(iCounter2, columnNumber).
Select
Selection.Activate
If
Not
IsEmpty(ActiveCell.Value)
Then
supportingCounter = supportingCounter + 1
If
supportingCounter2 < supportingCounter
Then
supportingCounter3 = supportingCounter3 + 1
ActiveSheet.Rows(iCounter2).
Select
Selection.Copy
Selection.Insert Shift:=xlDown
End
If
End
If
supportingCounter = 1
Next
Next
Unload
Me
End
Sub