title image


Smiley Zwei Varianten ...
Hallo Schorsch,



entweder Du missbrauchst das Err-Objekt ...

Sub test1()

Dim v As Variant

On Error Resume Next

v = Sheets("Hurra").Range("A1")

If Err.Number = 9 Then

Sheets.Add.Name = "Hurra"

Else

MsgBox "Gibt's schon"

End If

End Sub



Oder Du benutzt Variablen und lässt das über 'ne Schleife prüfen ...

Sub test2()

Dim ws As Worksheet, blFlag As Boolean

blFlag = False

For Each ws In ActiveWorkbook.Worksheets

If ws.Name = "Hurra" Then

blFlag = True

Exit For

End If

Next

If blFlag Then

MsgBox "Gibt's schon."

Else

Sheets.Add.Name = "Hurra"

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: