suchen Dateneingabe und löschen über Userform

[atilla]

Hallo Max,

Du kannst den Bereich mit Formeln in ein Feld einlesen und zurückschreiben, so z.B:

Code:

Sub Test()
   Dim Feld
   Feld = Range("A1:A10").FormulaLocal             'Formeln des Berichs einlesen
   Range("A1:A10").Value = Range("A1:A10").Value   'Formelwerte in Werte umwandeln
   Range("A1:A10") = Feld                          'Formeln in den Bereich zurückschreiben
End Sub