wie wärs damit:
In ein Modul:
Option Explicit
Sub englisch()
Dim Zelle As Range, Bereich As Range, S As Shape, wsD As Worksheet, wsE As Worksheet
Application.ScreenUpdating = False
Set wsD = ActiveSheet
Worksheets.Add
Set wsE = ActiveSheet
wsE.UsedRange.Clear
wsD.UsedRange.Copy Destination:=wsE.Range("A1")
On Error GoTo MistSpecialCcellsImmerNurÄrcherMitDenenggg
Set Bereich = wsE.UsedRange.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
For Each Zelle In Bereich
Zelle.Value = "'" & Zelle.Formula
Next Zelle
For Each S In wsE.Shapes
S.Visible = False
Next S
wsE.UsedRange.Columns.AutoFit
wsE.UsedRange.Rows.AutoFit
wsE.Buttons.Add(0, 0, 133.5, 36).Select
With Selection
.OnAction = "Loeschen"
.Characters.Text = "Dieses Blatt schliessen"
End With
Range("A5").Select
Application.ScreenUpdating = True
Exit Sub
MistSpecialCcellsImmerNurÄrcherMitDenenggg:
MsgBox "Keine Zellen mit Formeln vorhanden"
Application.ScreenUpdating = True
End Sub
Sub Loeschen()
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen