Funktionen för
kontroll om arbetsblad existerar

 

Här visas hur vi kan skapa en funktion för kontroll om enstaka arbetsblad existerar eller inte i den aktiva arbetsboken. I exemplet sker kontroll om ett arbetsblad existerar. Om inte så skapas det önskade arbetsbladet.

Tipset finns ej att tillgå för hämtning.

 

Option Explicit   Function ARARBETSBLAD(stNamn As String) As Boolean    '© 2002 Alla rättigheter XL-Dennis    Dim wsBlad As Worksheet      ARARBETSBLAD = True     On Error Resume Next     Set wsBlad = ActiveWorkbook.Worksheets(stNamn)     If Err Then ARARBETSBLAD = False  End Function   Sub Kontroll_Arbetsblad()    Dim stNamn As String      stNamn = "Blad1"      If ARARBETSBLAD(stNamn) = False Then       Worksheets.Add After:=ActiveSheet       ActiveSheet.Name = "Blad1"    End If  End Sub