wie erhalte ich den Blattnamen in Zelle A3?
mfg walter
Private Sub Worksheet_Change(ByVal Target As Range)
Dim BlaNa As String, _
i As Integer, _
vorh As Boolean
If Target.Address <> "$B$1" Then Exit Sub
If Target.Value = "" Then Exit Sub
BlaNa = Target.Text
For i = 1 To Sheets.Count
If Sheets(i).Name = BlaNa Then
vorh = True
Exit For
End If
Next i
If vorh = True Then
MsgBox "Blatt '" & BlaNa & "' existiert bereits!"
Else
ActiveSheet.Name = BlaNa
End If
End Sub