Zoeken of een werkblad (sheet) aanwezig is

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Forumleden,

Ik ben al een tijd op zoek naar de code die bekijkt of werkblad (Sheet) "Kassa" aanwezig is, tot mijn spijt heb ik dit hier niet kunnen vinden, vandaar mijn vraag.

Ik heb in het verleden de volgende code gebruikt om te onderzoeken of een schijf aanwezig is, graag zou ik o.b.v. een dergelijke code een code tegemoet willen zien waar het systeem kijkt of werkblad "Kassa" aanwezig is.

Code: 
Sub VoerCodeUit()
[COLOR="#B22222"]Const SHARE As String = "Q"
    If ShareExists(SHARE) Then[/COLOR]
        ' << voer code uit >>
    Else
        MsgBox "De drive " & SHARE & " is niet actief"
    End If
End Sub

Alvast heel hartelijk dank.

Robert
 
1 van de mogelijkheden

Code: 
Sub VenA()
  If IsError(Evaluate("'Kassa'!A1")) Then MsgBox "bestaat niet"
End Sub
 
Heel hartelijk dank voor het snelle antwoord. De eerste test werkt super. :thumb:
 
De code blijft gelijk, maar dan als functie:
Code: 
Function SheetExists(Blad As String) As Boolean
    If Evaluate("ISREF('" & Blad & "'!A1)") Then SheetExists = True
End Function
 
Edmoor, ook heel hartelijk dank. Ik heb jouw code opgeslagen in mijn handleiding voor het geval ik deze in de toekomst nodig zal hebben.
 
@edm

De funktie blijft gelijk, maatr de code is logischer

Code: 
Function F_snb(naam As String) As Boolean
  F_snb =Evaluate("ISREF('" & naam & "'!A1)")
End Function
 
Helemaal goed :thumb:
 
Beste mensen, ik ben blij dat mijn vraag voor anderen ook een toegevoegde waarde heeft.. Allen, nogmaals heel hartelijk dank.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan