Macro loopt vast Tabblad Aanpassen

Status
Niet open voor verdere reacties.
T

tombeerke

Gebruiker
Lid geworden
8 jan 2017
Berichten
280
In bijlage een voorbeeld van mijn probleem.

Als ik werk met
Code: 
Sub Naamtabbladvervangen()
    
    ActiveSheet.Name = Range("f9").Value
    
    End Sub

werkt alles prima

Als ik werk met:

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$F$9" And Target.Count = 1 And Target <> "" Then Sh.Name = Target.Value
End Sub

Werkt ook alles prima .....
Maar als ik andere macro start nadien, krijg ik steeds foutmelding ??

bekijk het voorbeeldje aub, zal alles duidelijk maken

thanks

Tom

Bekijk bijlage ElleOverzicht2017.xlsm
 
De controle volgorde gaat daar fout. Maar er eens dit van:
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = "$F$9" Then
        If Target.Count = 1 And Target <> "" Then Sh.Name = Target.Value
    End If
End Sub

Als je zegt een foutmelding te krijgen, vertel deze er dan ook bij.
 
Thx,

de foutmelding stond in mijn voorbeeld bestandje ;)

Intussen je aanpassing geprobeerd, en werkt prima !

Thx :thumb::thumb:

Tom
 
Mooi dat het werkt :)

In je document staat alleen de geel gemarkeerde regel.
Dat laat zien waar de fout zich voordeed, maar niet de foutmelding zelf en daar gaat het om.
 
Laatst bewerkt:
Mij lijkt het logischer om de events uit en na het doorlopen van de code weer aan te zetten.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan