Dear all,
I am a VBA newbie with a project that is definitely larger than me. I have a number of tasks I'd like to include to happen at one comfortable touch of a button. The first thing I am having issues with is the following:
Worksheet "Artikelliste" and Worksheet "Verpackungen" are needed.
I'd like to Count the amount of values in the column B in "Artikelliste" and Copy and Paste a range a certain amount of times in Worksheet "Verpackungen". The Range is also in the latter Worksheet. The templates which I am copying should all be neetly underneath each other, hence the offset.
Here is the Code which I am having probably a number of issues with. Could you give me some pointers?
Sub CopyTemplateITimes()
Dim i As Long
For i = 1 To Worksheets("Verpackungen").CountA(Range("B6:B100"))
Stop
Worksheets("Artikelliste").Range("B9:J21").Select
Selection.Copy
Range("B9").Offset(15, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Next i
End Sub
Thank you so much for your time!
missginius
Bookmarks