Macro om werkblad te kopiëren en naam aan te passen

[TempoWillem]

Hallo kenners,

Voor een gebruiksvriendelijke sheet ben ik aan het proberen een werkblad met behulp van een macro met een druk op de knop te kopiëren, het origineel leeg te maken en de kopie te voorzien van een naam die te vinden is in een cel op dat werkblad.

Ik kom een heel eind met het simpelweg opnemen van een macro, maar waar het mis gaat is de naamgeving. In de macro kopieer ik de inhoud van de cel met de naam en plak die dan als naam op het tabbladlabel. Helaas wordt dan echter de inhoud van de "naamcel" vastgelegd in de macro, waardoor het volgende tabblad steeds dezelfde naam krijgt, wat niet kan dus een foutmelding oplevert.

Om dat te omzeilen heb ik geprobeerd de in de macro vastgelegde naam te vervangen door de copy en paste commando's maar dat werkt lekker niet...

Versimpeld voorbeeld als bestand bijgevoegd.Bekijk bijlage Voorbeeld2.xlsb

Alvast bedankt voor jullie ideeën!

 

[edmoor]

Wijzig die macro eens in dit:

Sub Macro1()
    Sheets("Blad1").Copy Before:=Sheets(1)
    ActiveSheet.Name = Sheets("Blad1").Range("G4")
    Sheets("Blad1").Range("A4:G4").ClearContents
End Sub

 

[sylvester-ponte]

alleen de laatste regel zou ik veranderen in:

Sheets("Blad1").Range("B4,E4").ClearContents

 

[edmoor]

Dat mag TS zelf bepalen, maar ik zou wel die , wijzigen in een :

 

[TempoWillem]

Wederom bedankt, dit simpele antwoord volstaat al weer!

Nou dit weer inpassen in het grote geheel. Ik vraag dus alleen waar ik niet uitkom, anders leer ik niets