Fehlermeldung, wenn Tabellenbl. bereits vorhanden
02.08.2006 14:47:34
stefanseevetal
Ich erstelle per Button ein neues Tabellenblatt und bennen es nach dem Inhalt einer bestimmten Zelle (Cells(6,8)):
Sub NeuesBlatt()
Worksheets("Muster").Copy After:=Worksheets(1)
ActiveSheet.Name = Sheets("Schadensmeldung").Cells(6, 8)
End Sub
Wenn es ein Tabellenballt mit diesem Namen aber bereits gibt, bekomme ich natürlich eine Fehlermeldung. Wie kann ich es hinbekommen, dass in diesem Fall nichts passiert und eine MsgBox ausgegeben wird mit: "Dieses Tabellenblatt ist bereits vorhanden!"
Vielleicht kann mir da ja jemand weiterhelfen?!
Danke und Gruß,
Stefan