Automatisch Macro in eerste macro aanroepen

[jijgroeit]

Beste Forumleden,

Ik heb veel goede tips uit dit forum opgehaald. Dank daarvoor! Nu wil ik in m'n eerste macro tot slot een tweede macro aanroepen.

Ik heb een hele mooie macro van Zapatr kunnen gebruiken om automatisch tabbladen aan te laten maken (macro1), maar wil hierin tevens de tabbladnaam in A2 vermeld zien (macro2). maar weet niet waar deze te plaatsen, meerdere plaatsen geprobeerd. Vandaar dat ik aan het einde voor End Sub macro 2 wil aanroepen.

Ter info:

macro1:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Integer, b As Integer, x As Integer, nr As Integer
'Deze macro is geschreven door Zapatr
If Not Intersect(Range("b2:b200"), Target) Is Nothing Then
If WorksheetFunction.And(Target <> "x", Target <> "") Then
Exit Sub
End If
nr = Target.Offset(, 1)
For x = 1 To Sheets.Count
a = Val(Right(Sheets(x).Name, Len(Sheets(x).Name) - 3))
b = 0
If nr = a Then
'Sheets(x).Delete
Exit Sub
End If
If Target = "x" Then
If Len(Sheets(x).Name) > 3 And Left(Sheets(x).Name, 3) = "SEO" Then
If a > nr And b = 0 Then
Sheets("SEO").Copy before:=Sheets(x)
Sheets("SEO (2)").Name = "SEO " & nr
b = 1
Exit Sub
End If
End If
If x = Sheets.Count And b = 0 Then
Sheets("SEO").Copy after:=Sheets(x)
Sheets(x + 1).Name = "SEO " & nr
b = 1
End If
End If
Next
End If
End Sub

Macro2:

Sub naam()
Range("A2") = ActiveSheet.Name
End Sub

Bij voorbaat dank!
R.Tobi

 

[Joske2000]

call module1.macro2

Als deze macro in dezelfde module staat, kan je "module1" weglaten

Joske

 

[jijgroeit]

Geweldig, opgelost

Beste Joske,

Hartstikke bedankt voor je snelle reactie. Ik had de macro niet in module1 aangemaakt. Dit heb ik nu gedaan en m'n kopzorg is verdwenen. Hartstikke bedankt!

Vriendelijke Groet,
Rachid

 

[Joske2000]

Beste Joske,

Hartstikke bedankt voor je snelle reactie. Ik had de macro niet in module1 aangemaakt. Dit heb ik nu gedaan en m'n kopzorg is verdwenen. Hartstikke bedankt!

Vriendelijke Groet,
Rachid

Dat hoeft ook niet, je kan deze dan aanroepen via

call module7.macro2

Joske