Office: Makro funktioniert nicht nach Umstellung auf von XL 2003 auf 2010

Hallo zusammen,

wer ist so nett, und kann mir folgendes Makro so abändern, dass es wieder richtig funktioniert.
Am besten mit XL 2003 und 2010.
Problem: In XL 2010 wird das Tabellenblatt "FS S1" nicht kopiert und ans Ende eingefügt, sondern nur das bestehende Tabellenblatt umbenannt.

Anmerkung: Das Tabellenblatt "FS S1" ist ausgeblendet.
Wie gesagt, hat in XL 2003 alles sehr gut funktioniert.


Hier der Code:

Private Sub CommandButton1_Click()
Dim strDate As String, strNewName As String
Dim objSheet As Worksheet, objNewSheet As Worksheet
Dim blnReplace As Boolean, blnExist As Boolean
Unload Me
Application.DisplayAlerts = False
If ThisWorkbook.MultiUserEditing Then ThisWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
strDate = Format(Date, "YYYY-MM-DD")
Do
blnExist = False
strNewName = InputBox("Name des neuen Tagesreports ?", , strDate)
If StrPtr(strNewName) = 0 Then Exit Sub
For Each objSheet In ThisWorkbook.Worksheets
If objSheet.Name = strNewName Then
blnExist = True
If MsgBox("Tagesreport existiert bereits," & vbLf _
& "soll der Tagesreport überschrieben werden?", _
vbQuestion Or vbYesNo, "Sicherheitsabfrage") = vbYes Then
blnExist = False
blnReplace = True
End If
Exit For
End If
Next objSheet
Loop While blnExist
If blnReplace Then
With Application
.DisplayAlerts = False
Sheets(strNewName).Delete
.DisplayAlerts = True
End With
End If
Sheets("S1 FS").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Worksheets.Count)
ActiveSheet.Range("C2").Value = strNewName
ActiveSheet.Name = strNewName
ActiveSheet.Visible = xlSheetVisible
Application.DisplayAlerts = False
If Not ThisWorkbook.MultiUserEditing Then ThisWorkbook.SaveAs _
Filename:=ThisWorkbook.FullName, AccessMode:=xlShared
Application.DisplayAlerts = True
End Sub

Danke und Gruß
Marcel

 

Liegt wohl an den ausgeblendeten Tabellenblättern.

ch habe es nun so gelöst:

Code:
Private Sub CommandButton1_Click()
Dim strDate As String, strNewName As String
Dim objSheet As Worksheet, objNewSheet As Worksheet
Dim blnReplace As Boolean, blnExist As Boolean
Unload Me
Sheets("S1 FS").Visible = True
Application.DisplayAlerts = False
If ThisWorkbook.MultiUserEditing Then ThisWorkbook.ExclusiveAccess
Application.DisplayAlerts = True
strDate = Format(Date, "YYYY-MM-DD")
Do
blnExist = False
strNewName = InputBox("Name des neuen Tagesreports ?", , strDate)
If StrPtr(strNewName) = 0 Then Exit Sub
For Each objSheet In ThisWorkbook.Worksheets
If objSheet.Name = strNewName Then
blnExist = True
If MsgBox("Tagesreport existiert bereits," & vbLf _
& "soll der Tagesreport überschrieben werden?", _
vbQuestion Or vbYesNo, "Sicherheitsabfrage") = vbYes Then
blnExist = False
blnReplace = True
End If
Exit For
End If
Next objSheet
Loop While blnExist
If blnReplace Then
With Application
.DisplayAlerts = False
Sheets(strNewName).Delete
.DisplayAlerts = True
End With
End If
Sheets("S1 FS").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Worksheets.Count)
ActiveSheet.Range("C2").Value = strNewName
ActiveSheet.Name = strNewName
ActiveSheet.Visible = xlSheetVisible
Application.DisplayAlerts = False
If Not ThisWorkbook.MultiUserEditing Then ThisWorkbook.SaveAs _
Filename:=ThisWorkbook.FullName, AccessMode:=xlShared
Application.DisplayAlerts = True
Sheets("S1 FS").Visible = False
End Sub


Hat jemand noch eine bessere Idee??

Danke und Gruß