fout in macro

[Johanheijkers]

Hallo,

ik heb een macro gevonden op internet deze heb ik wat aangepast maar ik doe wat fout.
als ik een of meer tabbladen wil aan maken moet hij de naam van B5 overnemen en doortellen

voorbeeld: gebouw 1
gebouw 2
enz.

maar nu doet hij starten bij gebouw 2 en dan verder
wat doe ik fout

heb een voorbeeld erbij gedaan

groetjes johan

 

[mvdvlist]

In je code:

ActiveSheet.Name = Str & i

Veranderen in:

ActiveSheet.Name = Str & i - 1

 

[Johanheijkers]

top het werkt .

bedankt mvdvlist.

gr johan

 

[VenA]

Met een beetje structuur in de code kan het ook zo.

Sub VenA()
  Application.ScreenUpdating = False
  x = Sheets.Count
  y = Application.InputBox("Aantal bladen aub.  Naam wordt automatisch togevoegd.", "Voer een getal in", , , , , , 1)
  c00 = Sheets("Template").Range("B5")
  For j = 1 To y
    If IsError(Evaluate("'" & c00 & "'!A1")) Then
      Sheets("Template").Copy , Sheets(Sheets.Count)
      ActiveSheet.Name = c00 & j + x - 2
    End If
  Next j
  Application.Goto Sheets("Template").Cells(1)
End Sub

 

[Johanheijkers]

VenA bedankt voor de code ziet er ook goed uit en werk

gr johan