Ik ben bezig met een systeem voor mijn werk.
Nu maak ik door middel van een macro een nieuw werkblad aan, kant en klaar, met alle opmaak en formules.
Nu wil ik dit tabblad automatisch een naam met volgnummer geven. De naam is steeds hetzelfde, het volgnummer loopt, hoe kan het ook anders, steeds 1 op.
Dit is de code die ik nu gebruik in de macro:
Zoals je kunt zien heb ik dus een standaard werkblad (RM_) wat ik kopieer en voorzie van een nieuwe naam "nieuw". Die "nieuw" heb ik nu als een vast waarde ingevuld, maar die moet eigenlijk als volgt opgebouwd worden: RM_001, de volgende RM_002, enz.
Ik zat zelf eerst te denken aan een controle voor hoeveel rekenmodules er bestaan, maar dit is naar mijn idee toch geen oplossing omdat deze werkbladen verwijderd kunnen worden. Bijvoorbeeld RM_006 wordt verwijderd terwijl RM_010 al bestaat, dit zou resulteren in een nieuwe RM_010 en geeft dus een foutmelding. Doortellen is de enige optie naar mijn idee, maar dat krijg ik niet voor elkaar en ook het samenvoegen van de naam en het nummer lukt mij niet...
Weet iemand hoe ik dit simpel op kan lossen?
Al vast bedankt.
Nu maak ik door middel van een macro een nieuw werkblad aan, kant en klaar, met alle opmaak en formules.
Nu wil ik dit tabblad automatisch een naam met volgnummer geven. De naam is steeds hetzelfde, het volgnummer loopt, hoe kan het ook anders, steeds 1 op.
Dit is de code die ik nu gebruik in de macro:
Code:
Sub Rekenmodule()
'
' Rekenmodule Macro
'
' Sneltoets: CTRL+r
'
Dim nieuw As String
nieuw = "RM_1"
Sheets("RM_").Copy After:=Sheets(Sheets.Count)
Sheets("RM_ (2)").Visible = True
Sheets("RM_ (2)").Name = nieuw
Sheets("I_project").Select
ActiveCell.Rows("1:1").EntireRow.Select
ActiveCell.Offset(0, 1).Select
Selection.Copy
Sheets(nieuw).Select
Range("A2:I2").Select
ActiveCell.PasteSpecial
Application.CutCopyMode = False
Application.ScreenUpdating = False
Sheets("I_Project").Select
ActiveCell.Rows("1:1").EntireRow.Select
ActiveCell.Offset(0, 4).Activate
ActiveCell.Formula = "=" & nieuw & "!I8"
ActiveCell.Offset(0, 2).Select
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & nieuw & "'!A1", TextToDisplay:="Rekenmodule"
Sheets(nieuw).Select
End Sub
Zoals je kunt zien heb ik dus een standaard werkblad (RM_) wat ik kopieer en voorzie van een nieuwe naam "nieuw". Die "nieuw" heb ik nu als een vast waarde ingevuld, maar die moet eigenlijk als volgt opgebouwd worden: RM_001, de volgende RM_002, enz.
Ik zat zelf eerst te denken aan een controle voor hoeveel rekenmodules er bestaan, maar dit is naar mijn idee toch geen oplossing omdat deze werkbladen verwijderd kunnen worden. Bijvoorbeeld RM_006 wordt verwijderd terwijl RM_010 al bestaat, dit zou resulteren in een nieuwe RM_010 en geeft dus een foutmelding. Doortellen is de enige optie naar mijn idee, maar dat krijg ik niet voor elkaar en ook het samenvoegen van de naam en het nummer lukt mij niet...
Weet iemand hoe ik dit simpel op kan lossen?
Al vast bedankt.