Tabellenblatt Reiter mit Systemdatum umbenennen

Wie kann der Konflikt gelöst werden wenn mehrere Tabellenblätter mit dem gleichen Datum versehen sind.
<br />Sub Makro2()
<br /> Worksheets.Add After:=ActiveSheet
<br /> szToday = Format(Date, "DD-MM-YY")
<br /> ActiveSheet.Name = szToday
<br /> End Sub
<br />

Function NewSheetName(ByVal SheetName As String, _
Optional ByVal Wb As Workbook = Nothing) As String
'Returns a non existing sheet name that begins with SheetName
Dim i As Long, LeftParen As Long
Dim NewName As String, SheetExt As String, Blank As String
NewName = SheetName
If Wb Is Nothing Then Set Wb = ActiveWorkbook
If SheetExists(SheetName, Wb) Then
LeftParen = InStrRev(SheetName, "(")
Blank = " "
If LeftParen Then
If SheetName Like "*(" & String(Len(SheetName) - LeftParen - 1, "#") & ")" Then
i = Mid$(SheetName, LeftParen + 1, Len(SheetName) - LeftParen - 1)
SheetName = Left$(SheetName, LeftParen - 1)
Blank = ""
End If
End If
Do
i = i + 1
SheetExt = Blank & "(" & i & ")"
If Len(SheetName) + Len(SheetExt) > 31 Then
SheetName = Mid(SheetName, 1, 31 - Len(SheetExt))
If Len(SheetExt) = 31 Then
'If this happens, then you do extraordinary things, _
and should better take GUIDs as sheet names. ;-)
Err.Raise 6, "NewSheetName"
End If
End If
NewName = SheetName & SheetExt
Loop Until Not SheetExists(NewName, Wb)
End If
NewSheetName = NewName
End Function

Function SheetExists(ByVal SheetNameOrIndex As Variant, _
Optional ByVal Wb As Workbook = Nothing) As Boolean
'True if sheet SheetNameOrIndex exists
On Error Resume Next
If Wb Is Nothing Then Set Wb = ActiveWorkbook
SheetExists = Not Wb.Sheets(SheetNameOrIndex) Is Nothing
End Function
<br />

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Vielleicht die gemeinsamen Stunden einplanen? Aber ich bin mir nicht sicher, ob es funktionieren würde ...

Wir verwenden einen Übersetzungsdienst, um unsere Benutzer zu unterstützen. Bitte entschuldigen Sie grammatikalische Fehler.
<br />

Siehe die Kommentare direkt unter dem ersten Beitrag, es ist notwendig, eine Anpassung im Code vorzunehmen.

Leider kein Erfolg
<br />


<br />