Wer kann mir helfen ?
Brauche ein Makro mit dem ich ein neues Tabellenblatt umbennen kann.
Das neue Tabellenblatt sollte nach den Eintrag einer Zelle (z.B. B3) aus einem anderen Arbeitblatt benannt werden.
Gruß Andreas
Option Explicit
Sub neues_Blatt()
Dim ws As Worksheet, ns As Worksheet, wsn As String
wsn = Sheets("anderesBlatt").[b3]
For Each ws In Worksheets
If ws.Name = wsn Then
MsgBox "Das Blatt " & wsn & " ist schon vorhanden!"
Exit Sub
End If
Next
Set ns = Worksheets.Add(after:=Sheets(Sheets.Count))
ns.Name = wsn
Set ns = Nothing
End Sub