werkblad naam uit cel info halen

[kv41282]

ALs het goed is werkt het nu wel allemaal. Sorry het was verkeerd gegaan met opslaan.

Gr kim

 

[kv41282]

Ik heb weer een paar uurtjes lopen puzzelen, maar kom er nog niet uit. Ik snap er helemaal niks meer van.

Wie kan me alsjeblieft helpen?

gr kim

 

[Wigi]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim ws As Worksheet

    If Sh.Name = "Gehele overzicht" And Target.Address = "$E$2" Then

        Application.EnableEvents = False

        For Each ws In ThisWorkbook.Worksheets

            ws.Name = ws.Range("B1").Text

        Next

        Application.EnableEvents = True

    End If

End Sub

Wigi

 

[kv41282]

Helaas, er zit nog een foutje in de code

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim ws As Worksheet

    If Sh.Name = "Gehele overzicht" And Target.Address = "$E$2" Then

        Application.EnableEvents = False

        For Each ws In ThisWorkbook.Worksheets

            [COLOR="Red"]ws.Name = ws.Range("B1").Text[/COLOR]

        Next

        Application.EnableEvents = True

    End If

End Sub

heb het bestand weer opnieuw (met nieuwe code) toegevoegd.

 

[Wigi]

Kijk dan overal cel B1 na. In blad vr, 29-02-08 is die cel leeg.

 

[kv41282]

Ja klopt, dit is net als 30-02 en 31-02 deze data bestaan namelijk niet. Maar ik heb ipv "" , de cellen een andere inhoud gegeven en dan werkt het allemaal wel.

Echt SUPER :love::thumb:

hartstikke (kei) bedankt.

kim