Gibt es eine Möglichkeit, ein einzelnes Blatt aus einer Arbeitsmappe zu exportieren, so dass Excel alle Bezüge auf andere Blätter der Mappe durch die Zahlenwerte / Texte ersetzt? Blatt-interne Formeln sollten unberührt bleiben.
Danke schonmal!
Sub upps()
Dim c As Range
On Error GoTo FEHLER
For Each c In Cells.SpecialCells(xlCellTypeFormulas, 23)
On Error Resume Next
If InStr(c.Formula, "!") > 0 Then c = c.Value
On Error GoTo 0
Next
ActiveSheet.Copy
Exit Sub
FEHLER:
MsgBox "Keine Zellen mit Formeln gefunden!"
End Sub
mfg Kurt
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