Een nieuwe sheet maken met de waarde van een combox

[BromsnorII]

Hallo,

In mijn vorige vraag;

" Wellicht heeft iemand op dit forum het al eens gevonden. Hoe kan ik het aantal sheets in een werkboek doorlopen of de naam al bestaat. De naam isde waarde van een combobox. Als de naam al bestaat moet de sheet geselecteerd worden, zo niet moet een nieuwe sheet met deze naam worden gemaakt."

Is het probleem van het doorlopen van de sheetnamen opgelost. Echter heb ik het nog niet voor elkaar om een sheet toe te voegen.

sheets.add ComboBox1.Value
is al geopperd maar dit werkt op een aof andere manier niet

Groet,
Sietse Keun

 

[Hoornvan]

Bromsnor,

Kijk hier eens, misschien is dat het?

 

[Karel 2]

Hoi Sietse,

Onderstaande macro doorloopt alle werkbladen en vergelijkt ze met de waarde die ik (naar jou gegevens) combobox1 heb genoemd.
Kan je hier wat mee?

Sub doorloop_worksheets()

For Each a In Worksheets
    If a.Name = combobox1 Then
        MsgBox ("Er bestaat al een blad met de naam " & combobox1)
    End If
Next a
    
End Sub

 

[snb]

sub tst()
  on error resume next
  sheets.add combobox1.value
End sub

Vermijd select en activate in VBA: overbodig, vertragend en verwarrend.