ich möchte in folgendem Makro nicht immer ein neues Workbook erzeugen, sondern eigentlich nur am Anfang ein neues und danach nur noch neue Tabellenblätter innerhalb des neuen Workbooks. Dazu muss ich zum einen eine Schleife einbauen, weiß aber noch nicht wie und zum anderen den Workbooks.Add Befehl so umbauen, dass er nach dem ersten Workbook nur noch Worksheets innerhalb des neuen Workbooks erzeugt.
Was muss ich am Code ändern, damit das funktioniert?
Sub add_workbook_and_paste()
With Worksheets("makro")
Dim holdingPeriod As String
Dim amount_variable As Integer
holdingPeriod = Worksheets("makro").Range("D2")
amount_variable = Range("B4") / 1000 & Range("B5") / 100
End With
ActiveSheet.Unprotect
Range("J1:R6252").Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Columns("A:I").AutoFit
ActiveSheet.Name = holdingPeriod & amount_variable
End Sub
Danke euch schon einmal für eure Hilfe und liebe Grüße,
Philip