existiert ein blatt, dass in den ersten 4 buchstaben..

21/02/2010 - 15:52 von hotzenplotz | Report spam
hallo zusammen,

mit "Abl." beginnt

Function SheetExists(sBlName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(sBlName) Is Nothing
End Function

wie muss SBlName übergeben?

freue mich auf eine antwort.

klaus
 

Lesen sie die antworten

#1 Andreas Killer
21/02/2010 - 16:10 | Warnen spam
hotzenplotz schrieb:

mit "Abl." beginnt


Es wàre nett wenn Du eine komplette Frage formulieren könntest.

Function SheetExists(sBlName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(sBlName) Is Nothing
End Function

wie muss SBlName übergeben?


Hier gar nicht, da musst Du schon alle Sheets prüfen und die Namen
vergleichen.

Andreas.

Sub Test()
Dim S As String
S = SheetLike("Abl.*")
End Sub

Function SheetLike(ByVal SheetName As String, Optional WB As _
Workbook = Nothing) As String
'Sucht nach dem Tabellenblatt "like" SheetName und gibt den _
kompletten Namen zurück
Dim S As Worksheet
If WB Is Nothing Then Set WB = ActiveWorkbook
For Each S In WB.Sheets
If S.Name Like SheetName Then
SheetLike = S.Name
Exit Function
End If
Next
End Function

Ähnliche fragen