Wieso funktioniert dieser Code nicht?
Sub TabellenNamen()
Dim neuName As String
On Error Resume Next
neuName = Application.UserName & ", " & Date
Worksheets("" & ActiveSheet.name & "").name = Application.UserName & ", " & Date
End Sub
So läuft es aber:
Sub TabellenNamen()
'Dim neuName As String
'On Error Resume Next
'neuName = Application.UserName & ", " & Date
Worksheets("" & ActiveSheet.name & "").name ="neuetabelle"
End Sub
Danke!