• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Uitleg formules in bestaand bestand

Status
Niet open voor verdere reacties.
Met de code in #12 wordt er nergens iets met 1 opgehoogd. De eerste 4 posities van de tabnaam worden vervangen door de waarde in B1.

Staan jouw events wel aan?
Code:
Sub VenA()
  MsgBox Application.EnableEvents
End Sub

Zo nee
Code:
sub aan()
Application.EnableEvents = true
end sub

Als er maar 2 cellen zijn die het Change Event aanroepen dan kan de code ook wat korter (maar minder leesbaar)
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B1,B10")) Is Nothing And Target.Count = 1 Then
    Application.ScreenUpdating = False
    For Each sh In Sheets
      If IsNumeric(sh.Name) Then
        If Target.Address(0, 0) = "B1" Then sh.Name = Replace(sh.Name, Left(sh.Name, 4), Target.Value) Else sh.Visible = Val(Right(sh.Name, 2)) >= Target.Value
      End If
    Next sh
  End If
End Sub
 
Ga naar het tabblad van week 33, klick op beeld boven in het lint
wat me opviel is dat werkmapweergaven ingesteld staat op pagina indeling.
wijzig dat in normaal.
 
(maar minder leesbaar)

Code:
 If Target.Address(0, 0) = "B1" Then sh.Name = Replace(sh.Name, Left(sh.Name, 4), Target.Value) Else sh.Visible = Val(Right(sh.Name, 2)) >= Target.Value
Komt door je eigen creatie natuurlijk.
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan