Formel aus Zelle auslesen aber in englis

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Sub aus_Quelldatei_in_Zieldatei_kopieren2() Dim QWB As String Dim ZWB As String Dim WS Dim myCell As Range Dim usedR 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 on error resume next set usedR = WS.UsedRange.SpecialCells(xlCellTypeFormulas) on error goto 0 if not (usedR is Nothing) then For Each myCell In usedR '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 end if Next 'für "For Each WS..." End With End Sub

Beliebteste Forumthreads (12 Monate)

Formel aus Zelle auslesen aber in englis

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

325 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Formel aus Zelle auslesen aber in englis

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

325 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread