Bladnaam aan de hand van een gegevens validatie

[jovdo]

Beste lezer,

Ik zal het eens zo goed mogelijk proberen te omschrijven. Ik zou graag willen weten of het mogelijk is om via een cel met een pull down menu-tje. (gemaakt via gegevens validatie - lijst) de naam van de werkmap kan wijzigen.

Alvast bedankt.

 

[Warme bakkertje]

Stel dat je validatielijst in A1 staat, plaats onderstaande in de bladmodule waarin je validatielijst staat

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then ThisWorkbook.SaveAs "D:\Mijn documenten\" & [A1] & ".xls"
End Sub

 

[jovdo]

Stel dat je validatielijst in A1 staat, plaats onderstaande in de bladmodule waarin je validatielijst staat

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then ThisWorkbook.SaveAs "D:\Mijn documenten\" & [A1] & ".xls"
End Sub

Bedankt warme bakkertje. ik zie nu dat ik de vraag verkeerd heb gesteld. Zo te zien maakt het de bestandsnaam conform de gegevensvalidatie cel. Maar ik bedoelde eigenlijk de naam van het blad (lees: tabblad).

Soryr voor de overlast.
Bedankt alvast.

 

[Warme bakkertje]

Dat was wel je vraag, nietwaar

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then ActiveSheet.Name = [A1]
End Sub

 

[jovdo]

Dat was wel je vraag, nietwaar

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then ActiveSheet.Name = [A1]
End Sub

Zeer bedankt warme bakkertje. !!!

 

[Roncancio]

Zeer bedankt warme bakkertje. !!!

Gaarne de vraag nog op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio