automatisch nieuw tabblad met naam maken

[NetJet]

Mijn vraag
Hallo allemaal,
ik heb een spreadsheet waarin ik de gebruikskosten van mijn auto bij houd.
Op pagina 1 vul ik de maand met laatste cijfers van het jaar in, daarna wordt er een nieuw tabblad met naam gemaakt.
Werkt prima, alleen vanaf A15 maakt hij geen nieuw tabblad meer aan.

Ik weet niet meer hoe ik het gedaan heb en waar in de range kan vergroten, zodat ik iig voor 1 jaar (12 maanden) de spreadsheet kan gebruiken.
Zal eenvoudig zijn (hoop ik), maar heb zitten puzzelen en kom r niet uit.
Wie kan mij helpen?


Relevante software en hardware die ik gebruik
Windows10 en Office 2013

Spletsj

PS, zou heel graag Excel bestand en foto's toevoegen, zie/weet alleen niet hoe?

[KabouterSuper]

Klinkt als een macro. Kijk eens in je vb editor.

[NetJet]

@KabouterSuper,

bedankt voor jouw snelle reply.
Ik kan geen macro vinden, moest zelfs het tabblad 'ontwikkelaars' aanzetten en de knop 'macro' toevoegen.
Er staat mij idd nog iets bij van een macro, moest heb daarin ook gezet dat hij het nieuwe tabblad NA het tabblad met de naam 'laatste' plaatsen moest.

Maar stom zoals ik ben, ik weet het (nu even) niet (meer)!

Hoe kan ik bij mijn post een bestand of afbeelding plaatsen?
Ik kan alleen maar verwijzen naar een hyperlink.

Thnx,
Spletsj

[dragon2]

Maar wat staat er nu in je vba editor? alt-F11 dus, en dan de bestanden even doorbladeren of daar macro's in staan.

Een bestand/foto plaats je op de standaard manier zoals bij zoveel forums, ofwel hier hosten (kijk in je karma store) ofwel extern ergens hosten (de publieke folder van dropbox gebruik ik zelf).

[NetJet]

@dragon2 en @KabouterSuper

nogmaals bedankt.

Ik heb al gezocht via vba editor, maar zie daar geen bekende dingen die ik (misschien) nog weet wat ik ingevoerd had (voor tabblad met 'laatste' (net verkeerd gemeld)).
Hieronder copy/paste:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("PresentatieNamen")) Is Nothing Then Exit Sub 'niets verandert in bewust bereik=stoppen
Dim sh As Worksheet, c As Range, bl As Worksheet, bGevonden As Boolean
For Each c In Range("PresentatieNamen").SpecialCells(xlConstants) 'loop alle niet-lege cellen in dat bereik af
bGevonden = False 'nog niet gevonden
For Each sh In Sheets 'loop alle werkbladen af
If UCase(sh.Range("G1").Formula) = UCase("=" & ActiveSheet.Name & "!" & c.Address(0, 0)) Then 'verwijst cel G1 in dat werkblad naar deze cel
bGevonden = True 'dan heb je gewenste werkblad gevonden
If UCase(sh.Name) <> UCase(c.Value) Then 'is de naam van dat werkblad niet gelijk aan deze in de cel, dan gaan we die moeten aanpassen
On Error Resume Next 'doorgaan bij fouten
Set bl = Nothing: Set bl = Sheets(c.Value) 'kijk eerst of er geen andere werkblad al zo noemt
On Error GoTo 0 'einde doorgaan bij fouten
If bl Is Nothing Then 'geen ander werkblad gevonden
sh.Name = c.Value 'blad hernoemen
Else
MsgBox "blad " & sh.Name & " kan niet hernoemd worden naar " & c.Value & " want er noemt al een blad zo" 'het gaat niet !!!!
End If
End If
Exit For 'niet meer verder zoeken naar werkblad met deze naam
End If
Next

If Not bGevonden Then 'werkblad niet gevonden, dan ga je er een nieuwe meoten toevoegen
For Each sh In Sheets
If InStr(1, UCase(sh.Range("G1").Formula), UCase("=" & Target.Parent.Name & "!")) > 0 Then 'zoek een werkblad met een formule in G1 die verwijst naar presentatielijt
sh.Copy before:=Sheets(Sheets.Count) 'maak kopie van dat werkblad helemaal achterin werkmap
With ActiveSheet
On Error Resume Next 'doorgaan bij fouten
Set bl = Nothing: Set bl = Sheets(c.Value) 'kijk eerst of er geen andere werkblad al zo noemt
On Error GoTo 0 'einde doorgaan bij fouten
If bl Is Nothing Then 'geen ander werkblad gevonden
.Name = c.Value 'blad hernoemen
Else
MsgBox "blad " & .Name & " kan niet hernoemd worden naar " & c.Value & " want er noemt al een blad zo" 'het gaat niet !!!!
End If
.Range("G1").Formula = "=" & Target.Parent.Name & "!" & c.Address(0, 0)
End With
Exit For
End If
Next
End If
Next
Application.Goto Target.Cells(1, 1), False
End Sub


thnx
Spletsj

[KabouterSuper]

Zo te zien heb je een range Presentatienamen. Weet je hoe je de definitie van een range bekijkt? Ik gok dat je daarmee kunt zien wat er aangepast moet worden.

[Paultje3181]

Welke formule staat in G1?