Macro werkt niet meer na wijziging naam tabblad

[lseverins]

Beste Helpers,

Ik ben bezig met een excel bestand om verwijzigingen te maken naar tabbladen.
(zie tabblad "totaal overzicht offertes"). Dat gaat allemaal goed. Ik heb er ook een formule ingezet dat de tabblad namen wijzingen naar de celinhoud van cel A1 van elk tabblad.

Alleen de namen van tabbladen gaan nog wijzingen. Indien in deze wijzig werken de macro's niet meer, die op tabblad "totaal overzicht offertes" staan.

Kan dit worden opgelost in excel?
(bestand is bijgevoegd, dat is misschien wat makkelijker)

Groetjes LennyBekijk bijlage Offerte V3.xlsx

 

[Cobbe]

Zet deze code achter uw knoppen:

Sub Knop12_Klikken()
Ws = Sheets("Totaal overzicht offertes").Range("B22")
Sheets(Ws).Activate
End Sub

Dit is het vb voor blad en knop 9

Cobbe

 

[ExcelAmateur]

Ik zie helemaal geen macro's.

 

[lseverins]

Zet deze code achter uw knoppen:

Sub Knop12_Klikken()
Ws = Sheets("Totaal overzicht offertes").Range("B22")
Sheets(Ws).Activate
End Sub

Dit is het vb voor blad en knop 9

Cobbe

beste Cobbe,

Ik denk dat mijn kennis van excel (VB) te weinig is. Ik snap niet wat ik moet doen..........
(en ik heb de engelse versie) is het dan anders???

Groet Lenny

 

[popipipo]

Hier een klein uitgewerkt voorbeeld.
De tabblad naam is ook gekoppeld aan de naam in cel A1
in 'ThisWorkbook' staat:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
ActiveSheet.Name = [A1]
End Sub

 

[lseverins]

Het werkt!!!

Hartstikke bedankt!!