Tabellenblatt Kopieren - Formel übernhem

Die Formel, die eingefügt werden soll, enthält einen Namen, der bereits im Zieldatenblatt  _
vorhanden ist.
Soll die vorhandene Definition von 'writable' verwendet werden?
Klicken Sie ja zum Übernehmen.

Sub callback_AddMaterial(control As IRibbonControl)
On Error GoTo ErrorHandler   ' Enable error-handling routine.,
Dim index, position As Integer
index = 1
position = 1
For Each sht In ThisWorkbook.Worksheets
If sht.Name Like "Wartungsbericht*" Then
index = index + 1
position = sht.index
End If
Next sht
Call CopySheet(Tabelle3, "Wartungsbericht", index, position)
Exit Sub
ErrorHandler:
Call validFunctions.ErrorHandler(Err)
End Sub