Tabblad wegschrijven

[wieter]

Met een knop wil ik de waarden van een tabblad wegschrijven naar een nieuw tabblad, met als naam de waarde van C4.
In C4 staat echter een datum die Slash-tekens bevat, en /-tekens mogen niet gebruikt worden in een tabnaam.
Is er een oplossing om de gegevens toch op te slaan in een nieuw tabblad, met als naam de waarde van C4?

Bekijk bijlage Urenreg. met ort.xlsm

 

[Cobbe]

Test deze eens:

ActiveSheet.Name = Format(tabnaam, "dd_mm_yyyy")

 

[wieter]

Bedankt Cobbe voor je inbreng.
Maar mijn wegschrijf-code blijkt helemaal mis te zijn, ze doet niet wat ik verwacht had.
Het nieuwe tabblad wordt wel aangemaakt met de juiste naam, maar het copieren loopt helemaal mis.

 

[Cobbe]

Dat komt zeker niet door die coderegel.

Private Sub CommandButton1_Click()
 [B][/B][COLOR="#FF0000"]tabnaam = Format([C4].Value, "dd_mm_yyyy")[/COLOR]    
For Each sheet In ThisWorkbook.Sheets
        If sheet.Name = tabnaam Then bestaatal = True: Exit For
    Next sheet
If bestaatal = True Then
        MsgBox "het tabblad " & tabnaam & " bestaat al"
Else
    Worksheets.Add after:=Sheets(Sheets.Count)
        ActiveSheet.Name = tabnaam
        Sheets("Blad1").Range("J2:V34").Copy
With Range("A1")
  .PasteSpecial xlPasteAll
  .PasteSpecial xlPasteColumnWidths
End With
Sheets("Blad1").Select
    Range("N3:Q33").ClearContents
    Range("N3").Select
End If
End Sub

Wat moet er precies gebeuren?

 

[wieter]

Na drukken op de knop, moet er een nieuw tabblad aangemaakt worden, met als naam de waarde in C4.
Vervolgens moet Range J3:V34 naar dit nieuwe tabblad gecopieerd worden.
Bedankt voor je reactie Cobbe.

Bekijk bijlage Urenreg. met ort.xlsm

 

[snb]

Denk eens andersom:

kopieer je werkblad, hernoem het, verwijder de gegevens die je daar niet nodig hebt.

 

[wieter]

Probleem opgelost.
Bedankt Cobbe voor het bepalen van de tabnaam.
Bedankt Snb voor de andere aanpak.