Hallo Karin,
Ich habe das jetzt ausprobiert. Bei der manuellen Makroaufzeichnung war es nicht möglich das neue Tab-Blatt zu benennen. Daher habe ich meine Makro-Aufzeichnung mit dem alten Makro kombiniert. Es scheint auch zu fuktionieren. Ich hoffe das es auch sauber programmiert ist, da ich z.Teil nicht weiß, was die einzelnen Befehle bedeuten.
Sub Makro1()
'Dim strName As String
strName = ActiveSheet.Range("F3")
On Error Resume Next
strName = Worksheets(strName).Name
If Err > 0 Then
Cells.Select
Selection.Copy
Sheets.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Name = Range("F3")
Else
MsgBox "Es gibt schon ein Tabellenblatt " & strName
End If
Err.Clear
On Error GoTo 0
End Sub