ich habe eine Datei mit SVERWEISEN und Formeln, wie kann ich diese Daten in eine neue Datei kopieren, ohne den SVERWEIS aber mit die Formeln?
Danke Vorab für die Hilfe
VG Steve
ohne den SVERWEIS aber mit die Formeln?
Wie meinen ?!?!?
If lcase(Zelle.Formula) Like "*vlookup*" Then Zelle.Value = Zelle.Value
VG, Boris
Sub SVerweisDurchWert_ersetzen()
Dim Z As Range
For Each Z In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If LCase(Z.FormulaLocal) Like "=sverweis(*" Then Z.Value = Z.Value
Next
End Sub
Aber bei einem grossen Datei wirst Du keine Wahl haben: es dauert. Du kannst höchstens die üblichen Beschleuniger einbauen:
Sub SVerweisDurchWert_ersetzen()
Dim Z As Range
Dim CalcMode_sav
CalcMode_sav = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each Z In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If LCase(Z.FormulaLocal) Like "=sverweis(*" Then Z.Value = Z.Value
Next
Application.Calculation = CalcMode_sav
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
VG