title image


Smiley Universell als UDF ...
Hallo Schorsch,



wenn Du das ganze in eine Function packst, dann kannst Du sie universell in Deinem Code verwenden ...



Public Function TabExist(TabName As String, Optional wb As Workbook) As Boolean

Dim ws As Worksheet

If wb Is Nothing Then Set wb = ActiveWorkbook

For Each ws In wb.Worksheets

If ws.Name = TabName Then

TabExist = True

Exit Function

End If

Next

TabExist = False

End Function



Aufrufen kannst Du das ganze dann z.B. so ...



Sub test3()

Dim Tabelle As String

Tabelle = "Hurra"

If TabExist(Tabelle) Then

MsgBox "Gibt's schon."

Else

Sheets.Add.Name = Tabelle

End If

End Sub



Über das optioanle Argument wb kannst Du übrigens auch andere (geöffnete) Arbeitsmappen damit prüfen, z.B. ...



Sub test4()

Dim Tabelle As String

Tabelle = "Hurra"

If TabExist(Tabelle, Workbooks("Mappe1.xls")) Then

MsgBox "Gibt's schon."

Else

Workbooks("Mappe1.xls").Sheets.Add.Name = Tabelle

End If

End Sub



Schönen Gruß
StrgAltEntf

Meine Fragen und Antworten beziehen sich, wenn nicht anders erwähnt, auf Ac97 bzw. XL/Word2k in Verbindung mit Win2k.
Es gibt zwei Regeln für Erfolg im Leben:
1. Erzähle den Leuten nie alles, was Du weißt ...



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: