Bestaat werkblad code

[Demeter]

Dames en Heren,

Ik ben op zoek naar hoe ik de naam van een werkblad kan vergelijken met een variabele.

Dim naamwerkblad As Variant
naamwerkblad = "werkblad2")

If Sheet(2).name = naamwerkblad Then
.............


Ik weet dat het met deze code niet werkt (hiermee hernoem je het blad) maar wat moet er komen op de plaats van:
Sheet(2).name ?


Bijvoorbaat dank,
Ferenc

 

[Wigi]

Ferenc

Probeer eens

Dim naamwerkblad As String
naamwerkblad = "werkblad2"

If Sheet(2).Name = naamwerkblad Then
.............

Werkt dit?

Let trouwens ook op hoofdletters (als ik mij niet vergis)

Wigi

 

[Demeter]

Yep, dat werkt

Alleen ik heb de vraag verkeert geformuleert (of verkeerde denk wijze gebruikt).
Wil graag eerst controleren of werkblad 2 bestaat en als dit niet het geval is deze maken en vullen met data vanaf blad 1. bestaat deze wel dan hoeft er alleen maar gevuld worden.

Achterliggende code heb ik al alleen het gedeelte dat hij gecontroleerd wordt niet, dacht dit te doen door te kijken of de naam juist is.


In ieder geval bedankt Wigi.

Groet,
Ferenc

 

[Wigi]

Voilà

Sub werkbl()
Dim c As Worksheet, strName As String
strName = ""
For Each c In Worksheets
    If c.Name = "Werkblad 2" Then
        strName = "Werkblad 2"
        Exit Sub
    End If
Next
If strName = "Werkblad 2" Then
    'het werkblad is er al en je moet dus niets invoegen
Else: Sheets.Add.Name = "Werkblad 2"
End If
End Sub

Wigi

 

[Demeter]

Amen to that

Thanxs Wigi,

Dat werkt als een trein.:thumb:


Groet,
Ferenc