VBA - Hinzufügen von Blättern basierend auf einem Wert und Namen acododingly

Question

Ich habe Probleme mit meinem Code. Ich muss neue Blätter erstellen und sie nach dem Namen einer Maschine benennen. Welcher ist der Bereich "B" & (12 * x - 5). Ja, der Bereich ändert sich basierend auf x, was in diesem Beispiel gleich 1 zu 33 ist und innerhalb der richtigen For Anweisung liegt. Mein Code erstellt jedoch eine große Anzahl von Blättern und nicht nur 11, in diesem Beispiel. Sheets("Tool Setup").Range("C18") = 11 in diesem Beispiel. Außerdem beabsichtige ich, diese Blätter entsprechend dem Wert im Bereich "B" & (12 * x - 5) zu benennen.

Dim Sheetcnt As Integer, Tabs As Integer 
Sheet = ThisWorkbook.Names(Sheets("Reporting").Range("B" & (12 * x - 5))).RefersToRange.Value 
Sheetcnt = Sheets("Tool Setup").Range("C18") 

For Tabs = 1 To Sheetcnt 
    Sheets.Add After:=Sheets(Sheets.Count) 'creates a new worksheet 
    Sheets(Sheets.Count).Name = Sheet 'renames the new worksheet 
Next Tabs 

Wenn jemand kann mir helfen Figur, wie einen Code zu erstellen, der dieses Problem gerecht wird, wäre es sehr geschätzt werden. Ich habe eine Ahnung, dass es mit der Variablen Tabs zu tun hat.

Vielen Dank im Voraus.

Answer 1

Basierend auf dem, was Sie zur Verfügung gestellt haben, habe ich den folgenden Code erstellt, der 11 Blätter nach einer ähnlichen Formel wie Ihre benennt. Um zu demonstrieren, dass es funktioniert, habe ich fortlaufende Nummern in die ersten 127 Zeilen von Spalte B des aktiven Blattes gelegt. Dann berechnet der Code, welche Reihe zu greifen ist, unter Verwendung der Formel Range("B" & (12 * i - 5). Diese Formel ergibt die folgende Sequenz: 7 19 31 43 55 67 79 91 103 115 127, und so werden 11 Blätter mit diesen Zahlen gemacht.

Wenn dies nicht das ist, was Sie beabsichtigt haben, können Sie diesen Arbeitscode möglicherweise als Ausgangspunkt für den Start verwenden. Oder, noch besser, bieten Sie mehr Definition für Ihre Frage.

Option Explicit 
Sub sheetNamer() 
    Dim num As Integer, i As Integer, sh As Worksheet 
    num = 11 
    Set sh = ActiveSheet 
    For i = 1 To num 
     Sheets.Add After:=Sheets(Sheets.Count) 
     Sheets(Sheets.Count).Name = sh.Range("B" & (12 * i - 5)) 
    Next i 
End Sub