Makro: Wenn Wert in Zeile, dann Formeln in betroffener Zeile in Werte umwandeln

[madikarus]

Hallo zusammen,

ich bräuchte bitte noch mal eure Hilfe:
Ich benötige ein Makro, dass in Spalte "AB" nach dem Wert "erledigt" sucht.
Wenn in bspw. "AB51" der Wert "erledigt" steht, soll er in dieser Zeile alle Formeln in Werte umwandeln.

Könnt ihr mir helfen?
Danke!

[atilla]

Hallo,

teste mal:

Code:

Private Sub suchen_und_mit_Werten_ersetzen()

 Dim firstAddress As String
 Dim rngFund As Range
 Dim strgSuchtext As String

 strgSuchtext = "erledigt"

 With Worksheets("Tabelle1").Columns("AB") 'Tabellennamen anpassen ?????
   Set rngFund = .Find(strgSuchtext, LookIn:=xlValues, lookat:=xlPart)
   If Not rngFund Is Nothing Then
     firstAddress = rngFund.Address
     Do
       Set rngFund = .FindNext(rngFund)
'          Zellen Von Spalte A (1) bis Spalte J (10) werden mit Werten überschriben
       Range(Cells(rngFund.Row, 1), Cells(rngFund.Row, 10)).Value = Range(Cells(rngFund.Row, 1), Cells(rngFund.Row, 10)).Value
     Loop While Not rngFund Is Nothing And rngFund.Address <> firstAddress
   End If
 End With


End Sub

[madikarus]

Funktioniert 1A!

Vielen Dank :)