Hallo liebe Leut
hab wieder mal ein dickes Problem, mit der untenstehenden Formel kann ich mir eine Bestimmte anzahl an Arbeitsblätte Automatisch erstellen und Umbenennen lassen. Soweit so gut nun möchte ich das in der Zelle Q1 die Seitenzahl steht. Kann mir da einer Helfen ?
Sub Kopieren_Arbeitsblätter()
Dim x As Integer
Dim Rng As Range
Dim WorkRng As Range
x = InputBox("Enter number of times to copy active sheet")
For numtimes = 1 To x
'Loop by using x as the index number to make x number copies.
ActiveWorkbook.ActiveSheet.Copy _
after:=ActiveWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = "S." & Worksheets.Count - 1
|