naam werkblad op naam controleren

[Theophiel]

Hallo beste forumleden,

Ik zou graag een nieuw werkblad aanmaken met de waarde van cel A1. Deze waarde is variabel en er zou moeten nagegaan worden of deze naam nog niet in gebruik is.

Ik ben al even bezig om de gevonden resultaten in de juiste vorm te gieten maar het lukt me niet.

Ik hoop dat een van de vele goede forumzielen me wat hulp kan bieden.

Alvast bedankt op voorhand

Bekijk bijlage TAB maken.xlsm

 

[VenA]

Je kan deze eens proberen.

Private Sub CommandButton1_Click()
With Blad1
  If .[A1] = "" Then Exit Sub
  If IsError(Evaluate("'" & .[A1] & "'!A1")) Then Sheets.Add.Name = .[A1]
  .Range(Range("C1").End(xlToRight), Range("C1").End(xlDown)).Copy Sheets(.[A1].Value).[A1]
End With
End Sub

 

[Theophiel]

Hartelijk dank voor de oplossing!

Ik heb geprobeerd een msgbox in te verwerken als de naam al bestaat maar ook dat lukt me niet
mag ik nog wat hulp vragen?

Alvast bedankt op voorhand en voor de aangeboden hulp

 

[HSV]

Gewoon splitten.

Private Sub CommandButton1_Click()
  If [A1] = "" Then Exit Sub
  If IsError(Evaluate("'" & [A1] & "'!A1")) Then
     Sheets.Add.Name = [A1]
     Range(Range("C1").End(xlToRight), Range("C1").End(xlDown)).Copy Sheets([A1].Value).[A1]
  else
     msgbox "blad bestaat al"
 end If
End Sub

 

[Theophiel]

Geweldig!

Wat dat splitten betreft, ja, gewoon splitten hé, was dit voor mij ook maar zo gewoon.

Nogmaals vanharte bedankt!