Re: neuen Blattnamen mit bestehenden vergleichen
03.01.2003 15:20:00
Nepumuk
Hallo Janine,
so z.B.Public Sub Neues_Blatt()
Dim Name_neu As Variant, Tabelle As Object, vorhanden As Boolean
Do
Name_neu = Application.InputBox("Bitte den Namen für das neue Tabellenblatt eingeben.", "Eingabe", Type:=2)
If Name_neu <> False Then
For Each Tabelle In ThisWorkbook.Sheets
If Tabelle.Name = Name_neu Then vorhanden = True
Next Tabelle
If Not vorhanden Then
Worksheets.Add
On Error Resume Next
ActiveSheet.Name = Name_neu
If Err.Number <> 0 Then
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
MsgBox "Der Name ist fehlerhaft.", 48, "Hinweis"
Else
Exit Do
End If
Else
MsgBox "Der Name ist schon vergeben.", 48, "Hinweis"
End If
Else
Exit Do
End If
Loop
End Sub
Gruß
Nepumuk