ich möchte in einem Tabellenblatt in Zellen , wo die Formeln bestimmten Text beinhalten z.B: "=@DBGET", bei diesen Zellen die Formeln löschen und Ergebnis der Formel als Wertekopie einfügen. Es soll das ganze Tabellenblatt durchgesucht und ersetzt werden. Dazu habe ich folgendes Makro zusammengestellt
Sub MIS__Formel_suchen()
Dim c As Range
Dim firstAddress As String
With Worksheets(1).Range("a1:D500")
Set c = .Find(What:="=@DBGET", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(c.Row, 1) = c
Set c = .Find(What:="=@dbget", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Das Makro stoppt aber immer wieder bei dem Schritt:Set c = .Find(What:="=@dbget", After:=ActiveCell, LookIn:=xlFormulas2, _
LookAt:=xlPart)
Kann mir jemand bitte helfen?