AW: noch kleine Korrektur erforderlich
04.11.2021 15:12:05
Peter
Hallo Peter,
ich habe jetzt Deinen Vorschlag in meine Datei eingebaut. Diese funktioniert einwandfrei, bis zu der Stelle, wenn keine Formeln in der Tabelle vorhanden sind.
Sub aus_Quelldatei_in_Zieldatei_kopieren2()
Dim QWB As String
Dim ZWB As String
Dim WS
Dim myCell As Range
QWB = Workbooks("FormelReparatur.xlsm").Sheets("Hilfstabelle").Range("B2")
'Debug.Print QWB
ZWB = Workbooks("FormelReparatur.xlsm").Sheets("Hilfstabelle").Range("C2")
'Debug.Print ZWB
With Workbooks(ZWB)
.Activate 'nur für Testzwecke aktiviert
For Each WS In ActiveWorkbook.Worksheets 'durchläuft alle Worksheets
WS.Activate 'nicht unbedingt erforderlich
For Each myCell In WS.UsedRange.SpecialCells(xlCellTypeFormulas) 'alle Zellen mit Formeln im benutzten Bereich 'Fehler, wenn keine Formeln vorhanden sind
myCell.FormulaLocal = Replace(myCell.FormulaLocal, "@", "") 'berichtigt die Fehler der Formeln mit "#NAME?"
Next
Next 'für "For Each WS..."
End With
End Sub
An dieser Stelle "For Each myCell In WS.UsedRange.SpecialCells(xlCellTypeFormulas) 'alle Zellen mit Formeln im benutzten Bereich 'Fehler, wenn keine Formeln" wird Programm mit Laufzeitfehler unterbrochen mit Hinweis, dass keine Formeln vorhanden sind.
Was muss bitte geändert werden, wenn dies eintritt?
Gruss
Peter
