Excel - VBA-Code zum Löschen von Daten in einer Zeile unter Beibehaltung von Formeln

Problem

Ich arbeite an einer Tabelle, in der ich Daten auf eine neue Tabelle kopieren muss. Sobald die Daten kopiert sind, möchte ich die Daten in der Zeile vom Originalblatt löschen, ohne die Formeln zu verlieren. Wie kann dies in VBA implementiert werden?

Lösung

Nachdem Sie den folgenden Code implementiert haben, wählen Sie eine Zelle in der Zeile aus, aus der Sie die Formel beibehalten möchten, und führen Sie den Code aus.

 Sub KeepFormulas () Dim sRow, lCol As Integer sRow = ActiveCell.Row lCol = Cells (sRow, Columns.Count) .End (xlToLeft) .Column für jede Zelle im Bereich (Cells (sRow, 1), Cells (sRow, lCol )) Wenn cell.HasFormula = False Dann cell.ClearContents Nächste Zelle End Sub 

Vielen Dank an MSL für diesen Tipp.