AW: so gehts ...
09.12.2008 21:07:18
Erich
Hallo Matthias,
bei der Existenzprüfung muss man wohl etwas vorsichtiger sein:
If Worksheets(x).Name = "Dialog" reicht nicht aus.
Es kann ein Blatt z. B. DIALOG oder DIAlog geben, dann produziert Worksheets.Add.Name = "Dialog" einen Fehler.
Möglich wäre
If UCase(Worksheets(x).Name) = UCase("Dialog")
oder:
Sub Tom2()
If worksheetEx("Dialog") Then
MsgBox "Blatt 'Dialog' ist schon vorhanden", vbInformation, "Abbruch"
Else
Worksheets.Add(after:=Sheets(Sheets.Count)).Name = "Dialog"
End If
End Sub
Function worksheetEx(strNam As String) As Boolean
' Wenn das Blatt nicht existiert, gibt es einen Fehler, der aber mit
' "On Error Resume Next" übergangen wird.
' worksheetEx wird nicht belegt und hat/behält den Defaultwert Falsch
' Wenn das Blatt existiert, ist der Index des Blattes > 0, worksheetEx ist Wahr
On Error Resume Next
worksheetEx = Worksheets(strNam).Index > 0
End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort