Problem beim Kombatibilitätsmodus
RainerK
habe von hier https://www.herber.de/forum/archiv/608to612/t609556.htm#609559 den Code in neuer Mappe getestet und wie folgt abgeändert:
Sub NeuesTabBlatt()
Dim NewName As String
ActiveSheet.Copy After:=Workbooks("Mappe2").Sheets("Tabelle1")
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
ActiveSheet.Name = NewName
End Sub
In zwei neuen Tabellen hat alles Funktioniert.
Zwei andere Testtabellen sind jedoch im Kombatiblitätsmodus und bei diesen hat es nicht funktioniert.
Was gäbe es da für Lösungen?
Gruß RainerK