Werte übertragen nicht Formel
16.02.2021 14:45:17
Sahra
ich habe folgenden Code, mit dem ich über einen Button alle Zeilen in eine andere Tabelle übertragen will sobal in dieser ein Ja steht. Das klappt auch ganz gut. Jedoch überträgt der Code auch die enthaltenen Formeln und nicht die Werte. Kann mir da Jemand helfen?
Private Sub Schaltfläche7_Klicken()
Dim rngC As Range, rngA As Range
For Each rngC In Range("G2", Cells(Rows.Count, 7).End(xlUp))
If rngC.Row > 1 And UCase(rngC.Value) = "JA" Then
If rngA Is Nothing Then Set rngA = rngC Else Set rngA = Union(rngA, rngC)
End If
Next rngC
If Not rngA Is Nothing Then
With Worksheets("Buch") ' Zieltabelle
rngA.EntireRow.Copy .Cells(.Rows.Count, 7).End(xlUp).Offset(1, -6)
'rngA.EntireRow.Delete
Sheets("Wartungsplan").Range("c9:k138").ClearContents
End With
End If
End Sub
Vielen Dank schon mal! :)