unzulässige Zeichen im RegisterNamen prüfen ...
02.11.2013 00:14:57
Matthias
Hallo Uwe
Option Explicit
Sub Blatt_kopieren()
Dim NeuerName As String, wks As Worksheet, X&
NeuerName = InputBox("Für welchen Monat ist die neue Tabelle?" & vbLf & "z.B. Okt 2013", , "Okt _
2013")
If StrPtr(NeuerName) = 0 Or NeuerName = "" Then Exit Sub 'Abbruch oder leer
For Each wks In ThisWorkbook.Worksheets
If wks.Name = NeuerName Then
MsgBox "Dieser RegisterName ist schon vorhanden"
Exit Sub
End If
Next
For X = 1 To Len(NeuerName)
If VBA.Mid(NeuerName, X, 1) = ":" Then MsgBox "unzulässiges Zeichen im Namen": Exit Sub
If VBA.Mid(NeuerName, X, 1) = "/" Then MsgBox "unzulässiges Zeichen im Namen": Exit Sub
If VBA.Mid(NeuerName, X, 1) = "\" Then MsgBox "unzulässiges Zeichen im Namen": Exit Sub
If VBA.Mid(NeuerName, X, 1) = "?" Then MsgBox "unzulässiges Zeichen im Namen": Exit Sub
If VBA.Mid(NeuerName, X, 1) = "[" Then MsgBox "unzulässiges Zeichen im Namen": Exit Sub
If VBA.Mid(NeuerName, X, 1) = "]" Then MsgBox "unzulässiges Zeichen im Namen": Exit Sub
Next
With Sheets(1)
.Copy Before:=ActiveSheet
End With
ActiveSheet.Name = NeuerName
End Sub
Gruß Matthias