18.04.2014, 15:34
Hi Frank,
als Gedankenansatz, um den Code zu verschlanken in deiner Problemstellung: Prüfe die Einträge deiner Gültigkeitsliste auf unzulässige Zeichen und Länge. Dann reicht auch dieser Restcode:
als Gedankenansatz, um den Code zu verschlanken in deiner Problemstellung: Prüfe die Einträge deiner Gültigkeitsliste auf unzulässige Zeichen und Länge. Dann reicht auch dieser Restcode:
Zitat:Private Sub Worksheet_Change(ByVal Target As Range)
Dim strTabelle As String
Dim bytErlaubt As Byte
If Target.Count = 1 Then
If Target.Address = "$B$2" Then
Application.EnableEvents = False
ElseIf Not IsError(Application.Evaluate(Target.Value & "!A1")) And strTabelle <> Target.Value Then
MsgBox "Diese Tabelle gibt es schon"
Range("B2").ClearContents
ElseIf ActiveSheet.Name <> Target.Value And Target <> "" Then
Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Target.Value
End If
Application.EnableEvents = True
End If
End Sub